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¡Hazte 


del  Club  de  Soft  de  España! 


tud  de  ventajas... 

puntual  información  de  las  novedades 
¡n  el  mercado. 

catálogo  bimensual  que  incluye 
mas  para  Commodore 64  y  Spec- 


^Ápor  ^ " 


-  Obtendrás 
hardware. 


gramás  con  un  30%  de  descuen- 
i  del  CLUB  DE  SOFT  DE  ESPA- 

intos  de  hasta  un  20%  sobre 


¿COMO  PUEDES  HACERTE  SOCIO  DEL  CLUB  DE 
SOFT  DE  ESPAÑA? 

—  Sólo  tendrás  que  abonar  1.000  Ptas.  como  cuota  UNICA  de  ins¬ 
cripción. 

—  Como  regalo  de  bienvenida  a  nuestro  CLUB  de  SOFT  de  ESPAÑA 
podrás  elegir  entre  dos  programas: 

AJEDREZ  STARSHIP  ENTERPRISE 

SOLO  FLIGHT  SLIPPERY  SID 

para  CBM-64  para  SPRECTRUM 

Te  enviaremos  el  programa  elegido  completamente  GRATIS,  junto 
con  la  confirmación  de  tu  pertenencia  al  CLUB  de  SOFT  de  ESPAÑA. 
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DIFUSION  POR  AMISTAD 

Habla  a  tus  amigos  de  las  enormes  ventajas  que  supone 
pertenecer  al  CLUB  DE  SOFT  DE  ESPAÑA.  Si  junto  con 
tu  inscripción  se  inscriben  dos  amigos  tuyos  por  tu 
recomendación,  te  regalamos  un  programa  de  juegos. 


CUPON  DE  INSCRIPCION 
AL  CLUB  DE  SOFT  DE  ESPAÑA 

Eraso,  12  -  Tel.  24610  94  -  28028-MADRID 


DIFUSION  POR  AMISTAD 


DIFUSION  POR  AMISTAD 


PRESENTACION 


S  damos  la  bienvenida  a  nuestro  primer  número  especial  que 
encima  coincide  con  las  fiestas  navideñas. 


Este  número  extra,  si  que  se  puede  decir  que  es  completamente 
vuestro,  pues  sois  vosotros  y  vuestra  gran  cantidad  de 
colaboraciones  lo  que  dieron  nacimiento  a  la  idea. 


ICommodorel 


Habiendo  prometido  desde  el  principio  que  se  publicarían  todas 
las  colaboraciones  que  se  recibieran  y  fueran  válidas  técnicamente 
y,  habiéndonos  encontrado  con  más  de  cincuenta  a  las  que  era 
físicamente  imposible  dar  salida  en  los  números  mensuales  de  la 
revista,  temamos  que  inventarnos  algo,  máxime  cuando  más 
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colaboraciones  seguían  y  siguen  llegando  a  diario. 

¡Y...  así  nació  el  extraordinario!  Y...  una  vez  nacida  la  idea,  ¿por 
qué  no  acompañaros  durante  estas  vacaciones  para  que,  aparte  de 
nuestra  cita  mensual  que  atrae  cada  vez  a  más  “Commodorianos’ 
sigáis  pegando  a  las  teclas  y  no  se  os  atrofien  los  dedos? 

Sí,  pero,  y  del  concurso  y  premios...  ¿qué? 

7 JALE,  desde  el  principio  vimos  claro  que  era  sólo,  de  la  más 
Jy  elemental  justicia,  que  todos  los  que  hayan  hecho  posible  este 
número  recibieran  una  “participación”  sobre  el  mismo,  por  lo  que 
hemos  efectuado  un  sorteo  especial  para  los  participantes  de  este 
número  y  a  todos  les  ha  correspondido  una  participación 
económica  de  diversas  cantidades  y  algún  otro  premio  adicional. 
Pero,  ¿quiénes  iban  a  entrar  en  el  mismo  y  quiénes  en  la  revista 
mensual?  Bueno,  eso  era  fácil  —para  algo  tiene  que  servir  la 
informática — .  Todos  al  ordenador  y,  aleatoriamente,  quien 
cayera.  Y  así  funcionó  la  cosa.  La  suerte  decidió  el  tema. 

Nos  gustaría  sinceramente  poder  sacar  una  publicación 
extraordinaria  de  vez  en  cuando  y,  aunque  tenemos  otras  cosas  e 
ideas  en  cartera,  os  invitamos  a  seguir  mandando  vuestras 
colaboraciones  y  agradecemos  el  esfuerzo  que  estáis  haciendo. 
Como  no  es  nuestra  intención  estorbar  (lo  de  la  presentación 
siempre  es  un  poco  pesado)  y  como  sabemos  que  estaréis 
deseando  empezar  con  el  tecleo,  nos  despedimos  de  vosotros  con 
mucho  cariño  y  esperamos  que  os  guste  el  Primer  Número 
Extraordinario  de  “Commodore  World”. 
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El  reino:  juego  de  aventuras 


Este  juego  es  divertido  y  educativo  a  la  vez.  Tienes  que  estar 
haciendo  cálculos  de  números  para  poder  jugar  bien,  pero  no  te 
preocupes  que  no  te  va  a  resultar  doloroso.  (El  programa 
funciona  en  el  C-64  y  en  el  VIC-20  ampliado  o  sin  ampliar. 

Ver  listados  1  y  2). 

Tú  eres  el  dueño  y  señor  de  un  pequeño  estado  de  hace 
muchísimos  años.  Tu  meta  principal  es  aumentar  el  tamaño  de 
tu  reino,  y  el  progreso  que  haces  se  mide  en  la  cantidad  de 
acres  que  posees.  Para  tener  éxito  en  tu  propósito,  te  darás 
cuenta  que  preocuparte  de  tus  súbditos  con  cariño  y  amor  no 
siempre  resulta  productivo.  Sin  embargo,  una  actitud  de 
desinterés  total  hacia  la  población  también  trae  sus  riesgos. 
Decisiones  reales.  Cuando  empieza  el  juego  tú  tienes  unos 
terrenos,  tienes  almacenada  una  cantidad  de  grano  y  también 
tienes  que  gobernar  la  población.  En  cada  jugada  (que  dura  un 
año),  tienes  que  comprar  o  vender  tierras,  reservar  una 
cantidad  de  grano  para  alimentar  a  la  población  y  decidir  la 
cantidad  que  se  siembra. 

Hay  muchos  factores  que  tienes  que  tener  en  cuenta.  El  reino 
puede  estar  en  estado  de  paz  o  de  guerra.  Tienes  que  decidir  si 
es  mejor  alimentar  a  la  población  o  si  algunas  personas 
tendrán  que  morir  de  hambre.  Podrías  necesitar  que  trabajen 
un  número  de  personas  en  el  campo  y  otras  que  vayan  a  luchar 
en  la  guerra.  El  precio  de  las  tierras  puede  haber  subido  o 
bajado.  Tienes  que  calcular  el  grano  que  tienes  disponible  para 
sembrar. 

Para  que  tu  trabajo  sea  más  fácil  de  llevar,  recibes 
constantemente  un  informe  sobre  el  estado  del  reino  que  te 
indicará  todos  los  datos  actualizados  para  que  puedas  tomar 
decisiones  cara  al  año  siguiente.  Además,  al  final  de  cada  año, 
el  secretario  de  estado  te  mandará  un  informe  sobre  los 
resultados  de  tus  decisiones,  incluyendo  cosas  como  la  cosecha, 
un  censo  sobre  la  población  y  la  economía. 

Podrías  descubrir,  a  base  de  hacer  pruebas,  las  necesidades  que 
son  decisivas  a  la  hora  de  distribuir  el  grano,  pero  esto  resulta 
un  poco  laborioso.  En  vez  de  esto,  te  diré  lo  siguiente:  cada 
persona  requiere  20  arrobas  de  grano  para  alimentarse;  cada 
persona  puede  sembrar  solamente  10  acres  de  tierra;  necesitas 
1/2  arrobas  para  sembrar  un  acre. 

En  estado  de  guerra,  una  tercera  parte  de  la  población  tiene 
que  alistarse  en  el  ejército  y  por  lo  tanto  no  está  disponible 
para  sembrar  (sin  embargo,  estas  personas  necesitan  comer).  El 


reino  estará  en  estado  de  guerra  aproximadamente  el  30  por 
ciento  del  tiempo. 

Puedes  variar  tu  estilo  de  gobernar,  pero  yo  encuentro  que 
resulta  más  fácil  conseguir  tu  meta  comprando  y  vendiendo 
tierras  en  el  momento  más  oportuno.  A  veces  tendrás  que 
vender  tierras  para  alimentar  a  la  poblacón,  y  otras  veces  será 
necesario  que  algunas  personas  se  mueran  de  hambre.  La  vida 
era  muy  dura  en  aquel  entonces. 


C-64 

10  REM  GOBIERNA  TU  REINO 
12  PÚKE53281 ,  1 : PRINT"  [BLK  3 11 ; CHRÍ < 14> 

14  P=100 :  RR=  1 0  :  SP=0 :  RB=150 :  VH»3  •  ÜH=3 
000  Cfi= 1000: YR=1 :QS*2850 
16  GÜTÜ114 
18  REM  SUBRUTINAS 

20  PR I NT " [ CLR  3 [ 1 0SPC 3  CRVSON 3  C  2SPC  3  C  SH I FTE  3 
STftBO C  SPC  3  BEL [ SPC  3  RE I NO  C2SPC3C RVSOFF  3 
"  : PR I NT 

22  PR I NTSPC < SO  1 " C BLK 3 [ R VSON 3 [ SH I FTP  3 
OBLFICIONC7SPC3  •  "1P 
24  PR I NTSPC  <  9 > i " [ BLK 3 [ RVSON  3  C  SH I FTfi  3 
CRESC 1 1 SPC 3 : " ; Cfi 

26  PR I NTSPC ( 9  )  J "  [  RED  3 [ RVSÜN3 [ 8HIFTA  3 
RR . L SPC  3  C  SH I FT A 3  LMACENADAS : " ; OS 
28  PR I NTSPC < 1 2 ) ; "  [ BLK 3 f CR3RB 3 [ SH I FTE  3 
LÍSPC3 [SHIFTR3EINOÍSPC3ESTAÍSPC3ENÍSPC3 
";PW* 

30  PR  I  NT  :  PR  I  NT 1 "  C  RVSON  3  C  39SPC  3  C  RVSOFF  3 
“ : PRINT : RETURN 

32  I = VAL < I í ) : I*INT(ABS<I>> ■ RETURN 

34  REM  LAZO  BE  RETARBO 

36  F0RX= 1 TÚ4000 : NEXT : RETURN 

38  REM  ESPERA  UNA  TECLA 

40  PRINTSPCÍ5) ; " [CRSRB3 [SHIFTP3ULSACSPC3 

UNA  [  SPC  3  TECLA  [  SPC  3  PARA  [  SPC  3  COMENZAR  " 

42  GETA$: IFRÍ=" "THEN42 
44  RETURN 

46  PRINT" [CLR3 [RVSON3*[SPC3 [SHIFTS3A 
LUBOS [ SPC 3 [ SH I FTG 3 RAN [ SPC 3 C SH I FTR 3 EV 
C  SPC  3 ! C  SPC  3  *  t  R VSOFF  3  C CRSRB  3 " 

48  PRINT" CSHIFTH3ESSPC3DECSPC3CONTAR 
TE  [  SPC  3  ClUE  [  SPC  3  EN  [  SPC  3EL  [  SPC  3  AN  [  CRSRL  3 
CCRSRU3  CCOMM03  CCRSRB30CRVS0N3 " i VR; " [RVSOFF 3 
BE" 

50  PR I NT " TU  [  SPC  3  RE I NABO : [  CRSRD 3 " 

52  IFSP=1THEN58 

54  I FSP=0THENPR I NT " C  SPC  3 [ SH I FTN  3  AB I E 
[SPC 3 MURIO [SPC 3 BE [SPC 3 HAMBRE, YHSPC3 " 

; : GÜTO60 

56  PR I NTSP ¡ "PERSONAS [ SPC 3 MUR I ERON [ SPC 3 
BE [SPC 3 HAMBRE, VÍSPC3 " i 

5 7  GOTO60 

58  PR I NT " [ SH I FTU  3  NA [ SPC  3  PERSONA [ SPC  3 
MUR  1 0  [  SPC  3  BE  [  SPC  3  HAMBRE ,  V  [  SPC  3  " 

60  IFWKC1THEN6S 

62  IFWK=1THENPRINT" [SHIFTU3NA" i  :G0T0 
66 

64  PRINTWKl 

66  PR I NT " [ SPC  3  MUR I ERON [ SPC  3  EN [ SPC  3  BA 
TALLA" 

68  IFAR=1THEN72 

70  PRINTAR; "ÍSHIFTP3 ERSONAS [SPC3VINI 

ERON [ SPC  3  AL [ SPC  3  RE  I  NO " : G0T076 

72  I FSPC 1 0ANBSP> 1 ANBWKC 1 THENPR I NT " [ SPC  3 

74  PR I NT " [ SH I FTU  3  HA [ SPC  3  PERSONA [ SPC  3 
VINOÍSPC3ALÍSPC3REINÜ. " 

76  PR I NT " [ CRSRB  3 [ SH I FTR  3  ECOLECTAMOS " 

;GH 

78  PR I NT " [ SH I FT A  3  RROBAS [ SPC  3  A [ SPC  3 RA 
ZON [ SPC  3  BE " ; VH ; " [ SH I FT A  3  RROBAS " 

80  PRINT "POR [SPC 3 ACRE.  " 

82  PRINT" [SHIFTL3ASCSPC3RATASÍSPC3BE 
STRUYERON" 1 RB; "ARROBAS. " 
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84  PRINT" [SHIFTD ]E JANDO"  >  GS 

86  PR I NT " ARROBAS [ SPC ]  ALMACENADAS . " 

88  PRINT" [CRSRD] [SHIFTE ]L[ SPC] REINO! SPC] 
TIENE" . CA 

38  PR I NT " ACRES [SPC ] DEC SPC ]T IERRA. " 

92  RETURN 

34  PRINT" CCRSRD] CSHIFTQ] [SHIFTH] [SPC] 
CSHIFTRIEVCSPC] . . . PIENSALOCSPCIOTRACSPC] 
VEZ ! " ¡ G0SUB36  :  RETURN 
96  PR I  NT " C  CRSRD ] C SH I FTL ] OS  C SPC  3 CAMPE 
SI NOS [SPCI HAMBRIENTOS! SPC] ASALTARON" 

:  PRINT  "LOS  CSPC]  GRANEROS  [  SPC  ]  V  C  SPC  ]  DE 
STRUVERON 

38  PR  I  NT "  [  SPC  ]  EL  [  SPC  ]  50X  í  SPC  ]  DEL  [  SPC  ] 

GRANO [ SPC ] ALMACENADO " 

1Ü0  GS«INT <GS72) : WR=0 : G0SUB36 : RETURN 

102  IFJ>0THENRETURN 

104  P=P-INT <P72) : PRINT" [SHIFTL1AÍSPC] 

PL  AG  A  [  SPC  ]  MAT  O  [  SPC  ]  A  [  SPC ] LA £  SPC  ]  M I TA 
D [ SPC ] DE [ SPC ] L A [ SPC ] POBLAC I ÜN " 

106  PRINT" [SHIFTL]A[ SPC ] POBLAC I ON C SPC ] 

ES [ SPC ] AHORA [ SPC ] DE " .  P; " . " : G0SUB36 :  R 
ETURN 

108  I FSPCPTHENRETURN 

1 1 0  PR I  NT " [ CLR ] [ 2CRSRD ] [ SH I FTT ] ODOS [ SPC ] 
TUS [ SPC ] SUDE I  TOS [ SPC ] HAN [ SPC ] MUERTO . 

.... [ 6SPC ][ CRSRD ] [SHI FTT ]UC SPC ]TAMBI 
ENI [2CRSRD]" 

112  G0T0236 

114  PR I NT " [ CLR] C 2CRSRD ] [ 3SPC ] [ RVSON ] 

[ 3SPC ] [ SH I FTG ] OB I  ERNA [ SPC ] TU [ SPC ] RE I 
NO [ 2SPC ] [ RVSOFF ] " 

116  PRINT" [CRSRD] [SHIFTE]RESCSPC]EL[SPC] 

RE  V  [  SPC  ]  DEL  [  SPC  ]  ANT I GUÜ  [  SPC  ]  RE  I  NO  C  SPC  ] 
DEÍ23SPC] [SHIFTB]ABILONIA“ 

1 18  PRINT" [CRSRD] [SHIFTE1LCSPC10BJET 
I VO [ SPC ] DEL [ SPC ] JUEGO [ SPC ] ES [ SPC ] LLE 
VAR [ 3SPC ] PROSPERAMENTE  t SPC ] EL l SPC ] RE 
INÜ" 

120  PR I NT " [ CRSRD ]CSHIFTP] ARA [ SPC ] F I N 
AL  I  ZAR ,  VENDE  [  SPC  ]  TODA  [  SPC  ]  TU  [  SPC  ]  T I E 

122  G0SUB38 

124  ZZ=RND(TI > : G0T0128 
126  ZZ=RND  <1 > : I FZZC . 3THENPW*- " [ SH I FTG ] 
[SHIFTU] [SHIFTE] [2SHIFTR] [SHIFTA] " : U 
F=1 . 5 : GOTO 130 

128  WF=1 : PWt=" [SHIFTP] [SHIFTA] [SHIFTZ] 

130  G0SUB46 : GÜSUB38 ¡ G0SUB20 

132  K'=INT (RND(  1  )*12+16)  :  PRINT"  [SHIFTE] 

L [ SPC ] PREC I O [ SPC ] DE [ SPC ] LOS [ SPC ] TERR 
ENOS [ SPC ] ES [ SPC ] DE " ; K 

134  PR  I  NT  "ARROBAS  [  SPC  ]  POR  [  SPC  ]  ACRE .  £  CRSRD  ] 

136  PR I NT " [ 4SPC ] [ RVSON ] [ SH IFTC ] [ RVSOFF ] 
OMPRA , [ RVSON ] [ SH I FTV ] [ RVSOFF ] ENDE , O [ SPC ] 

[ RVSON ] [ SH I FTM ] [ RVSOFF ] ANTEN [ SPC ] L A [ SPC ] 
TIERRA" 

138  G0SUB42 

140  I F A$= " C " ÜR A$= “ V " ÜRAÍ = " M " THEN 1 44 
142  PRINT"  [2CRSRLHCRSRU]  "  :  GOTO  138 
144  IFA$="M“THEN172 
146  PR I NT " [ CRSRD ] [ SH IFTC ] UANTOS [ SPC ] 

ACRES" 

148  I NPUT " [ 2SPC ] * [ 3CRSRL ] " ; I i 

150  I F I $= " * " THENPR I NT " [ 2CRSRU ] " • GOTO 

148 

152  G0SUB32  IFI=ÜTHEN172 

154  I F Aí = " V " THEN 1 64 

156  J=*I*K:  IFJOGSTHEN160 

158  G0SUB34 : G0SUB20 ; G0T0136 

160  GS=GS-J : CA=CA+I 

162  GOSUB20- GOTO 172 

164  IFI-CÁTHEN234 

166  I F I >CATHENG0SUB34 : G0SUE20 : GOTO  14 

168  CA=CA-I : GS=GS+K#I 
170  GQSUB20 


172  PR INT : PRI NT " [ SH IFTC ] UANTAS [ SPC ] A 
RROBAS [ SPC ] PARA [ SPC ] AL I MENTAC I ON " 

174  I NPUT " [ 2SPC ] * [ 3CRSRL ] " ; I $ 

176  I F I  *  =  "  #  " THENPR I NT " [ 3CRSRU ] " : GOTO 
174 

178  GÜSUB32 

180  IFIOGSTHEN184 

1 82  G0SUB94 : GOSUB20 ¡ GOTO 1 72 

184  IFIX5*P)THEN190 

186  I F I >GS/4THEN 1 90 

188  WR=1 : REM  ROBO  EN  LOS  GRANEROS 

190  GS=GS-I : SP=P-INT ( 1/20) : AR»0 : GOSU 

B108 ; IFSP>=0THEN194 

192  AR=-SP/2 : SP=0 

134  I FWR= 1 THENG0SUB96 

196  GOSUB20 

138  PRI NT " [ SH I FTC ] UANTOS [ SPC ] ACRES [ SPC ] 
PARA [SPC] SEMBRAR" 

200  INPUT"  [2SF‘C]#[3CRSRL]  "  ;  It 
202  IF I *="*" THENPR I NT "[3CRSRU]" :  GOTO 
280 

204  G0SUB32 

206  IFI>CATHEN214 

208  J=INTCI/2):IFJ>GSTHEN214 

210  IFIX 10¡KP/UF)THEN214 

212  G0T0218 

214  G0SUB34 : GOSUB20 : GOTO 198 
216  REM  CALCULA  CAMBIOS  ANUALES 
218  GS=üS-J:YH=l+INT(RND<l>*5XGH=VH 
*1 : RD= I NT  <  <  GS+GH ) M . 07*RND  < 1>> • GS=GS- 
RD+GH 

220  J=INT<RND<1)*25) : IFWF=1 . 5THENWK* 

INT< . 3*RND< 1 )*P) : G0T0224 
222  WK=0 

224  AR= I NT  < AR+  < 5- VH ) «GS/600+ 1 ) : I FAR< 

«99THEN228 

226  AR=99 

228  I FAR<0THENAR=0 

230  P=P+AR-SP-WK : VR=VR+1 

232  GOSUB 102: GOTO 126 

234  PRI NT " [ CLR ] [ CRSRD ] [ SH I FTH ] AS [ SPC ] 

VEND I DO [ SPC ] TODA [ SPC ] TU [ SPC ] T I  ERRA . E 
L [ SPC ] JUEGO [ 5SPC ] SE [ SPC ] HA [ SPC ] ACABA 
DO” 

236  PR I NT " [ CRSRD ] [ SH I FT A ] B ANDONA [ SPC ] 

TU [SPC] REI  NADO." 

238  CA=CA+ 1 NT  <  GS7K > : B$= " [ SH I FTM ] E JOR 
ASTE" 

240  I FCA< 1 1 30THENBi= " [SHIFTE] MPEORAS 
TE" 

242  PRI NT " [ CRSRD ] [ SH I FTD ] URANTE [ SPC ] 

TÚ [ SPC ] RE I NADO  > [SPC] " > B$ : PRINT" [SPC] 

EL [SPC] ESTADO"; 

244  PR  I  NT  "  C  SPC  ]  DEL  C  SPC  ]  RE  I  NO  [  SPC  ]  EN  C  SPC  ] 
UN"  PRINTINT(<CA/1130>*1000>710;  “Y." 

246  PRINT"AL[SF'C]CABO[SPC]DE"VR; "ANCCRSRL] 
[CRSRU] [COMM0] [CRSRD] OS.  " 

248  END 


VIC-20 

10  REM  GOBIERNA  TU  REINO 
1 2  XM=242 : P0KE36879 .93: P0KE646 , 0 : I FP 
EEK < 4036 )THENXM» 194 
1 4  P0KE36869 . XM : P= 1 00 : AR= 1 0 : SP=0 : RD= 

150 : VH=3 : GH=3000 : CA=1000 : VR=1 : GS=285 
0 

16  G0T0114 
18  REM  SUBRUTINAS 

20  PR I NT " [ CLR ] [ VEL ] [ RVSON ] [3SPC] [SHIFTE] 
ST  ADO  [  SPC  ]  DEL  [  SPC  ]  RE  I  NO  [  3SPC  ]  [  RVSOFF  ] 

22  PRINT" [CRSRD] [WHT] [RVSON] [SHIFTP] 
OBLACION: ";p 

24  PR I NT "[ RVSON] [SHIFTA] GRES : ".CA 
26  PRINT" [RVSON] [SHIFTA]RR.  [SPC] [SHIFTA] 
LMACENADAS : " ; GS 
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28  PR I NT " L BLK ] [ CRSRD ] [SHIFTE] STAMOS [ SPC ] 
ENCSPC3" ;PW$ 

30  PRINT" [RVSON] [223PC] [RVSOFF] " : RET 
URN 

32  I*VALÍI$>  ¡  I=INT<ABS(I>)  : RETURN 

34  REM  LAZO  BE  RETARDO 

36  FGRX=1TÜ4000  :  NEXT  ■'  RETURN 

38  REM  ESPERA  UNA  TECLA 

40  PR I  NT " [ CRSRB ] C 4SPC ] [ SH I FTP  3 ULSfl [ SPC ] 

UNA[SPC]TECLA" 

42  GETAÍ : IFA*=""THEN42 
44  RETURN 

46  PRINT" CCLR] [RVSON]¡t¡[SPC]  [SHIFTS]A 
LUBOS  [  SPC ] GRAN [  2SPC  K  SH I FTR  ]EY  [  SPC ] ! 
i*  CRVSOFF]" 

48  PRINT" [CRSRB] C8HIFTHIECSPC3BECSPC] 

DEC I RTE  C  SPC ] QUE  C  SPC ] EN  C  2SPC ] EL  C 2SPC ] 

RN  C  CRSRL ] C  CRSRU ] C  CGMM0 ] C  CRSRB ] O  C  SPC ] 

C  RVSON ] " ; VR ; " C  RVSOFF ] BE  C  SPC ] TU " 

50  PRINT "REI NABO : " J 
52  IFSP=1THEN58 

54  I FSP-0THENPR I NT " C  SH I FTN ] RB I E  C  SPC ] 

MUR I O  C  SPC ] BE  C  SPC ] HAMBRE , Y " ¡ GOTO60 
56  PRINTSPl  " PERSONAS C SPC] MUR IERONC SPC] 

BE  C2SPC] HAMBRE [ SPC ] V  C  SPC ] " ¡  • GOTÜ60 
58  PR I NT " C  SH I FTU ] N A C SPC ] PERSONA C  SPC ] 

MUR I O  C  SPC ] BE  C  2SPC ] HAMBRE  C  SPC ] V [ SPC ] " 

60  IFWKOTHEN68 

62  I FWK= 1 THENPR I NT " [ SH I FTU] NA " 1  : GOTO 
66 

64  PRINTWKJ 

66  PR I NT " C SH I FTM ] UR I ERÜN [ SPC ] EN [ SPC ] 
BATALLA" 

68  IFAR=1THEN?2 

70  PRINTARi "PERSONAS CSPC] VINIERON CSPC] 

AL t SPC] REI NO" : G0T076 

72  I FSPC 1 0ANDSP> 1 ANBUKC 1 THENPR I NT " C  SPC ] 

74  PR  I  NT  "  [  SH  I  FTU  ]  NA  C  SPC  ]  PERSONA  C  SPC  ] 

V I  NO  C  SPC ] AL  C  SPC ] RE  I NO . " 

76  PRINT" CCRSRB] [ SH I FTR ]ECÜLECTAMOS " 

;GH 

78  PRINT  "ARROBAS,.  [SPC]ACSPC]RAZONCSPC] 

BE" ; YH, " ARROBAS [ SPC ] POR  C  SPC ] ACRE " 

80  REM 

82  PRINT" [SHIFTL ] AS [SPC] RATAS [SPC] BE 
STRUVERON " i RB ; " [ SH I FTA ] RROBAS . " 

84  PRINT" [SHIFTD] E JANDO " ;  GS  j 11  [SHIFTA] 
RROBAS" 

86  PRINT "ALMACENADAS." 

88  PRINT" [CRSRB] [SHIFTE]L[SPC]REINO[ SPC] 
TIENE" ¿CA 

90  PRINT" ACRES [ SPC ] DE [ SPC ] T I ERRA . " 

32  RETURN 

94  PRINT" [CRSRB] [SHIFTO] [SHIFTH] CSPC] 

[ SH I FTR ] EV . . . P I ENSALO  C 5SPC ] BE [ SPC ] NU 

EVO  ! 11 :  G0SUB36 :  RETURN 

96  PR  I  NT 11  [  CRSRB  ]  [  SH  I FTL  ]  OS  [  SPC  ]  CAMPE 

5 1  NOS  [  8SPC  ]  HAMBR I  ENTOS  [  SPC  ]  ATACARON  [  2SPC  ] 
LOS [SPC] GRANEROS" 

38  PRINT "DESTRUYENDO [ SPC ] EL [ SPC ] 5Ü>¡ [ SPC ] 
BEL [ SPC ] GRANO [ SPC ] ALMACENADO " 

100  GS= I NT ( GS/2 ] : WR=0 : G0SUB36 : RETURN 

102  I F J>0THENRETURN 
104  P=P-INT (PZ2> : PRINT" [SHIFTLIACSPC] 
PLAGA [ SPC ] MATO [ SPC ] A [ SPC ] LA [ SPC ] M I T A 
B [ SPC ] DE [ SPC ] LA [ SPC ] POBLAC I ON . " 

106  PRINT" [ SHIFTL ]A[SPC]POBLACION [SPC] 

ES [ SPC ] DE " . P ; " . " ^  G0SUB36 : RETURN 
108  I FSPCPTHENRETURN 

lia  PR I NT " [ CLR ] [ 2CRSRD ] [ SH I FTT  30D0S [ SPC ] 
TUS  [  SPC  ]  SIJBB I  TOS  [  SPC  ]  HAN  [  SH  I  FTM  ]  UERT 

O . [  1 0SPC  ]  [  CRSRD  ][SHIFTT]U[  SPC  ]  T 

AMBIEN ! [2CRSRB] " 

112  G0T0236 

1 1 4  PR I  NT " [ CLR ] [ RVSON ] [ 3SPC ] [ SH I FTG ] 

OB I ERNA [ SPC ] TU [ SPC ] RE I NO [ 2SPC ] [ RVSOFF ] 


116  PRINT" [CRSRD] [SHIFTE]RES[SPC]ELCSPC] 
GOBERNANTE  [  SPC  ]  BELANT I GUO  [  SPC  ]  RE  I  NO  [  SPC  ] 
BE [ 6SPC ] [ SH I FTB ] AB I LONA " 

118  PRINT" [CRSRD] [SHIFTEILÍSPCJQBJET 
O [ SPC ] BEL [ SPC ] JUEGO [ SPC ] ESMANTENER [ SPC ] 
PROSPERO [ SPC ] EL [ 2SPC ] RE I NO " 

120  PRINT" [CRSRD] [SHIFTS] I [SPC]QUIER 
ES [ SPC ] ACABAR ,  [ 4SPC ] VENDE [ SPC ] TOBA [ SPC ] 
LA[SPC]TIERRA. " 

122  G0SUB38 

124  ZZ=RND<TI): GOTO 128 

126  ZZ=RND< 1 ) : IFZZC.  3THENPW*-" [SHIFTG] 

[SHIFTU] [SHIFTE] [2SHIFTR] [SHIFTA] " ¡ U 

F=1.5-GOTO130 

128  WF=1 : PW$=" [SHI FTP] [SHIFTA] [SHIFTZ] 

1 30  G0SUB46 : G0SUB38 : GOSUB20 

132  K=INT<RND<  1  >*12+16)  •'  PRINT" [SHIFTL] 

A [ SPC ] T I ERRA [ SPC ] ESTA [ SPC ] A " j K 
134  PRINT" [SHIFTA] RROBAS [ SPC ] EL [ SPC ] 
ACRE. [CRSRB]" 

1 36  PR I NT " [ RVSON ] [ SH I FTC ] [ RVSOFF ] OMP 
RA ,í RVSON ] [ SH I FT V ] [ RVSOFF ] ENDE . O [ 8SPC ] 

[ RVSON ] [ SH I FTM ] [ RVSOFF 1 ANTEN [ SPC ] LA [ SPC ] 
TIERRA" 

138  G0SUB42 

140  IFA$="C"QRA$="V " ORA$= " M " THEH 1 44 

142  PRINT" [2CRSRLH CRSRU] " : GOTO 138 

144  IFAí="M"THEN172 

146  PR I NT " [ CRSRB ] [ SH I FTC ] UANTOS [ SPC ] 

ACRES" 

148  I NPUT " [ 2SPC ] * [ 3CRSRL ] ",I * 

150  I F I * "THENPR I NT " [2CRSRU] " : GOTO 
148 

152  G0SUB32 : IFI=0THEN172 

154  IFAí=" V"THEN164 

156  J“I#K : IFJ<=GSTHEN160 

158  G0SUB94 : GOSUB20 : GOTO  136 

160  GS=GS-J : CA=CA+I 

162  GOSUB20 • GOTO 1 72 

164  IFI=CATHEN234 

166  IFI>CATHENG0SUB94 : GÜSUB20 : G0T014 
6 

168  CA=CA-I :GS=GS+K*I 
170  GOSUB20 

172  PR I NT : PR I NT " [ SH I FTC ] UANTOS [ SPC ] A 
CRES [ SPC ] PARA [ SPC ] AL  I MENTAC I ON " 

174  INPUT " [ 2SPC J ♦ [ .  RiKL 1 " •  1  $ 

176  IF 1*="*" THENPR INT "[ 3CRSRU ]": GOTO 
174 

178  G0SUB32 

180  IFK-GSTHEN184 

182  G0SUB94 : GOSUB20 : GOTO 172 

184  IFIX5*P>THEN190 

136  I F I >GS74THEN  í 90 

188  WR=1 

190  GS=GS-I :  SP=P-INT  <  1720]  :  AR*=0  ¡  GOSU 

B 1 08 : I FSP>=0THEN 194 

192  AR=-SP72 : SP=0 

194  I F WR= 1 T HENG0SUB96 

136  GOSUB20 

198  PR 1 NT " [ SH I FTC ] U ANTOS [ SPC ] ACRES [ SPC ] 
PARA [SPC] CULTIVOS" 

200  I NPUT " [ 2SPC ] * [ 3CRSRL ] ” i  1  $ 

202  I F I  *<="*"  THENPR  I  NT 1 "  [  3CRSRU  ]  “  :  GOTO 
200 

204  GÜSUB32 

206  IFI>CATHEN214 

208  J=INT<I/'2)  :  IFJ>GSTHEN214 

210  IFI>(10*P/WF>THEN214 

212  G0TÜ218 

2 1 4  GÜSUB94 ; G0SUB28 : GOTO 1 38 

216  REM  CALCULO  ANUAL 

218  GS=GS-J : YH=1  +  INT CRND< 1 )#5} : GH=YH 

#1 •RD=INT<(GS+GH>*.07*RNB<1>] : GS=GS- 

RD+GH 

220  J=INT <RND< 1 >*25> : IFWF=1 . 5THENWK= 

I NT  C . 3*RND <11*P) : G0T0224 
222  UK»8 


224  flR®INTO=lR+(5-VH)*GS/É00+l>  :  IFAR< 

=39THEN228 

226  AR=99 

228  IFAR<0THENAR=0 

230  P=P+AR-SP-WK :  YR=VR+1 

232  GOSUB 1 02 : GOTO 1 26 

234  PR  I  NT  "  [  CLR  3  [  CRSRB  3  [  SHI FTH  3ASC  SPC  3 

VENB I BÜ [ SPC  3 TOBA  C SPC  3  TU  C  3SPC ] T I ERRA [ SPC  3 

V [ SPC  3  EL [ SPC  3  JUEGO [  SPC  3  SE  [  2SPC 3  HA [ SPC  3 

AC ABABO" 

236  PR I NT " C  CRSRB  3 [ SH I FTP  3  UEBES [ SPC  3  A 
BANBGNAR [ SPC  3  EL  C  3SPC  3  RE I NO . " 

238  CACA+INTtGS/lG  : Bi="CSHIFTM3EJOR 
ASTE" 

240  I FCA< 1 1 30THENB* = " [  SH I FTE  3 MPEÜRAS 
TE" 

242  PR I NT " C  CRSRB  3  C SH I FTB  3 URANTE [ SPC  3 
TU [SPC 3 REI NABO i " • PRINTBí ; " [SPC 3 EL [SPC 3 
ESTABO" 

244  PR  I  NT  "  BEL  [  SPC  3  RE  I  NO  [SPC  3  EN  [SPC  3  U 
N“;  INT<(CA/'1130>#1000V10;  ">¡[SPC3" 

246  PRI NT "AL [SPC 3 CABO [SPC 3 BE"; VR; "AN 
[ CRSRL 3 [ CRSRU 3  C COMM0 3 [ CRSRB  3  OS . " 

248  ENB 


-Magia 

Ayuda  para  teclear  los  listados 

Cuando  estamos  copiando  un  programa,  tenemos  que  mirar 
a  tres  sitios  a  la  vez:  Al  teclado,  a  la  pantalla  y  al  listado. 
Como  sólo  tenemos  dos  ojos,  esto  hace  un  poco  lento  el 
copiar  los  programas. 

Una  manera  de  solucionarlo  es  grabar  en  una  cinta  el  pro¬ 
grama  hablado,  y  después  irlo  tecleando  a  medida  que  lo 
vamos  oyendo.  Además  esto  es  bastante  útil  para  corregir 
los  listados,  ya  que  puede  irse  revisando  mientras  lo  vamos 
oyendo. 

J.B.  RUN  EE.UU. 

Magia  con  el  cursor 

Para  hallar  en  cualquier  momento  en  qué  lugar  se  encuentra 
el  cursor,  podemos  usar  la  siguiente  subrutina: 

20  POKE783,PEEK(783)OR1:SYS65520:R=PEEK(781):C= 
PEEK(782):RETURN 

R  es  la  fila,  y  C  la  columna  eft  la  que  el  cursor  se  encuentra, 
siendo  la  primera  posición  la  0. 

B.G.A.  RUN  EE.UU. 

Funciones  LOG  y  EXP. 

Las  funciones  del  basic  LOG  y  EXP  trabajan  en  base  e, 
siendo  e  la  constante  2.71828182845904...  Nosotros  estamos 
acostumbrados  a  la  base  decimal  (10).  Sin  embargo,  se 
puede  definir  fácilmente  un  cambio  de  base  del  siguiente 
modo: 

DEF  FN  L(X)=LOG(X)/LOG(10) 

Para  hallar  el  logaritmo  decimal  de  un  número,  ejecuta  la 
orden  FN  de  la  siguiente  forma: 

Variable=FN  L(número) 

EXP  es  la  función  hermana  de  LOG,  calcula  el  valor  de  e 
elevado  a  la  potencia  que  se  encuentra  entre  paréntesis.  Pará 
hacerlo  en  base  10: 

DEF  FN  E(X)=EXP(X*  LOG(  10)) 

Para  comprobar  que  funciona,  basta  con  hacer:  PRINT  FN 
L(1000),  y  nos  dará  3,  (como  todos  los  estudiantes  de  mate¬ 
máticas  saben)  y  PRIN  FN  E(3)  nos  dará  1000,  pues  es  la 
función  inversa  de  la  anterior. 


Ahorrando  tiempo 

Una  manera  fácil  de  ahorrar  tiempo  cuando  queremos  hacer 
un  POKE  con  un  valor  cero  es  teclear:  POKE  XXXX,.  El 
punto  es  interpretado  por  el  ordenador  como  un  cero,  y  de 
este  modo  ahorramos  unos  microsegundos  en  nuestros 
programas. 

R.A.A.  RUN  EE.UU. 

Errores  en  el  cassette 

Si  encuentras  muchos  errores  en  la  carga,  verificación  o 
grabación  de  programas,  esto  puede  ser  debido  (si  usas  la 
unidad  de  discos)  a  que  tengas  en  memoria  el  programa 
WEDGE. 

Para  solucionarlo,  teclea  @Q.  Esto  desconecta  el  programa 
y  puede  que  solucione  algunos  problemas.  Para  volver  a 
conectarlo  teclea  SYS52224  y  a  continuación  @8. 

A.S.  RUN  EE.UU. 
Carga  rápida  desde  el  disco 
Cargar  un  programa  desde  la  unidad  de  discos  1541  puede 
ser  muy  fácil  si  usas  el  siguiente  truco: 

Listas  el  directorio,  mueves  el  cursor  hasta  la  fila  en  la  que 
está  el  programa  que  quieres  cargar;  tecleas  L[SHIFT  0],  (el 
comando  LOAD  abreviado);  mueves  el  cursor  hasta  el  final 
de  las  comillas  y  entonces  borras  la  palabra  PRG  con  la 
barra  de  espacios.  Ahora  escribes  ,8  (o  ,8,1  si  es  un  pro¬ 
grama  en  lenguaje  máquina). 

Si  quieres  ahorrarte  el  borrar  PRG,  escribe  después  de  las 
comillas  ,8:.  Esto  hará  que  el  ordenador  se  olvide  de  lo  que 
viene  a  continuación. 

C.J.  RUN  EE.UU. 

Abreviaturas 

Como  seguramente  sabrás,  el  basic  commodore  ofrece  la 
posibilidad  de  abreviar  algunos  de  los  comandos  basic. 

Las  abreviaturas  NO  ahorran  memoria  a  la  hora  de  ejecutar 
un  programa,  sino  que  hacen  ganar  tiempo  cuando  lo  estás 
tecleando. 

Por  ejemplo;  la  orden  PRINT  puede  abreviarse  como  “?”. 
Ambas  formas  son  codificadas  por  el  ordenador  como  153, 
que  es  el  código  de  dicha  instrucción.  Aunque  PRINT  ocupe 
5  caracteres  y  “?”  solo  1 ,  ambos  ocupan  un  solo  BYTE  de 
memoria. 

Hablando  de  abreviaturas.  Recuerda  que  no  puedes  utilizar 
el  símbolo  “?”  para  abreviar  el  comando  PRINT#.  La  abre¬ 
viatura  correcta  de  PRINT  es  P[SHIFT  R],  que  equivale  a 
152. 

Si  intentas  abreviar  PRINT#  como  “?#”,  el  intérprete  basic 
lo  entenderá  como  un  153  (PRINT)  seguido  de  35  (el  códi¬ 
go  de  “#”),  y  al  ejecutarlo  te  dará  una  SYNTAX  ERROR. 
Lo  mismo  sucede  con  las  instrucciones  GET#  e  INPUT#, 
aunque  GET#  no  tiene  abreviatura  en  basic. 

I.A.  RUN  EE.UU. 

Instrucciones  Basic 

Algunas  instrucciones  basic,  realizan  por  sí  mismas  la  fun¬ 
ción  INT  antes  de  procesar  el  dato  que  se  les  entrega.  Este  es 
el  caso  de  las  funciones:  CHR$,  MID$,  RIGHTS,  LEFT$, 
PEEK,  POKE,  SPC,  TAB,  DIM,  GOTO  y  GOSUB. 

Esto  quiere  decir  que  no  hace  falta  teclear: 

POKE  7680,INT  (RND(1)*255) 

Basta  con  poner: 

POKE  7680,RND(1)*255 

I.A.  RUN  EE.UU. 

Sustituyendo  al  joystick 

Si  tienes  un  C-64  pero  no  tienes  joystick,  puedes  simularlo 
desde  el  teclado.  No  es  lo  más  conveniente  del  mundo  pero 


unciona. 

PORT  1 

PORT  2 

BOTON 

espacio 

espacio  y  “M’ 

ARRIBA 

tecla  “1” 

espacio  y  “F1 

ABAJO 

flecha  izq. 

espacio  y  “Z” 

IZQUIERDA 

tecla  CTRL 

espacio  y  “C” 

DERECHA 

tecla  “2” 

espacio  y  “B” 

F.E.  RUN  EE.UU 

P.S.  RUN  EE.UU. 


Un  artista  con  ¡oystick 


Por  Michael  Platt 

C-64 

(RUN  EE.UU.) 

Joystick 

¡Deja  que  tu  talento  creativo  fluya  libremente!  Con  este 
programa  podrás  utilizar  el  joystick  y  las  posibilidades  gráficas 
del  C-64  para  dibujar,  pintar  o  garabatear  a  tu  antojo. 

Las  posibilidades  que  ofrece  el  Commodore  64  para  realizar 
gráficos  en  color  son  verdaderamente  sorprendentes.  En  el 
modo  multicolor,  se  pueden  utilizar  hasta  cuatro  colores 
distintos  en  una  matriz  de  8  X  8  puntos.  Lamentablemente,  la 
falta  de  comandos  incorporados  en  el  Basic  obliga  a  utilizar 
numerosos  e  incómodos  Peeks  y  Pokes. 

Este  programa  aporta  una  solución  al  problema.  Ahora  podrás 
dibujar  con  varios  colores  desplazando  el  cursor  por  la 
pantalla  con  un  joystick.  Además,  podrás  guardar  tus  obras  de 
arte  en  cassette  o  disco. 

Variedad  de  colores.  Al  ejecutar  el  programa,  el  borde  será  de 
color  azul,  y  el  fondo  negro.  Estos  colores  se  pueden  cambiar 
con  las  teclas  F5  y  F7. 

Debes  enchufar  el  joystick  en  el  conector  2.  El  cursor,  que 
puede  desplazarse  en  cualquier  dirección  usando  el  joystick, 
estará  situado  en  el  centro  de  la  pantalla.  Para  dibujar  pulsa  el 
botón  de  disparo. 

El  estado  del  programa  se  indica  en  la  esquina  superior 
izquierda.  En  el  recuadro  izquierdo  podrá  ver  un  1,2  6  3  que 
indican  el  modo  de  dibujo  en  que  se  encuentra,  o  una  E  para 
indicar  el  modo  de  borrar  (Erase).  El  recuadro  de  la  derecha 
muestra  el  color  en  que  va  a  dibujar  el  cursor.  Entre  los  dos 
recuadros  verás  uno  o  dos  puntos  que  indican  si  el  cursor  es 
normal  o  doble. 

En  una  matriz  de  puntos  de  8  X  8,  sólo  se  puede  utilizar  un 
color  para  cada  modo  de  dibujo.  Para  poder  utilizar  cuatro 
colores  distintos,  incluyendo  el  color  de  fondo,  es  necesario 
emplear  los  tres  modos  de  dibujo.  Con  la  letra  F3  se  eligen  los 
modos  dibujar  o  borrar. 

El  cursor  puede  dibujar  en  16  colores:  negro,  blanco,  rojo, 
cian,  púrpura,  verde,  azul,  amarillo,  naranja,  marrón,  rosa,  gris 
oscuro,  gris,  gris  claro,  verde  claro  y  azul  claro.  Los  colores  se 
eligen  con  la  tecla  Fl. 

Las  claves  del  color.  El  trazo  del  cursor  puede  ser  fino  o 
grueso.  En  el  modo  fino,  el  cursor  utiliza  un  área  de  1  X  2.  La 
tecla  de  asterisco  (*)  pasa  el  cursor  de  un  tipo  de  trazo  al  otro. 
Las  teclas  numéricas,  del  uno  al  nueve,  controlan  la  velocidad 
del  cursor.  La  tecla  número  uno  es  la  de  mayor  velocidad,  y  la 
nueve  la  menor  (para  trabajos  de  detalle). 


La  tecla  CLR/home  con  shift  borra  toda  la  pantalla. 

La  tecla  de  libra  (£)  con  shift  te  permite  guardar  en  la  memoria 
los  colores  de  borde  y  de  fondo  que  más  te  gusten.  Para 
llamarlos  basta  con  volver  a  pulsar  esta  tecla. 

Para  ver  tu  dibujo  limpio  de  polvo  y  paja,  pulsa  la  tecla  con  el 
signo  menos.  Desaparecerá  el  cursor  y  el  recuadro.  Para 
recuperarlos,  pulsa  la  tecla  con  el  signo  más. 

Cuando  hayas  terminado  de  dibujar,  podrás  salvar  tus  diseños 
en  un  disco  pulsando  la  tecla  F2.  Con  la  tecla  F4  los  podrás 
cargar  posteriormente.  En  caso  de  que  utilices  un  cassette, 
sálvalos  con  la  tecla  F6  y  cárgalos  con  la  tecla  F8. 

Sea  cual  sea  el  soporte  utilizado,  el  programa  te  pedirá  que 
especifiques  un  nombre  para  el  fichero.  Una  vez  que  lo  hayas 
introducido  pulsa  la  tecla  Return.  Para  salir  del  modo  SAVE 
(Salvar)  o  LOAD  (Cargar),  pulsa  la  tecla  Return  y  luego  la 
tecla  run/stop,  con  lo  cual  pasará  al  modo  normal  Draw. 
Cuando  salvas  un  fichero  que  haya  de  sustituir  a  otro  fichero 
del  mismo  nombre  ya  existente  en  el  disco,  tecla  “@0:”  antes 
del  nombre  del  fichero. 

En  la  tabla  1  figura  un  resumen  de  los  comandos. 


Tabla  1.  Resumen  de  las  teclas  de  comando 


Tecla 

Comando 

Fl 

Cambia  color  de  dibujo  del  cursor 

F3 

Cambia  modo  de  dibujo  (1,  2,  3  ó  E) 

F5 

Cambia  color  del  borde 

F7 

Cambia  color  del  fondo 

F2 

Salva  dibujo  en  disco 

F4 

Carga  dibujo  desde  el  disco 

F6 

Salva  dibujo  en  cassette 

F8 

Carga  dibujo  desde  cassette 

uno  a  nueve 

Elige  velocidad  del  cursor 

Menos 

Elimina  el  cursor  y  el  recuadro 

Más 

Activa  el  cursor  y  el  recuadro 

CLR  Home 

Borra  la  pantalla 

Libra  mayúscula 

Salva  los  colores  de  fondo  y  de  borde 

Libra 

Recupera  colores  de  fondo  y  de  borde 

Asterisco 

Fija  el  trazo  (grueso  o  fino)  del  cursor 

El  Cargador.  Cuando  hayas  tecleado  el  programa,  primero 
sálvalo  en  disco  o  en  cassette,  ya  que  se  borrará  a  sí  mismo 
tras  su  ejecución.  Comprueba  que  la  copia  es  buena.  Teclea 
RUN  para  ejecutar  el  programa,  y  pulsa  la  tecla  Return.  De 
este  modo  el  programa  en  lenguaje  máquina  quedará  escrito  en 
las  direcciones  altas  de  la  RAM  $C000-CFFF.  Una  vez  escrito 
el  programa  en  la  memoria,  no  es  necesario  volver  a  cargarlo. 
Cuando  quieras  salir  del  programa,  pulsa  la  tecla  Run/stop  y 
la  tecla  Restore.  Mientras  no  escribas  nada  en  estas  direcciones 
altas  de  la  RAM,  podrá  ejecutar  un  programa  Basic  sin 
destruir  el  código  en  el  lenguaje  máquina.  No  obstante,  el 
programa  de  gráficos  podría  afectar  a  un  programa  en  Basic, 
por  lo  que,  antes  de  nada,  debes  salvarlo  en  la  memoria. 

Teclea  SYS52992  para  volver  a  activar  el  programa  gráfico,  y 
pulsa  la  tecla  Return. 

Antes-  de  finalizar,  salva  el  dibujo  que  haya  en  la  memoria.  Si 
no  lo  haces,  dicho  dibujo  se  borrará. 

La  comprobación.  Las  líneas  20  a  50  contienen  una 
comprobación  que  te  permitirá  saber  si  has  tecleado  una 
sentencia  data  incorrectamente.  Una  vez  introducido  y 
comprobado  todo  el  programa,  podrás  borrar  estas  líneas. 

Mapas  multicolores  de  bits.  Los  mapas  multicolores  de  bits 
permiten  crear  figuras  multicolores  muy  detalladas.  Con  este 
método,  se  puede  visualizar  en  la  pantalla  una  sección  de  8K 
de  memoria.  En  este  caso  la  sección  de  memoria  ocupa  las 
direcciones  S2000-3F3F.  Cada  dos  bits  (par  de  bits)  de  esta 
sección  de  8K  controlan  un  punto,  y  hay  32.000  (160X200) 
puntos  en  la  pantalla. 

Las  distintas  combinaciones  de  un  par  de  bits  determinan  el 
color  de  cada  punto.  Con  dos  bits  se  pueden  hacer  cuatro 
combinaciones  de  color:  con  los  dos  bits  a  cero  (00),  con  los 


dos  bits  a  uno  (11),  o  uno  a  cero  y  el  otro  a  uno  (01  y  10).  En 
la  tabla  2  se  detalla  de  dónde  procede  la  información  de  color. 


Tabla  2.  Procedencia  de  la  información  de  color 

Par  de  bits  La  información  de  color  proviene  de 

00  Color  de  fondo  $D021 

01  4  bits  más  significativos  de  memoria  de 

pantalla.  $0400-07FF 

10  4  bits  menos  significativos  de  memoria  de 
pantalla  $0400-07 F 

1 1  4  bits  de  color  $D800-DBFF 


Subrutina  de  puntos.  El  núcleo  de  este  programa  gráfico  está 
constituido  por  una  corta  subrutina  almacenada  en  las 
direcciones  SC000-C130,  que  se  podría  transportar  a  otros 
programas  de  gráficos  de  alta  resolución. 

Antes  de  utilizarlo,  es  necesario  llamar  a  la  rutina  de 
inicialización  que  empieza  en  SC0E7.  Dicha  rutina  activará  un 
punto  o  un  par  de  puntos  en  las  coordenadas  X  e  Y  de  la 
pantalla. 

El  rango  de  X  va  de  0  a  319  (horizontalmente)  y  el  rango  de  Y 
va  de  0  a  199  (verticalmente).  La  posición  0,0  se  encuentra  en 


Tabla  3.  Posiciones  de  memoria  utilizadas 

S00FD-00FE  Byte  en  mapa  de  bits  en  que  se  fija  el  bit 
$0022-0023  Zona  de  almacenamiento  provisional 

$0024  Velocidad  del  cursor 

$0025  Cassette  o  disco 

$0026  Trazo  doble  o  sencillo 

$0027  Zona  de  almacenamiento  provisional 

$003F-0041  Zona  de  almacenamiento  provisional 

$00A5  Modo  de  dibujo 

$OOA6-OOA7  Byte  de  color 

$00A8  Color  del  cursor 

$033C-033F  Zona  de  almacenamiento  provisional 

$0340-0341  Coordenada  X 

$0342  Coordenada  Y 

$CFFD-CFFF  Zona  de  almacenamiento  provisional 

$2000-3F3F  Zona  del  mapa  de  bits 

$3F45-3F46  Zona  reservada  para  colores  de  fondo  y 

de  borde 

$4000-43FF  Zona  reservada  para  mapa  de  color 

$4400-47  FF  Zona  reservada  para  mapa  de  pantalla 

$C000-C0E6  Rutina  principal 

$C0E7-C130  Inicializar  mapa  de  bits 

$C150-C1D3  Mover  cursor 

$C300-C34C  Dibujar 

$C400-C4FC  Leer  teclas-cambia  color  de  cursor/cambia 

modo  de  dibujo/cambia  colores  de  borde 
y  fondo/borra  pantalla/cambia  velocidad 
de  cursor 

$C500-C584  Escribe  byte  en  mapa  de  color 

$C600-C676  Visualización  del  modo  de  dibujo 
$C700-C742  Leer  teclas-cambio  de  trazo  doble  o 

sencillo  del  cursor 
$C900-C96F  Carga 

$CA00-CA7A  Almacenamiento 

$CB00-CB6E  Inicialización 

$CC00-CC4F  Datos  para  la  pregunta  de  guardar/ cargar 

$CC50-CCCF  Datos  del  recuadro  de  status 
$CD00-CD8B  Aceptar  nombre  para  guardar/ cargar 

$CE00-CE37  Transferir  memoria  a  zona  de  alma¬ 

cenamiento 

$CE50-CE87  Transferir  memoria  desde  zona  de  alma¬ 
cenamiento 

$CF00-CF17  Subrutinas  de  bucles 

$CFA0-CFAB  Transferir  datos  del  recuadro  de  status  a 
memoria  intermedia 


la  esquina  izquierda  superior  de  la  pantalla.  Antes  de  entrar  en 
la  rutina,  la  coordenada  X  debe  estar  guardada  en  las 
posiciones  $0340-0341,  y  la  coordenada  Y  en  la  posición  $0342. 
Se  necesitan  dos  bytes  para  la  coordenada  X  porque  el  rango 
de  X  es  superior  a  255,  que  es  lo  máximo  que  puede  contener 
un  solo  byte. 

Cómo  funciona  el  programa.  Para  activar  un  punto  hay  que 
encontrar  el  byte  correspondiente  en  la  sección  de  memoria  de 
8K.  Luego  deberá  determinar  cuál  de  los  8  bits  del  byte  hay 
que  modificar. 

Las  fórmulas  que  determinan  los  bits  y  bytes  están  contenidas 
en  la  Guía  de  Referencia  del  Programador  para  el  C-64' 
Byte=Base+(INT(Y/8)*320)+(INT(X/8)*8)+(Y  AND  7) 

Bit  =  7-(X  AND  7) 

“Base”,  en  este  caso,  es  igual  a  8192,  porque  allí  es  donde 
empieza  nuestro  mapa  de  bits.  He  simplificado  la  fórmula  del 
byte  convirtiéndola  en: 

Byte=Base+((Y  AND  248)*40)+(X  AND  248)+(Y  AND  7) 
Luego,  traduje  esta  fórmula  a  lenguaje  máquina,  codificándola 
en  las  posiciones  $C065-C0C0.  Pero,  en  vez  de  activar  el  bit 
correcto  de  este  byte  por  la  fórmula  anterior,  utilicé  un  índice 
a  una  tabla  de  valores  de  máscara  predeterminados.  (Una 
máscara  es  un  conjunto  de  bits  que  “extrae”  uno  o  más  bits  de 
un  grupo  de  bits).  En  caso  de  que  quieras  variar  los  valores  de 
máscara  y  activar  bits  determinados  o  pares  de  bits  en  la 
pantalla  multicolor,  tendrás  que  desplazar  este  índice  al  lugar 
correcto  de  la  tabla  de  máscaras. 

Las  rutinas  de  almacenamiento  y  carga  de  Kernal.  Los  datos  de 
los  dibujos  se  guardan  en  un  bloque  continuo  de  memoria  en 
$2000-47FF.  Antes  de  salvarlos,  los  datos  de  color  para  el  par 
de  bits  11  (por  lo  general,  memoria  de  color)  se  transfieren  a 
las  direcciones  $4000-43FF.  Los  datos  de  color  para  los  pares 
de  bits  01  y  10  (generalmente  memoria  de  pantalla)  se 
transfieren  a  las  direcciones  $4400-47FF.  Al  cargar  un  dibujo 
los  datos  se  transfieren  nuevamente  a  sus  posiciones  correctas. 
Para  el  almacenamiento  y  carga  de  los  dibujos,  utilicé  las 
subrutinas  SETLFS  y  SETNAM  de  Kernal. 


15  PR I NTPR I NT " CCLRICARGANDÜ CSPC1LEH 
GUAJE C SPC 3 MAQU I NA C SPC ]  :  CSPC 3 ESPERE" 

19  REM  SUMA  DE  CONTROL 

20  Z*0 : S=206 1 22 : FORT-0TO 1809: READA : Z 
=Z+A : NEXT 

30  I FZ-STHENPRINT " SENTENC I AS í SPC ] DAT 
HC SPC] CORRECTAS" :GÜTO50 
40  I FZOSTHENPR I NT " ERROR C SPC 3 EN C SPC 3 
LAS [ SPC  3  SENTENC I AS  C SPC  3  DATA " : END 
30  RESTORE 

99  REM  RUTINA  PRINCIPAL 

1 00  FGRT-49 1 52T049456 : READD : POKET , D : 
NEXT 

110  DATA128,  64*32.1 16,8,4,2,1,192, 192 
, 48/ 48, 12, 12, 3 

120  DATAS, 128, 128,32,32,8,8,2,2,64,6 
4,16,16,4,4,1 

130  DATA1 , 63, 63, 207, 207, 243, 243,252, 

252, 169,8, 133,34,36, 176,29 

140  DATA169, 16, 133,34,56, 176,22, 169, 

24, 133,34,56, 176, 15, 169,32 

150  DATA133, 34, 56, 176,8, 169,0, 133,34 

,56,176,1,96,173,65,3 

160  DATA201 ,2, 176, 248, 201 , 1 , 208, 7, 17 

3,64,3,201,64, 176,237,  173 

170  DATA66 , 3 , 20 1 , 200 , 176,230, 169,0, 1 

41,63,3,133,254,173,64,3 

180  DATA4 1,248, 141,60,3, 173,66,3,41, 

7,24, 109,60,3, 141,60 

190  DATA3, 173,65,3, 105,0, 141,61,3, 17 

3,66,3,41,248, 133,253 

200  DATA160, 5, 10,46,63,3, 136,208,249 

, 141,62,3, 165,253, 160,3 

210  DATA10, 38, 254, 136,208,250,24,  109 

,62,3, 133,253, 165,254, 109,63 
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220  DATA3, 133/ 254*  24; 163/253, 109,60, 

600  DRTA162, 3, 142,21,208,201,139,208 

3, 133,253, 163,254, 109,61,3 

,7, 162, 1, 134,37,32,0,202 

230  DATA24, 105, 32, 56, 133, 254- 173, 64, 

610  DRTR201 , 140,208,7, 162,  1,  134,37,3 

3,41,7,24, 101,34, 170,  189 

2,0,201,201,169,208, 12,174 

240  DATA0,  192,  133,35, 160,0,  177,253, 1 

620  DATA33, 208, 142,254,207, 174,32,20 

66,34,224,32,240,5,5,35 

8, 142,255,207,201,92,208, 12, 174 

250  DATA  1 45 , 253 ,96,37,35, 145,253,96, 

630  DAT A254 , 207 , 1 42 , 33 , 208 ,174, 255 , 2 

162,0, 169,38, 157,0,4, 157 

07, 142,32,208, 133,39,96,2,0 

260  DATA0, 5, 157,0,6, 157,0,7, 169, 1,15 

640  DATA0, 173,0,220,41, 16,208, 125,32 

7,0,216, 157,0,217 

,21,195,165,254,41,7,170 

270  DATA157, 0,218, 157,233,218,232,20 

650  DATA 165, 254, 74, 74, 74, 133, 167, 165 

8,225, 169,63, 133, 167, 169,0, 133 

,253,74,74,74, 133,  166,224,0 

280  DATA166, 168, 145, 166, 136, 192,0,20 

660  DATA240, 15,202,24, 165, 166, 105,32 

8,249, 198, 167, 166, 167,224,31,208 

, 133, 166, 144,242,230, 167,56, 176 

290  DATA241 , 173, 17,208,9,32, 141,17,2 

670  DATA237, 160,0, 165, 165,201,3,208, 

08, 173,24,208,9,8,  141,24 

16, 177, 166,41, 15, 106, 106,106 

300  DATA2Ü8, 96 

680  DATA 106, 5, 168,42,42,42,42,  145,  16 

309  REM  RUTINA  DE  MOVIMIENTO  DEL  CIJR 

6, 165, 165,201,2,208,8, 177 

SOR 

690  DATA 166,  41 , 240, 5, 168, 145, 166, 165 

310  F0RT-49488T049619 : READD : POKET,  D : 

, 165,201, 1,208,40,24, 165, 167 

NEXT 

700  DATA105, 212, 133, 167, 165,253,41,1 

320  DATA230, 63, 165,63, 197,36,208, 123 

, 176, 11, 177, 166,41,240,5, 168 

,169,0, 133,63,173,0,220 

710  DATA145, 166,56, 176, 16, 177, 166,41 

330  DATA41 , 1 , 208, 10, 173, 1 , 208,201, 40 

,15,106,106,106,106,5, 168,42 

,240,3,206, 1,208, 173,0 

720  DATA42, 42, 42, 145, 166,96 

340  DATA220, 41 ,2,208, 10, 173, 1,208,20 

729  REM  RUTINA  DE  DIBUJO  EN  LA  PRNTA 

1,239,240,3,238, 1,208, 173 

LLA 

350  DATA0, 220, 41,8, 208, 32, 173, 16,208 

730  FORT “50688TO50806 : READD : POKET, D : 

,201, 1,208,7, 173,0,208 

NEXT 

360  DATR201 , 62, 240, 18,238,0,208,238, 

740  DATA165- 165,201,3,208,25, 169, 171 

0,208, 173,0,208,201,0,208 

, 141,201,3, 141,204,3, 141 

370  DATAS, 169, 1, 141, 16,208, 173,0,220 

750  DRTA210, 3, 141,213,3, 169, 191,141, 

,41,4,208,20, 173, 16,208 

216,3, 141, 198,3, 141,207,3 

380  DATA201 , 0, 208, 7, 173,0,208,201,0, 

760  DATA201 , 2, 208,27 ,169, 191,141,198 

240,6,206,0,208,206,0 

,3,141,207,3,141,216,3,169 

390  DATA208, 173, 16,208,201,1,208, 12, 

770  DATA171, 141,201,3, 141,204,3, 169, 

173,0,208,201,254,208,5,  169 

186, 141,210,3, 141,213,3,201 

400  DATR0, 141,16,208,9 6 

780  DATA1 , 208,23, 169, 171,141,198,3, 1 

409  REM  RUTINA  DE  DIBUJO 

41,201,3,141,204,3,141,207 

4 1 0  FORT-49920TO49996  :  READD  ■'  POKET ,  D  ¡ 

790  DATAS,  141,210,3, 141,213,3, 141,21 

NEXT 

6,3,201,0,208,25,169,191 

420  DATA173, 16,208, 141,65,3, 173,0,20 

800  DATA141, 198,3, 141,207,3,141,216, 

8, 141,64,3, 173,1,208 

3,  169, 186, 141,201,3,141,210 

430  DATA56, 233,40, 141,66,3, 173,0,220 

810  DATAS,  141,204,3, 141,213,3,96 

,41,16,208,48, 165, 165,201 

819  REM  RUTINA  DEL  CURSOR  SIMPLE  0  D 

440  DATA0, 208, 9, 32, 61 , 192, 206, 66, 3, 3 

OBLE 

2,61,192,165,165,201,1 

820  FORT-50944TO51010 READD  :  POKET,  D : 

450  DATR208, 3, 32, 40, 192, 165, 165,201, 

NEXT 

2,208,6,32,61, 192,32,47 

830  DATA 165, 39,201,42, 208, 15, 166,38, 

460  DATA192, 165, 165,201,3,208,6,32,6 

240,7, 162,0, 134,38,56 

1,192,32,54, 192,96 

840  DATA176, 4, 162,1,134,38, 166,38,22 

469  REM  LEE  EL  TECLADO  X  RUTINAS  PAR 

4, 1,208,25,206,66,3,32 

A  HACER  POKES  DE  COLOR 

850  DATA0, 197, 162, 140, 142,211,3, 142, 

470  FORT-50 1 76TG50564 : READD • POKET , D : 

214,3, 162,  136, 142,217,3, 142 

NEXT 

860  DATA220,  3, 56, 176, 14, 162, 128, 142, 

480  DATA169, 8, 133,37,32, 159,255,32,2 

211,3, 142,214,3, 142,217,3 

28,255,201,133,208, 12,230 

870  DATA 142, 220, 3, 96 

490  DATA168, 166, 168,224, 16,208,4, 162 

379  REM  RUTINA  DE  CARGA 

,0, 134, 168, 166, 168, 142,37,208 

880  F0RT-51456T051567 ¡ READD  =  POKET, D ¡ 

500  DATA201, 134,208, 12, 198, 165, 166, 1 

NEXT  { 

65,224,255,208,4, 162,3, 134, 165 

890  DATA32, 0,206, 165, 165, 141,253,207 

510  BATA201, 135,208, 15,238,32,208, 17 

,169,27,141,17,208,169,21 

4,32,208,224, 16,208,5, 162,0 

900  DATA141, 24,208, 173,33,208, 141,69 

520  DATA142, 32, 208, 201, 136,208, 15,23 

,63, 173,32,208, 141,70,63, 169 

8,33,208, 174,33,208,224, 16,208 

910  DATA0, 141,21,208, 169,6, 141,33,20 

530  DATAS, 162,0, 142,33,208,201,49,20 

8, 160,0, 185,0,204,32,210 

8,4, 162,5, 134,36,201,50 

920  DATR255, 200, 192,40,208,245, 165,3 

540  DATA208, 4, 162, 10, 134,36,201,51,2 

7,201,1,208,13,160,0,185,40 

08,4, 162, 16, 134,36,201,52 

930  DATA204, 32, 210,255, 200, 192,20,20 

550  DATA208, 4, 162,21,134,36,201,53,2 

8,245,32,0,205, 169,0,32,213 

08,4, 162,32, 134,36,201,54 

940  DATA255, 173,69,63, 141,33,208,173 

560  DATR208, 4, 162,48, 134,36,201,55,2 

,70,63, 141,32,208, 169,3, 141 

08,4, 162,64, 134,36,201,56 

950  DATR21 , 288,  32,32, 193,32,80,206,3 

570  DATA208, 4, 162,112, 134,36,201,57, 

2, 160,207, 173,253,207, 133, 165 

208,4, 162,255, 134, 36, 201 , 147 

960  DATA96 

580  DATA208, 3, 32, 8, 193, 201 , 137, 208, 3 

969  REM  RUTINA  DE  SALVAR  EN  CINTA/DI 

,32,0,202,201,138,208,3 

SCO 

590  DATA32, 0, 201 , 201 , 45,208, 5, 162,0, 

970  FORT-5 1712T051834 : READD : POKET , D : 

142,21,208,201, 43,208,  5 

NEXT 
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960  DATA32, 0,206, 165, 165, 141,253,20? 

,  169,27, 141,17,208, 169,21 

990  BATA141 , 24,208, 173,33,208, 141,69 

,63,  173,32,208, 141 , 70, 63, 169 

1000  DATA0, 141,21,203, 169,6, 141,33,2 

08, 160,0, 185,0,204,32,210 

1010  DATA255, 200, 192,20,208,245, 165, 

37,201,1,208, 13, 160,0, 185,40 

1020  DATA204 ,32,210, 255 , 200 , 192,20,2 

08,245,32,0,205,169,17,32,210 

1 030  BATA255 ,169,0, 133,61, 169, 32, 133 

,62, 162,0, 160,72, 169,61,32 

1040  DATA216, 255, 173,69,63, 141,33,20 

8, 169,3, 141,21,208,32,32, 193 

1050  DRTR32 , 80 , 206 , 32 , 160,20?, 173,25 

3.207.133.165.96 

1059  REM  INICIAL IZRCION 

1 060  FClRT-5 1 968TO52078  ¡  RERDD :  POKET ,  D 
•'  HEXT 

1070  DRTR32,231, 192, 169,3, 141,21,208 

, 169, 1, 141,39,208,  169,  160 

1080  BRTR141, 0,208, 141, 1,208, 169,0, 1 

41,33,208, 169,1,141,29,208 

1090  DATA 173, 22, 208,9, 16, 141,22,208, 

169,3, 133, 165, 169,3, 141,28 

1100  DATA208, 169, 32, 133,36, 141,2,208 

, 169,58, 141,3,208,  169,6,  133 

1110  DRTR16?, 169, 108, 133, 166,169,38, 

133, 170, 169,1,133, 171 , 169, 1 ,  133 

1120  DRTR168, 169, 1 , 141 , 40, 208, 169,0, 

133,38, 141,37,208, 169,6,  141 

1130  DRTR32, 208, 32, 160,20?, 169, 14, 14 

1.248.7.169.15. 141.249.7.96 

1149  REM  BATAS  PARA  MENSAJES  DE  LOAD 
/SAVE 

1 150  F0RT-52224T052431 : POKET, 0 : NEXT 

1 1 60  FORT “52224T052283  ¡  READA  ■'  POKET ,  A 
:  NEXT 

1170  DATA14?, 5, 17, 17, 18,29,29,68,73, 
83,75,32,83,65,86 

1180  DATR69, 32,32, 146,58,32, 13, 145,2 

9,29,29,29,29,29,29, 18 

1190  DATA76, 79, 65, 68, 29, 29, 29, 29, 146 

, 19, 17, 17, 18,29,29,84 

1200  DATA65, 80, 69, 29,29,29,29,29,29, 

29,29,29,146 

1210  P0KE52329 ,12: P0KE52332 , 8 : P0KE52 
338,8 : P0KE52341 , 12 

1219  REM  BATAS  DE  LOS  SPRITES 

1220  FORT “523? 1 T05239? : READA : POKET, A 
:  NEXT 

1230  BATA170, 140,85, 191,140,85, 171,1 

36.85. 171.136.85 

1240  DATA191, 128,85, 171,128,85, 171,1 

28.85. 191.128.85. 170. 128.85 

1249  REM  SUBRUTINA  DE  ENTRADA  DEL  NO 
MERE  EN  LOAD/SAVE 

1 250  FORT =52480TO526 1 9 : READA : POKET , A 
:  NEXT 

1260  BATA162, 0, 160,0,232,224,255,208 

,251,200,192,16,208,246, 32 

1270  DATA 1 59 , 255 , 32 , 228 , 255 , 20 1 , 32 , 1 

44,7,201,96, 176,3,32,210,255 

1280  DATA201 , 20, 208, 3, 32, 210,255, 166 

,211,224,31,208,4, 160,30, 132 

1290  DATA21 1 , 224, 14,208,4, 160,  15,  132 

,211,201,13,208,3,56,  176,3 

1300  BATA56, 176, 190, 169,1, 166,3?, 160 

,1,32, 186,255, 162,112, 160,254 

1310  DATA202, 200, 189,0,4,201,32,240, 

247, 132,65, 169, 16,56,229,65 

1320  BATA 168, 162,0,24, 189,94,4,201,4 

7,176, 10,201,32, 176,6,24 

1330  BATA 105, 64, 157,94,4,232,224,  17, 

208,233, 152, 162,95, 160,4,32 

1340  BRTA189, 255, 169, 13,32,210,255, 1 

69. 192.32. 144.255.96 

1349  REM  RUTINA  PARA  TRANSFERIR  MEMO 
RIA  AL  AREA  DE  ALMACENAMIENTO 


1350  F0RT-52736T052791 : READ : POKET, A : 
NEXT 

1360  BATA162, 0, 189,0,216, 157,0,64, 18 

9,0,217, 157,0,65,  189 

1370  BATA0, 218, 157,0,66, 189,0,219, 15 

7,0,67,189,0,4,157,0 

1380  DRTA68, 189,0,5, 157,0,69, 189,0,6 

, 157,0,70, 189,0,7 

1390  BATA 157, 0, 71 , 232,224,0, 208, 203, 
96 

1399  REM  RUTINA  PARA  TRANSFERIR  MEMO 
RIA  DESDE  EL  AREA  DE  ALMACENAMIENTO 

1400  F0RT=52816T0528?1 : READA: POKET, A 
:  NEXT 

1410  DATA 1 62, 0, 189,0,64, 157,0,216, 18 

9,0,65, 157,0,217, 189 

1420  BATA0, 66, 157, 0, 218, 189, 0, 67, 15? 

,0,219, 189,0,68, 157,0 

1430  DATA4, 189,0,69, 157,0,5,  189,0,70 

,157,0,6,189,0,71 

1440  DATAIS?, 0, 7, 232, 224, 0, 208,203, 9 
6 

1449  REM  SUBRUTINAS  DE  LLAMADA  A  LOS 
BUCLES 

1450  FORT «52992TO530 1 5 : READA : POKET, A 
:  NEXT 

1460  BATA32 , 0 , 203 , 32 , 80 , 193,32,0, 195 

,32,0, 196,32,0, 197 

1470  DATA32, 0, 198,32,0, 199,76,3,207 

1479  REM  RUTINA  PARA  TRANSFERIR  DATA 
S  AL  BUFFER  DEL  CASSETTE 

1480  FORT *53 1 52T053 163 : READ : POKET, A : 
NEXT 

1490  DATA 160, 128, 185,79,204, 153,  127, 

3, 136,208,247,96 

1 500  POKE2049 , 0 : POKE2050 , 0 : SVS52992 


Magia 

Truco  GET 

Algunas  veces  sucede  que  se  quiere  detener  un  momento 
la  imagen  que  hay  en  la  pantalla  (por  ejemplo  durante  las 
instrucciones).  Pero  si  uno  ya  se  las  sabe  es  bastante  abu¬ 
rrido  tener  que  esperar  a  que  transcurra  el  FOR-NEXT  que 
seguramente  habremos  puesto.  Otra  solución  es: 

100  for  i=l  to  500:  get  a$  :  if  a$=“”  then  next 
110  Aquí  sigue  el  programa. 

Estas  líneas  esperan  cierto  tiempo  a  menos  que  se  pulse 
una  tecla. 

S.T.  RUN  EE.UU. 

Idea  REM 

Según  va  aumentando  la  biblioteca  de  programas,  va 
siendo  más  difícil  recordar  cuándo  se  hizo  tal  o  cuál  pro¬ 
grama.  Para  solucionarlo  nada  más  fácil  que  poner  una  sen¬ 
tencia  REM  al  principio  del  mismo  que  diga  más  o  menos- 
10  REM  —COMMODORE  WORLD.  NOVIEMBRE  84 
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lineas  perdidas 

Si  accidentalmente  borras  una  línea  de  un  programa,  pero 
la  línea  en  cuestión  está  todavía  en  la  pantalla,  para  recupe¬ 
rarla  sólo  tienes  que  moverte  con  el  cursor  hasta  situarte 
encima  de  la  línea  y  pulsar  RETURN. 

G.D.  RUN  EE.UU. 


Programa  de  código  morse  para  perfeccionar  tus  puntos  y  rayas. 

Si  eres  radioaficionado  o  te  gustaría  serlo,  dominar  el  código 
Morse  te  es  indispensable.  Este  programa,  que  enseña 
escuchando,  ayudará  al  principiante  a  aprender  y  permitirá  al 
que  ya  tiene  conocimientos,  aumentar  su  velocidad  y  precisión. 

Todos  los  radioaficionados  saben  que  el  primer  paso  para 
llegar  a  ser  un  verdadero  “aficionado”  consiste  en  aprender  a 
enviar  y  recibir  mensajes  en  Morse  rápida  y  precisamente. 

El  programa  de  Código  Morse,  que  se  puede  ejecutar  tanto  en 
el  VIC-20  no  ampliado  como  en  el  Commodore  64,  parte  de  la 
base  de  que  si  tu  oyes  realmente  las  secuencias  de  los  sonidos 
del  código  Morse,  en  vez  de  tratar  de  memorizar  las  tablas  de 
puntos  y  rayas,  aprenderás  más  rápidamente.  Partiendo  de  esta 
premisa,  he  desarrollado  tres  modos  distintos  en  el  programa: 
Práctica,  Examen  y  Texto. 

Los  Modos.  El  modo  Práctica  es  muy  sencillo.  Después  de 
cargar  el  programa,  pulsa  P  (de  Práctica),  elige  una  velocidad  y 
luego  pulsa  cualquier  otra  letra  o  número;  el  altavoz  de  la 
televisión  producirá  la  secuencia  de  código  Morse 
correspondiente.  Simultáneamente,  la  letra  o  número  que  hayas 
pulsado  aparecerá  en  la  esquina  izquierda  superior  de  la 
pantalla.  Para  salir  de  este  modo,  cambiar  de  velocidad  o 
abandonar  el  programa,  pulse  F5,  F3  ó  F1  respectivamente. 

El  modo  Examen  se  parece  al  modo  anterior  pero  a  la  inversa. 
Tú  recibes  breves  instrucciones  y  eliges  la  velocidad. 
Inmediatamente  después,  el  programa  elige  al  azar  una  letra  o 
un  número  y  envía  el  sonido  del  código  Morse  al  altavoz  del 
televisor.  A  continuación  tú  deberás  identificar  el  sonido 
pulsando  una  tecla.  (Si  te  equivocas  en  la  pantalla  aparecerá  el 
carácter  correcto).  Mientras  tanto,  el  programa  va  sumando  tus 
puntos;  cada  diez  ejercicios  aparece  el  resultado  en  la  pantalla 
y  el  programa  te  da  la  oportunidad  de  volver  a  intentarlo. 
Luego,  pulsando  Y,  vuelve  a  aparecer  el  menú.  Al  pulsar  N  se 
detiene  el  programa. 

El  modo  Texto  es  una  combinación  de  los  dos  modos 
anteriores.  Tras  elegir  T  y  una  velocidad,  aparece  una  nueva 
pantalla  con  instrucciones.  En  ese  momento  puedes  teclear  un 
texto.  Dicho  texto,  en  la  versión  para  el  VIC,  puede  ocupar 


hasta  dos  líneas  (44  caracteres),  mientras  que  en  la  versión 
para  el  Commodore  64  puede  llegar  a  tres  líneas  (120 
caracteres). 

En  este  momento  el  texto  no  se  ve  en  la  pantalla,  pero  el 
número  de  caracteres  tecleados  aparece  en  una  esquina  de  la 
misma.  Al  pulsar  la  tecla  return,  o  al  llegar  al  límite  máximo 
de  texto,  se  produce  la  secuencia  de  texto  en  código  Morse, 
para  que  tú  la  descifres.  Cuando  quieras  comprobar  tu 
traducción  pulsa  F7,  con  lo  que  el  texto  aparecerá  escrito  en  la 
pantalla. 

Los  tres  modos  combinados  constituyen  un  excelente  método 
para  llegar  a  dominar  el  código  Morse.  El  modo  Práctica 
permite  asociar  los  caracteres  con  las  secuencias  sonoras  de 
puntos  y  rayas;  el  modo  Examen  asocia  las  secuencias  sonoras 
de  puntos  y  rayas  con  los  caracteres  (lo  cual  es  totalmente 
distinto);  y  el  modo  Texto  prepara  al  usuario  para  emisiones 
de  radio  de  verdad.  Puesto  que  cada  modo  ofrece  una  selección 
de  siete  velocidades,  el  programa  puede  ser  utilizado  con 
provecho  tanto  por  el  principiante  como  por  el  operador 
avanzado. 

El  programa.  El  secreto  de  la  eficiencia  de  este  programa  reside 
en  que  los  tres  modos  utilizan  las  mismas  subrutinas:  las  líneas 
5-13,  60-83  y  90-200  (¡la  mayor  parte  del  programa!). 

Para  comprender  mejor  cómo  funciona  el  programa,  estudia  el 
diagrama  de  flujo  (fig.  1).  Los  recuadros  hechos  con  líneas  de 
puntos  constituyen  el  núcleo  del  programa  y  son,  en  la 
práctica,  las  subrutinas  utilizadas  en  los  tres  modos.  Las  líneas 
y  recuadros  continuos  representan  el  camino  que  sigue  cada 
modo  durante  el  curso  del  programa. 


Figura  1:  Diagrama  de  flujo  del  programa  de  código  Morse 
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Commodore-64 


ZX  Spectrum 
QL.  Sinclair 
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COMMODORE  -  64 


Unidad  de  discos  -  1541  (170K)  71.250  ptas. 

Unidad  de  cassette  8.900  ptas. 

Joystick  Crackshot  2.500  ptas. 

Juegos,  utilidades,  libros  nacionales  y  extranjeros 


COMPUTERS,  S.A. 

C/  Alfonso  el  Batallador,  16,  trasera,  PAMPLONA. 


^  ZX  -  Spectrum  (48  K) 

Consultar  ^ 

t  QL.  -  Sinclair 

Consultar  ^ 

—  ZX  -  Interface  ne  1 

15.900  ptas. 

—  ZX  -  Microdrive 

15.900  ptas. 

—  ZX  -  Interface  nQ  2 

5.850  ptas. 

—  Interface  Joystick  Kempston 

3.000  ptas. 

—  Joystick  Crackshot 

2.500  ptas. 

—  Cartucho  para  ZX-Microdrive 

1.560  ptas. 

—  Más  de  250  juegos  distintos. 

—  Programas  de  utilidades. 

—  Libros  nacionales. 

—  Libros  extranjeros. 

BOLETIN  DE  PEDIDO 

Nombre  y  apellidos  . 

Dirección  y  teléfono  . 

Deseo  recibir  más  información  . 

Deseo  adquirir  . 

Tarjeta  VISA  número  . 

Fecha  caducidad  . 
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VIC-20 


5  P0KE36S79, 104 : PRINT" ECLR3 EWHT3 E2CRSRD3 
E  4CRSRR  3  E  3SPC 3 MORSE " 

6  PR I NT " E  CRSRD ] E 2CRSRR 3  ECRSRD  3  E RVSON 3 
P  E  RVSClFF  3  RRCT I  C  A  ,  C  SPC  3  [  RVSON  3  E  E  RVSÜFF  3 
XAMENECRSRD3 " • P0KE36878, 13 

7  PR I NT 1 "  C CRSRD  3  C  5CRSRR 3  0  C  SPC  3  C  RVSON  3 
TERVSOFF3EXTQ?" 

8  GETKi : IFKÍ=" "THEN8 

9  IFK$="P"THEN15 

12  IFK$="E"THEN52 

13  IFKÍ="T"THENCLR  ;  RESTORE  ■'  DI MS* (120 
)  ¡ K$="T" : G0T0285 

14  K*="P" 

15  PR I NT " C  CLR  3  C  CRSRD  3  C  2CRSRR 3  MODO  E SPC  3 
DE C SPC 3 PRflCT ICA"  •  PRINT"  [2CRSRD3 CCRSRR3 
E  RVSON  3  F 1 E  RVSOFF  3 : E  SPC  3  PARAR " : PR I NT " 

C  CRSRD  3  C  CRSRR 3  E RVSON  3F3C RVSOFF 3 : CSPC3 
CAMB I AR  E  SPC  3  VEL .  " 

16  PR I NT " C CRSRD  3  E  CRSRR  3 E RVSON  3  F5  E RVSOFF  3 
: C SPC 3 VOLVERE SPC 3 RLE SPC 3 MENU" : GÜSUB6 

0 : G0T084 

52  PR I NT " E  CLR  3  E  CRSRD  3  E  2CRSRR  3  MODO  C SPC  3 
BE E SPC 3 EXAMEN" 

54  PR I NT " C 2CRSRD 3  C CRSRR 3  C CRSRD 3 INTRO 
DUCE  C  SPC  3  UNA  C SPC  3 LETRA " 

55  PR I NT " E CRSRD  3  C SPC  3  O  C SPC  3 UN  C  SPC  3  NU 
MERO  E  SPC  3  TRAS “ • PR I NT " [ CRSRD  3  C CRSRR  3  L 
AS  E  SPC  3  SER I ES  C SPC  3  DE  C  SPC  3 SON I  DOS " 

56  PR I NT " C  3CRSRD 3  C  2CRSRR 3  PULSR  E SPC  3  U 
NAE SPC 3  TECLA" 

57  PÜKE 1 98 , 0 : WA I T 1 98 ,  1  ¡  K=210  V=>0  :  Z=0 
•'  P0KE198, 0  :  PRINT"  CCLR3  "  '•  GOSUB60 :  GOTO 
85 

60  PRINT" EHOM3"SPC(220)"VEL. ESPC37ECRSRD3 
E  2CRSRL  3  A  >  28  C  SPC  3  LETRASXM I N . " 

61  PR I  NT " E  4CRSRR  3  B ) 34  E  CRSRD  3  E 4CRSRL 3 
O  40  E  CRSRD  3  E  4CRSRL 3  D  >  48 " 

62  PR I NT “ E 4CRSRR 3 E > 66 E CRSRD 3  E4CRSRL3 
F)80ECRSRD3  E4CRSRL3G) 104" 

65  GETC$: IFCÍ=»"A"THENH=600:POKE7925, 

90 : RETURN 

67  I FCÍ- " B " THENH=500 : P0KE7947 , 90 : RET 
URN 

70  I FCÍ ■ " C " THENH-400 • P0KE7969 > 90 : RET 
URN 

72  I FC* ■ " D " THENH-300 : P0KE799 1,90: RET 
URN 

75  I FCÍ - " E " THENH=200 : PÚKE80 1 3  >  90 : RET 
URN 

77  I FCí * " F " THENH* 1 50 : POKE8035 , 90 : RET 
URN 

80  I FCi- " G " THENH=  1 00  :  POK:E8057 , 90  ;  RET 
URN 

81  IFCÍ<="  EF1 3  "THENEND 

82  IFCÍ=" EF53 "THEN5 

83  G0TÜ65 

84  POKE198/0:  I¡=H73:  X=  INTCRNDC  13*433  + 

48 : A$=CHR$ÍX) 

85  I FX=58ORX*59ORX=60ORX*6 1 0RX*620RX 
=64THEN84 

86  IFKÍ="P"THENGETA$ : PRINT" EHOM3 " ¡ A* 

; IFA$=“ "THEN86 

90  I F A* « " A " THENA» I ■ B=H : C=0 : GOTO  1 90 

92  I F  Ai“  "  B  "  THENA=H :  B=»  I  •'  C=I  :  D=I  :  E=0  :  G 
OTO190 

93  I F Ai»  "  C  "  THENAsH :  B*  I  :  C»H  :  D- 1  :  E=0  :  G 
OTO190 

95  I F A$= " D " THENA=H : B= I : C* I : D=0 : GOTO 1 
90 

96  I F Ai= " E " THENA= I : B=0 : GOTO190 

97  IFAi="F" THENA» I : B* I : C*H : D“ I : E«0 : G 
ÜTO190 

100  IFAÍh"G"THENA=H : B=H :  C=I  ; D=0 : GOTO 
190 

102  IFA$="H"THENA=I :B=I :C=I :D-I :E=0: 
GQTG190 

105  IFA$=" I "THENA=I ; B*I : C=0 ¡ GOTO  190 


106  I  FA*«  "  J "  THENA- 1  ■■  B»H :  C"H  ■'  D»H :  E-0  : 
GOTO 190 

107  IFA$="K"THENA=H : B=I ; C“H : D=0 : GOTO 
190 

110  IFAi="L"THENA=I : B=H :  C=I  :  B=*I  : E=0 : 
GOTO 190 

112  IFA$="N"THENA“H : B= I ; C“0 : GOTO 190 

1 15  IFA$="M"THENA“H : B=H : C=0 : GOTO190 

1 16  IFA$="0"THENA*H : B=H : C=H : D=0 : GOTO 
190 

117  IFA$="P"THENA=I  :  B=H :  C=H :  D=»I  :  GOTO 
190 

120  I FR$= " Q " THENA=H ; B=H : C= I : D=H : E=0 : 
GOTO190 

123  IFAÍ*"R"THENA=I : B=H ; C=I : D=0 : GOTO 
190 

1 25  I FA*= " S " THENA» I : B= I : C- I : D*0 : GOTO 
190 

127  IFA$="T" THENA=H : B=0 ; GOTO 190 

130  I F  A$=  "  U  "  THENRa  I  '  B=  I  :  C'=H :  D=0 :  GOTO 

190 

132  IFAi="V" THENA= I : B*I ; C*I : D*H : E=0 : 
GOTO 190 

135  IFA$="X"THENA*H : B=I ; C=I : D*H ; E=0 ; 
GOTO 190 

1 36  I FA$* " W " THENA» I : B=H : C»H : D-0 : GOTO 
190 

137  I F A$= " V " THENA=H : B»I : C=H : D=H : E=0 ; 
GOTO  190 

140  IFA$="2"THENA=H : B=H : C“I : D=I ; E®0 : 
GOTO190 

142  IFA*-"0"THENA=H : B“H : C=H : D=H : E-H : 
F=0 : GOTO190 

145  I FA$“ " 1 " THENA= I ¡ B“H : C=H : D»H : E=H : 
F=0 ; GOTO190 

147  IFAia"2"THENA«I = B-I : C=H : D=H : E*H : 
F=0 : GOTO190 

150  I FA$= " 3 " THENA* I : B= I : C= I : D=H : E=H : 
F=0 : GOTO190 

152  IFA$="4"THENA=I : B=I : C=I : D=I : E*H : 
F®0 : GOTO190 

155  I FA$= " 5 " THENA* I : B= I : C“ I ; D= I : E= I : 
F=0 : GOTO190 

157  IFR$="6"THENA“H : B=I ; CaI : D“I : E®10 
0:F=0: GOTO 190 

160  IFAÍ="7"THENR=H : B=H : C=I ;D=I :E“I ¡ 
F=0: GOTO 190 

163  I FR$= " 8 " THENA-H : B=H : C=H : D*I : E=I : 
F*0: GOTO 190 

165  IFA$="9"THENRaH  :  B=H  :  C*H :  DaH  ;  E=>I  : 
Fa0 : GOTO190 

170  IFA$=" . "THENR=I : B“H : C=I : DaH : E=I : 
F=H:G=0: GOTO 190 

171  IFA$="?"THENA*I : B=I : C=H ; D=H : E=I : 
F*I : 0=0 ; GQTO190 

172  I F A*=  "  -  "  THENA=H  :  B*  I  :  C- 1  :  D<=  I  :  E=H  : 
F=0 : GOTO190 

176  I FK$= " T " THEN I FA$» " ESPC3 "THENFORT 
■1T02*I : NEXT 

177  I F A$= " E  F 1 3 " THEN I FK*= " P " THENEND 

178  IFAÍ=" EF33 "THENIFK#="P"THEN15 

179  IFA$=" EF53 " THEN I FKi» " P " THENCLR : G 
OTOS 

180  IFK$="E"THEN84 

182  I FK$= " T " THENRETURN 
185  G0T086 

190  F0RS*1T07; IFS*1THENGG=A 

191  IFS=2THENGG=B 

192  IFS=3THENGG=C 

193  IFS=4THENGG=D 

194  IFS=5THENGG=E 

195  IFS=6THENGG=F 

196  IFS«7THENGG»G 

1 97  I FGG=üTHEN I FK$= " T " THENRETURN 

198  I FGG=0THEN I FKÍ= " P " THEN86 

199  I FGG=0THENFORT  =»  1 T0325 : NEXT : IFKÍ= 
"E"THEN255 

200  P0KE36876 , 2 1 0 : FORT= 1 TOGG : NEXT : PO 
KE36876, 0 : NEXT 

210  IFK$="E"THEN84 
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211  G0T086 

255  GETBí : IF£$=" "THEN255 

260  IFB$=fiiTHENPRINT" [HÜM3 [CRSRD3 [CRSRR3 

BIENISPC3 I K"flí">C4SPC]":V«V+l :2»Z+1 

265  IFBíXAfTHENPRI NT " C HOM JCCRSRBH CRSRR ] 

MALC2SPC3 ! | ("fi*")" : 2=2+1 

270  PRINT" [CRSRD3 "V"BIEN[SPC3DE[SPC3 

"  2 : 1  FZ=  1 0THENPR I  NT  M  [  2CRSRD  ]  "  V*  1 0  "  7.  t  SPC  3 

CORRECTAS" :GOTG280 

275  G0T084 

280  PRINT" CCRSRD3 [CRSRR30TRAISPC3 VEZ 
??" 

281  GETDÍ :  IFD$='""THEN281 

282  I FDÍ  * " S " THENV=0 : Z*0 : G0T05 

283  I FB$<> " S " THENEND 

284  GGTG281 

285  GOSUB60 : PR I NT “ [  CLR 3  C  CRSRD  3  TC CRSRD 3 

287  PR I NT " [  CRSRD  3  [  SPC  3  ESCR I BE [ SPC  3  EL 

C  SPC  3  TEXTO [  SPC  3  V [ SPC  3  PULSR . PRINT" CCRSRD3 
[ SPC  3  RETURN . CURNDQ [ SPC  3  LO [ SPC  3LESCIF 
RE" 

288  PRINT " PULSR I SPC 3 1 RVSON 3 F7 [ RVSOFF 3 
CSPC3PRRR" : PRINT "COMPROBARLO. " ; CHR$< 

13) 

290  I=H73 : F0RV=1T044 

302  GETSí <  V ) : I FS*  < V ) ■ ' " " THEN302 

304  U=V ; PRINT" [HOM3"U  '•  IFRSCCSÍCV)  )  =  1 

3THENV=44 

306  NEXTV 

307  FOR't-  1 TOU :  Ai «Si  <  V ) :  FORT»  1 TÜ I ¡  NEX 
T : GOSUB30 : NEXT 

308  GETF$: IFF$=" "THEN308 

309  IFF$=" [F73 "THEN312 

310  GOTO308 

312  PR I NTSF'C ( 220 >  :  FORV=  1TOU :  Ri=St(V) 

: PRINTfit*  : FÜRT=1TÜI : NEXT ¡ GOSUB90 : NEX 
T 

320  PÜKE198*  0 : GOTO280 


C-64 

5  PQKE53280 * 0 : P0KE5328 1 <  6 : PR I NT " C CLR  3 

C  WHT  3  C  2CRSRD  3  C  8CRSRR  3  C  5SPC  3  MORSE [ 6SPC  3 

6  PR I  NT " C  CRSRD  3  C  9CRSRR 3 [ CRSRD  3 [ RVSON  3 
P [ R VSOFF 3  RRCT I Cfl  *  C  SPC  3  C  RVSON  3  E  C  R VSOFF  3 
XRMENCCRSRD3 " : PGKE54296, 15 : SS-54272 

7  PRINT" I CRSRD 3111 CRSRR 3 OR I SPC 3 [ RVSON 3 
T [RVSOFF 3EXTO?" 

8  GETKi ■ IFKt*""THEN8 

9  IFK$-"P"THEN15 

12  IFKÍ-"E"THEN52 

13  I FKi» " T " THENCLR ¡ RESTORE : D I MS*  < 1 20 
) : KÍ="T" : G0T0285 

14  KÍ="P" 

15  PR I  NT " C  CLR  3  C  CRSRD  3 [ 2CRSRR  3  MODO l SPC  3 
DEC SPC 3 PRACTICA" ¡ PRINT" [2CRSRD3 [CRSRR 3 
[RVSON3F1  [RVSOFF 3  •'  C SPC 3 PARAR "  :  PRINT" 

C  CRSRD  3 [ CRSRR  3 [ RVSON  3  F3 [ RVSOFF  3 : [ SPC  3 
CRMB I RR [ SPC  3  VELOC I  DAD " 

16  PR I NT " [ CRSRD 3 [ CRSRR 3 [RVSON3F5C RVSOFF 3 
• CSPC3VOLVERCSPC3RLCSPC3MENU" • G0SUB6 

0 • G0T084 

52  PR I NT " [ CLR  3 [ CRSRD  3 [ 2CRSRR  3  MODO [ SPC  3 
DE [SPC 3 EXAMEN" 

54  PR I  NT " C  2CRSRD  3 [ CRSRR  3 [ CRSRD  3 1 NTRO 
DUCE [ SPC  3  UN A [ SPC  3  LETRA [ SPC  3  C  O " 

55  PR I NT " [ 2CRSRD  3 [ SPC  3  UN [ SPC  3  NUMERO ) 

C  SPC  3  TRAS  C  SPC  3  CADA " : PR I NT " [ CRSRD  3 [ CRSRR  3 
SERIECSPC3DECSPC3 SON IDOS" 

56  PR I  NT " C  3CRSRD  3 [ 2CRSRR 3  PULSA  C  SPC  3  U 
NRCSPC3TECLR" 

57  POKE 1 98  *  0 : WR I T 1 98  * 1 : K=210 : V»0 : Z-0 
: POKE 1 98  *  0 : PR I NT " [ CLR  3 " : GOSUB60 : GOTO 
85 


60  PRINT" CHOM3 "SPCC255)SPC( 145) "VELO 
C I DAD? [ CRSRD  3  í 4CRSRL 3  R ) 28 [ SPC  3 LETRAS 
XMIN. " 

61  PRINT"[6CRSRR3B)34[CRSRD3 [4CRSRL3 
C)40[CRSRD3 [4CRSRL3D)48" 

62  PR I NT " [ 6CRSRR 3 E ) 66 [CRSRD 3 [ 4CRSRL 3 
F ) 80 [ CRSRD  3 [ 4CRSRL  3  G ) 1 04 " 

65  GETCi : IFCÍ»"fi"THENH=600 : PÜKE1467* 
90 : RETURN 

67  IFCÍ="B"THENH«500 ■ POKE1507* 90 : RET 
URN 

70  I FC* ■ " C " THENH-400 : POKE 1547*90 : RET 
URN 

72  I  FCÍ= " D " THENH=300 : PÜKE1587* 90 : RET 
URN 

75  IFCt= "E" THENH=200 : POKE 1627*  90 ¡ RET 
URN 

77  I  FCi= " F " THENH= 1 50 : POKE 1 667  *  90 ¡ RET 
URN 

80  I FC* - " G " THENH= 1 00  i POKE 1 707  *  90 : RET 
URN 

81  IFCi-"EFl 3 "THENEND 

82  I FCi* " [ F5  3 " THEN5 

83  G0T065 

84  PÜKE198*  0 :  I=HX3 ;  X=INT (RNDC  1  )i*43)  + 
48 : AÍ=CHRÍ (X) 

85  I FX=58ÜRX=59ORX=60ORX=6 1 0RX*620RX 
■64THEN84 

86  I FKÍ= " P " THENGETRi : PRINT" [ HOM 3 " ; fi i 
: IFRi=" "THEN86 

90  I  Ffii* " R " THENR= I : B*H : C=0 : GOTO  190 

92  I Ffii= " B " THENR=H  ;  B=  I  :  C»=  I  :  D=I  :  E=0  :  G 
OTO  190 

93  IFAÍ»"C"THENA»H : B»I ; C*H : D=I : E=0 : G 
OTO 190 

95  I Ffli= " D " THENfl=H : B= I : C« I : D=0 : GOTO 1 
90 

96  I Ffii = " E " THENfi= I : B=0 : GOTO 1 90 

97  IFflí="F"THENfl=I :B=I :C=HD=I :E=0:G 
OTO 190 

100  IFR$*"G"THENfl“H :  B«H :  C*I  •  D*0  ¡  GOTO 
198 

102  IFRÍ="H"THENR=I :B=I : C=I i D*I : E=0 : 
GOTO 190 

1 05  I Ffl*» " I" THENA- I : B» I : C-0 : GOTO 1 90 

106  IFfli»" J"THENR»I : B=H : C*H : D=H : E=0 ¡ 
GOTO 190 

107  IFRi="K"THENR=H : B=I : C=H : D«0 : GOTO 
190 

110  IFfi$="L"THENfi=I : B=H : C» I : D= I : E*0 : 
GOTO 190 

112  IFfiÍ="N“THENfi«H :  B=I  >  C=0  •  GOTO  190 

115  I F A*- " M " THENA*H  =  B-H : C»0 : GOTO 1 90 

1 16  IFAÍ«"0"THENR=H  =  B=H : C=H : D=0 : GOTO 
190 

117  IFfiÍ="P"THENfi*I : B=H : C*H : D=I ■ GOTO 
190 

1 20  I FR$= " Q " THENA-H : B-H : C- I : D*H : E-0 : 
GOTO 190 

123  IFR*»"R"THENR-I : B=H : C=I : D»0 : GOTO 
190 

125  IFAí="S"THENfl*I :B=I :C»I ;D=0:GOTO 
198 

127  I FRÍ= " T " THENA*H ■ B=0 : GOTO190 

130  IFR$="U"THEHR=I  :  B=I  ;  C=H  :  D=0 :  GOTO 

190 

132  IFR$-"V"THENR=I ¡ B*I : C»I : D=H : E»0 : 
GOTO 190 

135  I F Aí = " X " THENR=H : B» I : C- I : D=H : E=0 : 
GOTO190 

136  I F A$“ " W " THENfl= I ¡ B-H : C*H : D*0 : GOTO 
190 

Í37  TFRí^V'THENfPhrBsI  :  C=H  ■  D=H  •  E=0  • 
GOTO 190 

140  IFAÍ="ZHTHENR=H:B=H:C=I :D«I :E=0: 
GOTO190 

142  IFRÍ*"0"THENR=H : B=H : C*H : D=H : E»H : 
F=0: GOTO 190 

145  IFfl<=" 1 "THENfl=I : B=H : C=H : D=H : E-H • 
F=0: GOTO 190 
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147  I  FAÍ= “2 " THENA= I : B=I : C=H : B=H ¡ E=H • 

F=0: GOTO  190 

150  IFA$="3"THENA=I :B*I :C=I :B=H:E=H: 

F=0: GOTO 190 

152  IFA$="4"THENA=I :B=I ¡C-I =B»I :E=H: 

F=0: GOTO 190 

155  IFA$="5"THENA=I ;  B=I :  C=I  •  B=I :  E=I  • 

F*0: GOTO 190 

157  IFR$a"6"THENñ<=H;B-«I  X=I  :B»I:E*10 
0 : F=0 : GOTO190 

160  IFAÍ="7"THENA=H  '■  B=H  ;  C=I :  B=I ;  E=I : 

F=ü : GOTO190 

163  I Ffl$=  " 8 " THENA=H :  B=H  :  OH  =  D-I  =  E»I : 

F=0: GOTO 190 

165  IFR*-"3"THENfl=H:B=H:C»H:B»H'-E*I : 

F*0 : GOTO190 

1 70  I FR*= " . " THENfl» I : B«H : C- I : B«H : E» I ; 

F=H ; G=0 : GOTO190 

171  IFA$="?"THENA*I :B=I ; C=H : B=H ; E^I : 

F=I : G=0 : GOTO190 

172  IFR*»"-"THENR-H:B«I :C»I:B»I=E-H: 

F=0: GOTO 190 

1 76  I FK$= " T " THEN I FA$= " I SPC  3 " THENFQRT 
■1T02SI : NEXT 

177  I FRÍ = " I F 13 " THEN IFKÍ="P" THENEND 

178  I Fflí  = 11  [ F3 3 " THEN IFKÍ="P" THEN  1 5 

179  1 FR$= " I F5 3 " THEN I FKÍ ■ 1 "P " THENCLR • G 
0T05 

180  I FK$» " E " THEH84 
182  I FK#*» "  T " THENRETURN 
185  G0T086 

190  F0RS=1T07 : IFS=1THENGG=A 

191  IFS=2THENGG=B 

192  IFS=3THENGG=C 

193  IFS=4THENGG=B 

194  IFS=5THENGG=E 

195  IFS=6THENGG=F 

196  IFS=7THEHGG=G 

1 97  I FGG=0THEN I FK*= " T " THENRETURN 

198  I FGG=0THEN I FKÍ = " P " THENS6 

1 99  I FGG*0THENFORT ■ 1 T0325 : NEXT : I FKÍ* 
"E"THEN255 

200  P0KE54278 ,100: P0KE54273 , 34 : PÜKE5 
4272, 75 : P0KE54276, 33 

201  FORT* 1TOGG: NEXT 

202  P0KE54278, 0 : P0KE54276, 0 

203  NEXT 

210  IFKí="E"THEN84 

211  G0T086 

255  GETBí : IFBÍ=" "THEN255 

260  I FBí =Aí THENPR I  NT " !  HOM ] C  CRSRD 3  C  CRSRR ] 

BIEN!  K "  Aí  " )  I 4SPC ] " ;  V=Y+ 1 : 2=Z+ 1 

265  IFBíXAíTHENPR  I  NT  "  [  HOM  ]  [  CRSRB  3  C  CRSRR  I 

MRL I I I I <"«*")" :Z»Z+1 

270  PR I NT "! CRSRB  3 " Y " CORRECTO [ SPC I BE " 

Z :  I  FZ=  1 0THENPR I  NT  "  C  2CRSRD  3 "  Y*  1 0  "  X  C  SPC  3 
BIEN" :GOTO280 
275  G0T084 

280  F'R  I  NT  "  C  CRSRB  ]  C  CRSRR  3  OTRA I SPC  3  VEZ 

?" 

281  GETBÍ : IFBí=" "THEN281 

282  I FBí" " S " THENV=0 : Z=0 : G0T05 

283  IFBíO"S"THENEND 

284  G0T0281 

285  GOSUB60 : PRINT" CCLR3 [ 1 1CRSRR3MOBO 

!  SPC  3  TEXTO " : PR I NT " I HOM ] C CRSRB  3  f [ CRSRB  3 

287  PRINT" ICRSRD3 ISPC3ESCRBEÍSPC3ELISPC3 
TEXT  O  C  SPC  3  Y  !  SPC  3  PULSA  !  SPC  3  RETURN . "■? 

R I NT " C  SPC  3  < 1 20  C  SPC  3  CARACTERES  C  SPC  3  CO 
MOÍ SPC 3 MAXIMO 3 

288  PR I NT " [ CRSRB  3  t SPC  3 BESPUES  I  SPC  3  BE 
C  SPC  3  BESC I FRhBÜ " 

289  PRINT" ISPC3ELÍSPC3CQDIGO, ISPC3PU 
LSA  C  SPC  3  í  R VSON  3  F7  C  R VSOFF  3  C  SPC  3  PARA " : 

PR I NT " I SPC  3  COMPROBARLO . " , CHRÍ  < 13) 

290  I=HX3 ; FORY=l TO120 

302  GETSÍÍV)  :  I FSí  <  V ) = "" THEN302 
304  U=V : PRINT" [HOM 3 "U : IFASCÍSÍ CY> >=1 
3THENV=>120 :  GÜTÜ308 


305  NEXT 

306  GETHÍ : IFHí=“ "THEN306 

307  IFHÍOCHRÍ  ( 13JTHEN306 

308  FORV=lTOU: A$*Sí(V) :FORT=lTOI :NEX 
T : GOSUB90 : NEXT 

309  GETFí : IFFí=" "THEN309 

310  IFF$=" !F?3"THEN312 

311  GOTO309 

312  PR I NTSPCí 2553 SPC < 145> : FORV=lTOU : 
AÍ=SÍ(Y):PRINTAÍ;  : FORT*lTOI : NEXT : GOS 
UB90 

320  NEXT : POKE 198,0: GOTO280 


Número  fantasma 


Julián  Alvarez  García 
C/Fernández  de  la  Puente,  11  -  9SB 
Badajoz 


VIC-20 

sin  ampliación 


Este  juego  es  para  dos  jugadores.  Consiste  en  acertar  un 
número,  de  1  al  100  que  el  ordenador  obtiene  aleatoriamente 
por  un  RND.  Los  jugadores  irán  diciendo  números  para 
intentar  averiguarlos  y  el  ordenador  dirá  si  el  número  que  han 
dicho  es  ALTO  (mayor  que  el  ns  a  acertar)  o  BAJO. 


10  PRINT" CCLR3" 

20  PR I NT " í  RED  3  COP I RVGTHC  SPC 3  JUL I AN " 
30  PR INT " ! BLU  3 !  8CRSRB  3  [  3CRSRR  3  NUMERO 
CSPC3FANTASMA" 

40  PRINT"! 3CRSRB 3  NOMBRE  ! SPC  3  BEL  C  SPC  3 
PRIMER! SPC  3  JUGADOR I SPC  3 " 

41  INPUT  Q$ 

45  PR I NT " í  CRSRD 3  NOMBRE I SPC  3  DEL I SPC  3  O 
TRO I SPC  3  JUGADOR I SPC  3 " 

46  INPUT  Uí 

48  PRINT"ÍCLR3" 

49  A*<INT<RND<23#100)+1> 

50  PRINTQí; : GOSUB1000 

60  INPUT  M 

61  IF  MCA  THEN  PRINT "BAJO" 

62  IF  M>A  THEN  PRINT "ALTO" 

70  IF  M=A  THEN  250 

80  PR INTUÍ; : GOSUB1000 

90  INPUT  N 

91  IF  NCA  THEN  PRINT "BAJO" 

92  IF  N>A  THEN  PRINT"ALTO" 

100  IF  N»A  THEN  250 


200  GOTO50 

250  PR I  NT " C PUR ] [ CRSRD 3 C  3SPC 3  A  C  SPC  3  C [ SPC  3 

ECSPC3RCSPC3TISPC3ACSPC3SCSPC3TCSPC3 

E" 

252  PRINT 

253  PR I NT " C  BLK  3  ELC  SPC  3 NUMERO [ SPC  3  FAN 
T ASMA I SPC 3 ERA : C8CRSRR3  CREB3 " i R 

255  IF  M»fl  THEN  K=K+1 

256  IF  N=R  THEN  0=0+1  :  PRINT" 11 

257  PR  I  NT  "  C  CRSRD  3  [  RED  3  "  Qí  i  "  :  ">K 

258  . . JO 

259  GOSUB2000 

260  PR I NT " [ CRSRD  3  [  BLU  3 PRRR í SPC  3  ACABA 
R  C  SPC  3  PULSE  C  SPC  3 ( F ) C  SPC  3 PRERR C SPC  3  CO 
NT  I NUfiR C7SPC3 CURLQU I ER  C  SPC  3  OTRA  C  SPC  3 
LETRA" 

261  GETVí : IFV$=" "THEN261 

262  IF  V*="F"  THEN  PRINT" CCLR3 " ¡  END 
270  GOTO  48 

1ÜÜ0  P0KE36878, 15 : FORT-1TO10 ¡ P0KE368 
75/ 166 : NEXT ¡ PÜKE36875/ 0 • RETURN 
2000  P0KE36878/ 15 

20 1 0  FORT= 1 28T0 1 77STEP4 : P0KE36874 / T : 
FORM= 1 T075 : NEXTM : P0KE36874 , 0 : NEXTT 
2015  P0KE36875/ 24 1 : F0RJ=1 TO80 : NEXT J ; 
POKE36875/0 
2030  RETURN 


Sidaid:  Ayuda  musical 
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Trabaja  mientras  tú  tocas.  Con  este  programa  se  añaden  tres 
comandos  al  Basic,  lo  que  te  permitirá  componer  música  con 
tu  Commodore  64  sin  tener  que  perderte  en  detalles. 

El  Commodore  64,  con  su  sintetizador  de  sonido,  es  capaz  de 
producir  interesantes  efectos  musicales  y  sonoros.  No  obstante, 
la  falta  de  comandos  de  Basic  para  manejar  el  chip  SID  hace 
que  la  producción  de  sonido  se  convierta  en  una  ardua  tarea. 
En  el  chip  SID  se  utilizan  25  registros  para  el  sonido,  y  cada 
nota  requiere  dos  bytes  de  datos  de  frecuencia.  Tendrás  que 
tener  en  cuenta  todas  las  direcciones  de  registros  y  consultar 
una  tabla  para  obtener  los  datos  de  frecuecia.  Para  poder  hacer 
todo  esto  correctamente  vas  a  necesitar  un  ordenador. 

Bueno,  pero  además  de  ser  un  sintetizador  de  sonido,  el  64  es 


un  ordenador;  ¿por  qué  no  dejar  que  se  encargue  de  todos 
estos  detalles? 

Con  el  programa  que  se  presenta  a  continuación  el  64  hará 
precisamente  eso.  Bastará  con  una  dirección  y  el  ordenador 
hará  el  resto.  De  este  modo  tú  quedas  en  libertad  para 
concentrarte  en  la  música  y  experimentar  con  distintos  sonidos. 

Han  llegado  los  refuerzos.  El  programa  añade  tres  comandos  al 
Basic:  uno  para  alterar  la  envolvente  de  una  voz,  otro  para 
tocar  una  nota  durante  un  intervalo  determinado  y  un  tercero 
para  apagar  el  volumen  una  vez  obtenido  el  sonido.  Para  ello 
nos  valdremos  del  comando  SYS  del  Basic. 

El  comando  SYS  transfiere  el  control  a  una  rutina  en  lenguaje 
máquina  que  lee  los  valores  necesarios  en  el  programa  Basic. 
Estos  valores  se  colocan  luego  en  los  registros  apropiados  o  se 
usan  para  encontrar  los  datos  de  frecuencia  en  una  tabla. 

Para  utilizar  este  programa  será  necesario  definir  en  primer 
lugar  tres  variables;  QU  de  Quiet  (Silencio),  AV  de  Alter  Voice 
(Cambia  Voz)  y  PY  de  Play  (Tocar)  una  nota.  Empecemos  por 
hacer  que  QU  sea  40384,  PY  igual  a  QU+3  y  AV  igual  a 
QU+6.  Al  final,  los  tres  comandos  tendrán  la  forma  siguiente: 
SYSAV,v,a,d,s,l,f(,ap) 

SYSPY,v,fr,t,vl 

SYSQU 

Los  valores  representados  por  las  minúsculas  pueden  ser 
constantes,  variables  o  expresiones  y  representan  lo  siguiente: 
v:  voz  (1-3) 

a,  d,  s,  1:  ataque,  caída,  sustento,  liberación  (0-15). 

f:  forma  de  onda-16=triangular;  32=diente  de  sierra; 

64=pulsante  y  128=ruido.  Se  puede  utilizar  el  20  para 

modulación  en  anillo  y  cualquiera  de  los  valores  puede 

aumentarse  en  2  para  sincronizar  con  otra  voz. 

ap:  anchura  de  pulso  -  sólo  se  usa  con  la  forma  de  onda  64,  la 

onda  dé  pulsos,  y  puede  tener  valores  entre  0  y  4095. 

fr:  0-86,  representa  medios  tonos  desde  el  LA  sostenido  en 

octava  0  a  SI  en  la  octava  7  (ver  tabla).  86  representa  un 

silencio. 

t:  0-255  (0=256)  representa  el  número  aproximado  de 
fracciones  de  segundo  (l/60a  de  segundo)  hasta  que  la  nota  se 
detiene. 

vi:  volumen,  0-15 


Ejemplos 

Para  hacer  que  la  voz  3  sea  como  un  tambor,  introduzca: 
SYSAV, 3,0, 9 ,0,9,128 

Esto  hace  que  la  voz  3  tenga  un  valor  de  ataque  de  0  y  un 
valor  de  caída  de  9,  consiguiendo  un  sonido  que  alcanza  su 
pleno  volumen  inmediatamente  y  cae  bastante  rápidamente  al 
nivel  sostenido  que  está  fijado  en  0.  La  liberación  se  fija  en  9 
para  continuar  la  caída  si  es  necesario.  La  onda  corresponde  a 
128,  que  es  ruido. 

Para  producir  el  sonido  de  pasos  que  se  alejan  usando  la  voz  3 
tal  y  como  se  ha  definido  antes,  introduzca: 

FOR  X=15  TO  0  STEP  -1:SYSPY,3,25,30,X:NEXT  X 

Con  estas  sentencias,  la  voz  3  suena  en  el  tono  25  durante  30 
marcas  de  reloj  (1/2  segundo).  Puesto  que  a  la  voz  3  se  le 
asignó  el  nivel  sostenido  0,  el  sonido  es  el  mismo  para 
prácticamente  todos  los  valores  de  tiempo.  Por  tanto,  el  30 


sirve  para  controlar  el  tiempo  entre  sonidos.  El  bucle  toca  el 
sonido  15  veces  con  un  volumen  cada  vez  menor,  desde  un 
máximo  de  15  hasta  0,  según  queda  determinado  por  el  valor  x. 
Para  hacer  que  la  voz  1  sea  un  piano,  introduzca: 
SYSAV,1,0,9,0,0,64,255 

El  piano  tiene  una  envolvente  similar  a  la  de  un  tambor,  pero 
el  64  hace  que  la  forma  de  onda  sea  un  tren  de  pulsos  con  una 
anchura  de  255. 

Si  se  quiere  evitar  el  zumbido  del  altavoz  cuando  no  se  toca 
ninguna  nota,  se  puede  desactivar  totalmente  el  chip  SID 
introduciendo: 

SYSQU 

Los  ejemplos  presentados  son  para  usar  desde  un  programa  en 
el  que  QU,  AV  y  PY  tienen  los  valores  correctos.  Para  utilizar 
los  comandos  en  modo  Directo,  ha  de  utilizar  las  direcciones 
reales.  Así,  en  modo  Directo  SYSQU  es  SYS40384;  SYSAV  es 
SYS40390;  y  SYSPY  es  SYS40387. 

El  programa  en  el  Listado  1  tiene  dos  objetivos.  Lo  primero 
que  hace  es  escribir  el  programa  en  lenguaje  máquina  en  la 
memoria,  luego  lo  copia  en  disco  o  cinta.  Una  vez  ejecutado  el 
programa,  sólo  lo  necesitarás  para  guardar  una  copia  del 
programa  SIDAID  en  otro  disco  o  cinta.  Para  cargar  el 
programa  SIDAID,  introduce: 

LOAD“SIDCD”,8,l  (,1,1  para  cinta) 

POKE52,157:POKE  56,157:NEW 

Los  comandos  POKE  bajan  el  final  de  memoria  disponible  del 
Basic  en  768  bytes  para  evitar  que  el  Basic  “machaque”  el 
programa  en  lenguaje  máquina.  Una  vez  hecho  esto,  los 
comandos  quedan  disponibles  en  modo  Directo,  o  se  puede 
introducir,  cargar  o  ejecutar  un  programa  que  los  utilice. 
También  se  puede  realizar  esta  operación  desde  el  propio 
programa  que  utiliza  el  SIDAID,  para  lo  cual  basta  añadir  al 
principio  las  siguientes  lineas: 

10  POKE  52,157:POKE  56,157:CLR 
20  IF  PEEK(40384) 076  THEN 
LOAD“SIDCD”,8, 1 
30  QU  =40384:PY=QU+3:AV=QU+6 

La  comprobación  de  la  línea  20  es  necesaria  puesto  que  un 
comando  LOAD  ejecutado  desde  un  programa  Basic  hará  que 
el  programa  empiece  desde  el  principio  una  vez  que  esté 
cargado.  Esta  comprobación  evita  que  se  ejecute  repetidamente 
el  proceso  de  carga,  y  permite  que  el  programa  continúe  una 
vez  que  SIDCD  está  preparado. 

El  listado  2  contiene  un  pequeño  programa  de  demostración 
que  ilustra  algunas  de  las  posibilidades  del  paquete.  Se  pueden 
hacer  muchas  otras  cosas  además  de  las  que  hemos  visto:  este 
paquete  facilita  extraordinariamente  la  experimentación.  Dos 
de  las  características  demostradas  en  este  programa, 
sincronización  y  modulación  en  anillo,  merecen  una 
explicación  más  detallada. 

La  sincronización  es  el  uso  del  comando  AND  para  combinar 
dos  formas  de  onda,  lo  que  hace  que  el  volumen  fluctúe 
cuando  las  dos  ondas  se  refuerzan  o  interfieren  una  con  otra. 
Esta  característica  se  activa  añadiendo  2  al  valor  f  (forma  de 
onda)  del  comando  SYSAV. 

Cuando  se  usa  la  sincronización  con  la  voz  1,  la  voz  3  se  ha  de 
ajustar  a  una  frecuencia  distinta  de  cero  y,  preferiblemente, 
menor  que  la  frecuencia  de  la  voz  1.  Todos  los  otros 
parámetros  de  la  voz  3  pierden  efecto.  Cuando  se  activa  la 
sincronización  para  la  voz  2,  se  sincroniza  con  la  frecuencia  de 
la  voz  1.  La  voz  3  se  sincroniza  con  la  voz  2. 

La  modulación  en  anillo  se  activa  utilizando  un  valor  f  (forma 
de  onda)  de  20  en  el  comando  SYSAV,  con  ello  se  obtienen 
sonidos  de  campana  o  de  gong.  La  modulación  en  anillo  de  la 
voz  1  requiere  que  la  voz  3  esté  en  una  frecuencia  algo  más 
baja.  La  voz  2  se  modula  con  la  voz  1  y  la  voz  3  se  modula 
con  la  frecuencia  de  la  voz  2.  La  calidad  del  sonido  depende  en 
parte  de  la  diferencia  de  frecuencia  entre  la  voz  que  suena  y  la 
voz  modulada. 

Descripción  del  cargador 

Líneas  10-20:  Protegen  el  programa  en  lenguaje  máquina 
contra  el  Basic  y  establece  la  dirección  inicial. 


Líneas  30-70:  Leen  los  datos  de  las  líneas  1001-1037,  saltando 
la  línea  1026,  que  es  un  REM.  El  último  número  de  cada  línea 
de  datos  es  un  dato  de  comprobación.  Si  se  equivoca  al 
introducir  algún  dato,  el  programa  se  detiene  e  indica  el 
número  de  la  línea  que  contiene  el  dato  erróneo. 

Líneas  80-100:  Avisan  de  que  el  programa  se  ha  cargado 
satisfactoriamente. 

Líneas  200-280:  Utilizan  la  rutina  de  Almacenamiento  de 
Kernal  para  guardar  el  programa  en  lenguaje  máquina  en  un 
fichero  de  programas  que  se  puede  cargar  directamente  con 
LOAD“SIDCD”,8,l  desde  disco,  o  LOAD“SIDCD”,l,l  desde 
cassette. 

Línea  200:  Mete  en  F$  el  nombre  del  programa. 

Línea  210-220:  Busca  la  posición  de  F$  en  la  memoria. 

Líneas  230-240:  Escribe  (con  Poke)  la  longitud  y  la  dirección 
de  F$  donde  la  rutina  de  Kernal  supone  que  está. 

Línea  250:  Escribe  (con  Poke)  la  dirección  inicial  en  la 
memoria  disponible  de  la  página  cero. 

Línea  260:  Escribe  el  número  del  dispositivo  periférico  y  la 
dirección  secundaria  de  forma  que  estos  dos  datos  estén  a 
disposición  de  la  Rutina  de  Kernal.  Cambia  el  8  por  1  si  vas  a 
usar  una  cinta. 

Línea  270:  Escribe  la  posición  de  la  dirección  inicial  y  los  bytes 
alto  y  bajo  de  la  dirección  final.  Estos  datos  también  quedan  a 
disposición  de  la  Rutina  de  Kernal. 

Línea  280:  Llama  a  la  rutina  de  almacenamiento. 

Líneas  290-320:  Indican  que  se  ha  llevado  a  cabo  el 
almacenamiento.  Cuando  uses  cassettes,  cambie  el  8  de  la  línea 
320  por  un  1 . 

Descripción  del  programa  de  demostración 
Líneas  10-30:  Carga  e  inicializa  el  SIDCD. 

Línea  50:  Fija  la  voz  1  con  ataque  0,  caída  0,  sostenido  15, 
liberación  3  y  toma  de  onda  triangular. 

Línea  60:  Con  esta  voz  toca  unas  cuantas  notas,  utilizando  el 
contador  del  bucle  como  frecuencia. 

Línea  80:  Ajusta  la  voz  2  con  la  misma  envolvente  que  la  voz 
1,  pero  con  una  onda  de  pulsos  con  una  anchura  de  100. 

Línea  90:  Toca  unas  cuantas  notas  con  esta  voz. 

Línea  110:  Toca  unas  cuantas  notas  empleando  los  parámetros 
por  omisión  de  la  voz  3  (ruido). 

Líneas  130-160:  Tocan  una  escala  con  la  voz  1  y  luego  la  voz  2. 
Las  frecuencias  están  en  la  matriz  S(). 

Línea  170:  Toca  la  voz  3  durante  un  segundo  a  un  volumen  de 
0  (un  silencio). 

Líneas  180-270:  Interpreta  una  corta  melodía  almacenada  en 
las  matrices  Tl()  y  Dl(),  usando  distintos  instrumentos. 

Líneas  300-410:  Efectos  de  sonido. 

Línea  330:  Sonido  de  disparo  o  de  explosión:  empieza  fuerte  y 
cae  bruscamente  en  volumen.  La  frecuencia  45  es  la  mejor  para 
un  disparo  de  arma;  prueba  diferentes  frecuencias  para 
distintos  tipos  de  explosión. 

Líneas  340-375:  El  crecimiento  y  decrecimiento  del  zumbido  de 
un  mosquito  se  consigue  sincronizando  la  voz  1  con  la  voz  3 . 

El  valor  de  la  forma  de  onda  de  18  equivale  a  16  (para 
triangular)  más  2  para  sincronización.  La  línea  360  introduce 
un  valor  de  frecuencia  de  48  en  la  voz  3,  pero  en  volumen  0, 
de  modo  que  no  se  oye  sonido  alguno.  La  línea  370  suena  con 
la  voz  1  y  un  tono  de  70.  El  volumen  aumenta  y  disminuye 
cuando  las  dos  voces  se  refuerzan  o  interfieren  la  una  con  la 
otra.  El  efecto  cambia  si  se  cambia  la  diferencia  entre  los  dos 
valores  de  tono.  También  se  puede  utilizar  la  sincronización 
con  las  otras  formas  de  onda. 

Líneas  380-410:  El  sonido  de  campana  se  produce  por  la 
modulación  en  anillo  de  la  forma  de  onda  triangular  que 
utiliza  un  valor  20,  formado  por  16  para  el  triángulo  y  4  para 
el  anillo.  En  la  voz  3  se  introduce  un  tono,  como  en  la 
sincronización,  y  el  efecto  producido  depende  de  la  diferencia 
entre  los  valores  de  tono  de  las  dos  voces. 

Líneas  500-540:  Subrutina  para  interpretar  una  melodía,  con 
los  valores  de  tono  y  duración  en  las  matrices  Tl()  y  Dl().  Los 
valores  de  duración  se  multiplican  por  el  valor  del  tempo  T,  de 
modo  que  la  duración  de  la  nota  se  puede  cambiar  con  sólo 
cambiar  T,  como  se  hizo  en  las  líneas  190-220. 

Líneas  1000-1030:  Inicialización  o  arranque  del  programa. 
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Línea  1010:  Lee  los  datos  de  la  línea  1040  dejándolos  en  la 
matriz  S().  Los  valores  dados  corresponden  a  una  escala  en 
clave  de  DO,  empezando  en  el  DO  central.  El  86  es  el  valor  del 
silencio. 

Línea  1020:  Lee  los  valores  de  tono  y  duración  de  una  corta 
melodía,  y  los  almacena  en  las  matrices  Tl()  y  Dl(). 

Línea  1030:  Inicializa  el  chip  SID  escribiendo  0  en  todos  los 
registros. 


Listado  I 

5  REM  C ARGRDOR-S I  DA  I D  M  J  CLIFFORB 
1 0  P0KE52  -  1 57 : P0KE56 , 1 5? : P0KE5 1,192: 
P0KE55, 192 : CLR 
20  AD=40384 

30  F0RL=1T037: IFL“26THENL*27 
40  FORX-0TO15  •'  REABB  :  OC+B  :  POKEAD+X,  B 
:  NEXT 

50  REFlBK  :  IFCOKTHENPRINT"ERRQRCSPC]E 
N  C  SPC I  LA  I  SPC  ]  L I NER [ SPC ] DATA "  i  1000+L  ¡ 
END 

60  T=>T+C  :  C*0  :  RB-RB+ 1 6  ¡  NEXTL 
70  RERDK:  IFTOKTHENPRINT"ERRORCSPC]E 
N  C  SPC 1 LAS  t SPC ] L I NERSC SPC1BRTR" : ENB 
80  011*40384  :  PY-QU+3  :  RV-QU+ 1 6 
90  SVSPV , 2 , 30 , 30 , 1 5 : SVSQU 
100  PRINT"ELCSPCIUTILITARIO[SPC]SIDA 
I D  C  SPC I ESTA [  SPC  3  CRRGRBO " 

110  PR I  NT " SAL VHND0  I  SPC  ]  EL  i  SPC  1 PRGGRR 
MRCSPCÜBECSPC3C. M. CCRSRB1" 

200  F*»"SIDCD" 

210  POKE 187, PEEK <  71 )  : POKE 1 88 , PEEK ( 72 

220  F A*PEEK (187) +256*PEEK (188) 

230  POKE 183, PEEK (FA) 

240  POKE 1 87 , PEEK  <  FR+ 1 ) ¡ POKE 1 88 , PEEK ( 
Ffi+2) 

250  P0KE25 1 , 1 92 : P0KE252 , 1 57 

260  POKE 1 86 , 8 : POKE 1 85 , 1 

270  POKE780, 251 : P0KE7B1 , 0 : P0KE782,  16 

0 

280  SYS65496 

290  SYSPY , 2 , 50 , 30 , 1 5 : SVSQU 
300  PR I NT " EL C SPC ] UT I L I T AR I 0 [ SPC I S I DA 
I B  C  SPC  3 ESTA  C  SPC  3 GURRBRBO t SPC 1 COMO  C  SPC 1 
"F  $ 

310  PR I NT " L A I SPC 3 PROX I MR [ SPC 3 VEZ C SPC 3 
TECLEA C SPC 3 SOLO : " 

320  PR  I NT " LORD " CHR* ( 34 ) FJCHRí  ( 34 )  " ,  8 
, 1 C2CRSRD3 " 

1000  REM  ***DAT0S  DEL  SIDCD*** 

1001  DAT R76, 45, 159, 76,78, 158, 32, 69, 1 
58, 152,41,3,240,97, 141,50, 1575 

1002  BRTR158, 206, 50, 158,32,69, 158, 15 
2, 10, 10, 10, 10, 133,251,32,69, 1508 
1083  DATR158, 152, 41 , 15, 5, 251 , 133, 251 
,32,69, 156, 10, 10, 10, 10, 133,  1438 

1004  DATR253,32,69, 158, 152,41, 15,5,2 
53, 133,253,32,69, 158, 152,41,1816 

1005  BRTR246, 172,50, 158, 153,57, 158,9 
,1,153,66, 158, 165,253, 153,54,2006 

1006  DRTR158, 165, 251 , 153, 51 , 158,  185, 
57,158,41,64,240,17,32,69,158,1957 

1007  BRTR72, 173,50, 158, 10, 170, 104, 15 
7,61,158, 152, 157,60, 158,96, 108, 1844 

1008  DRTR0, 3,0,9, 10,9,3,3,9,64,64, 12 
8,0,4,8,4,310 

1 009  BRTR0 , 0 , 65 , 65 , 1 29 , 32 , 253 , 1 74 , 32 
, 158, 173,76, 170, 177,32,69,  1605 

1010  DRTR158, 152,41,3,240,33, 141,50, 
158,206,50, 158,32,69, 158, 132,  1781 

1 0 1 1  BRTR25 1 , 32 , 69 , 1 58 , 1 32 , 253 , 32 , 69 
, 158, 140,24,212, 173,50, 158,240,2151 

1012  BflTAl 1 , 74, 176,62,76,232,158,162 
, 14,108,0,3, 173,51, 158, 141,1599 

1013  BRTR5, 212, 173,54, 158, 141,6,212, 
173,60, 158, 141,2,212, 173,61, 1941 

1014  DATR158, 141,3,212, 166,251, 189, 1 
67, 159, 188,80, 159, 141,0,212, 140,2366 


1015  DfiTAl ,212, 173,66, 158, 141,4,212, 
32,30, 159, 173,57, 158, 141,4, 1721 

1016  BfiTR212, 96, 173,52, 158, 172,55,  15 
8, 141, 12,212, 140, 13,212, 173,62,2041 

1017  BRTR158, 141,9,212, 173,63, 158, 14 
1,10,212, 166,251, 189,167,159, 188,239 

7 

1018  BRTR80, 159, 141,7,212, 140,8,212, 
173,67, 158, 141, 11,212,32,30, 1783 

1019  BATA 159, 173,58, 158, 141 , 1 1 , 212,  9 
6, 173,53, 158, 172,56, 158, 141 , 19, 1938 

1020  DRTR212, 140,20,212, 173,64, 158,  1 
41, 16,212, 173,65, 158, 141 , 17, 212,  21 14 

1021  BRTR166,251, 189, 167, 159, 188,80, 
159, 141, 14,212, 140, 15,212, 173,68,233 

4 

1022  DRTR158, 141 , 18, 212, 32, 30, 159, 17 
3,59, 158, 141, 18,212,96, 160,0, 1767 

1023  BRTR162, 10, 136,208,253,202,208, 
250, 198,253,208,244,96, 169,0, 141,273 

8 

1024  DATA24,212, 141,4,212, 141,11,212 
, 141, 18,212,96,0, 141,24,212, 1801 

1025  BRTR141 , 4, 212, 141,11,212,141, 18 
,212,96,255,255,255,255,255,255,2718 

1026  REM***  DATOS  DE  FRECUENCIAS  ALT 
O/BAJO*** 

1027  BATA1 ,1,2, 2, 2,2, 2, 2, 2, 3, 3, 3, 3, 3 
,4,4,39 

1028  BRTR4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 8, 8,9, 9 
, 10, 10, 109 

1029  DATA11, 12, 12, 13, 14, 15, 16, 17, 18, 
19,20,21,22,24,25,27,286 

1030  BATA28, 30, 32, 34, 36, 38, 40, 43,45, 
48,51,54,57,61,64,68,729 

1031  DATA72, 76, 81 , 86, 91 , 96, 102, 108, 1 
15, 122, 129, 137, 145, 153, 163, 172, 1848 

1032  DATA183, 193,205,217,230,244,0,2 
05,233,6,37,69, 104, 140, 179,220,2465 

1033  BATAS, 54, 103, 155,210, 12,73, 139, 
208,25, 103, 185, 16, 108,206,53, 1658 

1034  BATA163, 23, 147, 21 , 159, 50, 205, 11 
4,32,216, 156, 107, 70, 47, 37, 42, 1589 

1035  DRTA63, 100, 154,227,63, 177,56,21 
4, 141,94,75,85, 126,200,52, 198,2025 

1036  DATA127,97, 111, 172, 126, 188, 149, 
169,252, 161,105, 140,254, 194,223,88,2 
556 

1037  BRTR52, 120,43,83,247,31,210,25, 
252, 133, 189, 176, 103,0,0,0, 1664,62217 


Listado  II 

5  REM  DEMOSTRACION  BEL  SI  DA ID 
10  P0KE52 , 1 57 : P0KE56 , 1 57 : CLR 
20  I FPEEK  <  40384 ) O76THENL0AD " S I DCD " , 
e,  i 

30  ÜIJ-40364  :  PV=ÜU+3 :  AV-QU+6 
40  GOSUB1000 • REM  INICIALIZACION 
50  SVSAV, 1,0, 10, 15,3, 16 
60  F0RX-9T079STEP2 i SVSPV , 1 , X , 5 , 1 5 : NE 
XT 

70  SVSQU 

80  SVSAV, 2,0, 10, 15,3,64, 100 
90  FORX*20TO60 • SVSPV, 2, X, 5, 15: NEXT 
100  SVSQU 

1 1 0  FORX-35TO50 ¡ SVSPV , 3 , X , 1 0 , 1 5 : NEXT 

120  SVSQU 
130  F0RV-1T02 

140  F0RX“1 TOS ; SVSPV, V, 8(X) ,  25,  15:NEX 
T 

150  F0RX-8T018TEP-1 : SVSPV, V,S<X),  15, 
15: NEXT 


160  NEXTV ; SVSQU 

170  svspv, 3, 86, 60,0 

180  REM  TOCA  UNA  MELODIA  CON  DIFEREN 

TES  INSTRUMENTOS 

190  T=6 

200  SVSAV,  1 , 0,3,0,  0,  64/  2SS  '•  REM  PIANO 
20S  OOSUBS00 

210  SVSAV, 1 , 0,  9,  0,  0, 64, 63 ¡ REM  BANJO 
220  OOSUB500 : T«4 

240  SVSAV , 1 , 6 , 5 , 2 / 2 , 32 : REM  ACORDEON 
250  QOSUB500 

260  SVSAV,  1,6,0, 10, 1,32: REM  TROMPETA 

270  GOSUB500 
300  REM  EFECTOS  SONOROS 
310  REM  DISPAROS  DE  PISTOLA 
320  F0RZ-1T03 

330  FORX- 1 5TO0STEP- 1 ¡ SVSPV , 3, 43 , 1 , X  i 
NEXT ¡ NEXT : SVSQU 

340  REM  MOSQUITO  UTILIZANDO  LA  SINCR 
OH IZ ACION 

350  SVSAV, 1. 13, 11,0,0, 18 

360  S VSPV ,3,48, 10<  0 ; REM  SOLO  S I NCRON 

IZADO 

370  FORX» 1 TOS : SVSPV / 1 / 70 / 200 , 1 S : NEXT 
375  SVSQU 

380  REM  CAMPANADAS  UTILIZANDO  MODULA 

CION  EN  ANILLO 

390  SVSAV/ 1/0/9/0/0/20 

395  SVSPV, 3/50/ 10/0 

400  F0RX-1T012: SVSPV/ 1/74/ 160/ 15:NEX 

T 

410  SVSQU 

499  END 

500  REM  TOCA  UNA  MELODIA 

520  F0RX-1T021 ¡ SVSPV, 1 , TI <X> , DI <X)*T 
,15: NEXT 
530  SVSQU 
540  RETURN 

999  END 

1000  DIMS<8),T1(21>/D1<21) 

1010  FORX»0TO8 : READS(X) : NEXTX : REM  ES 
CALA 

1020  FGRX-1T021  •'  READT1 CX) ,  D1<X>  :  NEXT 

1 030  F0RX»54272T054296 ¡ POKEX, 0 : NEXT 
1033  RETURN 

1039  REM  ESCALA  EN  DO 

1 040  DAT A86 , 38 ,  40 ,  42 , 43 , 45 , 47 , 49 , 50 

1049  REM  SINTONIA 

1050  DATA45, 4, 47, 4, 45, 4, 45, 4, 45, 2, 47 
,2,49, 12,45/4/47/4/40/4,40/4/40,4,40 
/  4 

1055  DATA42/ 1/43/ 1/45/4/43/2/40/8/38 
/ 12,86/ 12,50,  12 


Magia 

Conversión 

Para  convertir  los  códigos  ASCII  en  códigos  POKE  de  la 
pantalla: 

1  def  fn  f(a)=a-161-33*(a<225)-64*(a<192)-32*(a<160) 
+32*(a<96)-64*(a<64) 

Esta  función  convierte  los  ASCII  para  que  podamos 
hacer  directamente  el  POKE.  Es  útil  por  ejemplo  en  cuanto 
estamos  con  un  procesador  de  textos. 

T.H.  RUN  EE.UU. 


Anuncios  por  palabras 


Por  W.G.  Voight 

VIC-20 

No  ampliado 

(RUN  EE.UU) 

impresora 

C-64 

Fig.  1.  Anuncio  normal  por  palabras,  de  7,5  X  12,7  centímetros 
(reducido  al  85%  de  su  tamaño  real). 


En  Venta 
Henway  1973 
Perfecto  estado 
Llamar  a  Pedro 
853-1212 


¿Tiene  algo  que  decir,  algo  que  vender,  o  algo  que  anunciar? 
Convierte  tu  mensaje  en  un  verdadero  anuncio  y  pégalo  en  el 
tablón. 

Poco  se  ha  escrito  sobre  la  técnica  del  tablón  de  anuncios,  si 
bien  todos  sabemos  que  el  coste  es  bajo  y  la  tecnología 
necesaria  es  elemental:  un  rotulador  y  una  cartulina  de  7,5  X 
12,7  cm.  representan  lo  más  avanzado  en  este  campo. 

Tengo  un  VIC  20  y  una  impresora,  así  que  decidí  inventarme 
un  programa  que  me  imprimiese  un  bonito  cartel  para  exponer 
en  el  tablón  de  anuncios  de  la  empresa  o  en  el  kiosko  del 
barrio.  El  programa  que  obtuve  se  muestra  en  el  listado 
adjunto. 

El  tamaño  del  cartel  lo  elegí  pensando  en  los  otros  anunciantes 
que  compartirían  el  espacio  conmigo,  una  cartulina  de  7,5  X 
12,7  cm.  con  el  texto  impreso  en  letras  grandes  y  las  líneas 
centradas.  En  la  figura  1  se  puede  apreciar  un  anuncio  típico, 
que  tiene  siete  líneas  de  hasta  23  caracteres  cada  una.  Sin 
embargo,  y  como  veremos  más  adelante,  estas  características  se 
pueden  cambiar  fácilmente. 

La  impresora  que  yo  tengo  sólo  tiene  dos  densidades  de 
caracteres,  y  yo  elegí  el  tamaño  ampliado  de  cinco  caracteres 
.  por  pulgadas  (CPP)  para  el  texto  del  anuncio.  Los  caracteres 
del  marco  se  imprimen  con  densidad  normal,  es  decir  10  cpp. 
En  un  anuncio  de  cinco  pulgadas  de  anchura  (12,7  cm.) 
entrarán  veinticinco  caracteres  por  línea  a  5  cpp.  Los  dos 
caracteres  del  marco  en  los  extremos  de  una  línea  equivalen  a 
una  posición  de  impresión  ampliada,  puesto  que  cada  carácter 
es  la  mitad  de  la  anchura  de  un  carácter  ampliado.  Además,  el 
programa  impone  un  mínimo  de  un  espacio  al  final  de  la  línea. 
Por  lo  tanto,  caben  dos  caracteres  menos  que  la  longitud  real 
de  la  línea. 

La  longitud  de  la  línea  se  define  con  la  variable  LL  en  la  línea 
90  del  programa.  Cuando  necesite  un  cartel  de  diferente 
anchura,  basta  cambiar  el  valor  de  LL  para  definir  el  nuevo 
número  de  caracteres  por  línea  y  ajustar  el  marco  al  nuevo 
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tamaño.  La  figura  2  es  un  anuncio  que  tiene  cinco  líneas  de  18 
caracteres  (LL  =  20). 

La  variable  NL  de  la  línea  90  determina  la  altura  del  anuncio. 
NL  es  el  número  de  líneas  del  texto.  Cada  línea  de  texto  está 
entre  dos  líneas  totalmente  en  blanco,  excepto  por  los 
caracteres  del  marco  en  cada  extremo.  La  impresora  recibe  la 
instrucción  de  utilizar  el  modo  gráfico  (CHR$(8))  al  cambiar 
de  línea,  de  modo  que  los  caracteres  del  marco  queden  juntos 
verticalmente. 

La  línea  superior  del  marco  se  imprime  como  una  línea  del 
carácter  definido  por  B$,  seguido  de  tres  líneas  en  blanco  para 
dejar  un  cierto  espacio  libre  sobre  el  texto.  En  la  parte  inferior 
sucede  lo  contrario:  a  las  tres  líneas  en  blanco  sigue  la  línea  de 
caracteres  del  marco. 


Cómo  funciona.  Las  líneas  1  a  17  explican  el  uso  de  las 
variables  del  programa,  y  no  es  realmente  necesario  teclearlas. 
Las  líneas  80  y  90  asignan  valores  a  cada  una  de  las  variables. 
La  idea  es  que  se  puedan  modificar  fácilmente  en  todo  el 
programa  cambiando  sólo  una  línea.  Por  ejemplo,  si  su 
impresora  utiliza  un  código  gráfico  distinto  de  CHR$(8),  podrá 
cambiarlo  en  la  línea  80,  y  siempre  será  correcto  en  el 
momento  oportuno.  B$  es  el  carácter  del  marco:  CHR$(191), 
similar  a  un  tablero  de  ajedrez.  Lo  puede  sustituir  por 
cualquier  carácter  imprimible,  en  caso  de  que  quiera  cambiar  el 
marco.  NL  y  LL  controlan  el  tamaño  vertical  y  horizontal  del 
anuncio,  tal  y  como  se  describió  antes. 

Las  líneas  100-190  aceptan  líneas  de  texto  del  teclado  y  las 
asignan  a  las  variables  AD$(LI),  en  las  que  LI  representa  el 
número  de  cada  una  de  las  líneas  del  texto  partiendo  de  1 
hasta  el  número  asignado  por  NL.  Por  ejemplo,  AD$(4) 
contiene  el  texto  que  se  va  a  imprimir  en  la  cuarta  línea. 

Las  líneas  200-290  combinan  verticalmente  las  líneas  del  marco 
con  las  líneas  del  texto,  y  utilizan  las  subrutinas  que  hay  por 
encima  de  la  línea  1000  para  centrar  y  preparar  las  líneas 
horizontalmente. 

Las  líneas  1000  y  1010  imprimen  tres  líneas  en  blanco  sobre  la 
primera  y  debajo  de  la  última  línea  del  texto. 

Las  líneas  1400-1470  centran  el  texto  en  la  línea  de  impresión  y 
añaden  el  carácter  del  marco  a  cada  extremo.  Luego  se 
imprime  la  línea. 

Las  líneas  2100-2130  construyen  e  imprimen  una  línea  que 
contiene  una  línea  entera  de  caracteres  de  marco,  o  una  línea 
en  blanco  con  el  carácter  de  marco  a  cada  extremo. 

Cómo  se  usa.  Teclea  el  programa  Anuncios  por  Palabras, 
omitiendo  las  líneas  1  a  17  si  así  lo  deseas.  Teclea  RUN. 

El  número  de  líneas  de  texto  y  el  número  máximo  de 
caracteres  por  línea  aparecerá  en  la  parte  superior  de  la 
pantalla.  A  medida  que  introduces  cada  línea,  aparecerá  un 
signo  de  interrogación  en  la  parte  izquierda  de  la  pantalla,  que 
indica  que  el  programa  está  preparado  para  aceptar  una  nueva 
línea.  No  añadas  espacios  al  principio  ni  al  final  de  la  línea,  ya 
que  el  programa  los  consideraría  como  parte  del  texto  y  las 
líneas  no  quedarían  correctamente  centradas. 

Cuando  hayas  introducido  la  última  línea,  el  signo  de 
interrogación  no  aparece,  y  la  impresora  comienza  a  imprimir 
el  anuncio.  Cuando  haya  terminado,  si  tecleas  RUN  no  se 
imprime  de  nuevo  el  mismo  anuncio,  sino  que  vuelve  a  ejecutar 
el  programa  desde  el  principio.  Para  sacar  muchos  ejemplares 
de  un  mismo  anuncio,  añade  las  siguientes  dos  líneas  al 
programa: 

270  INPUT“  SHFT  CLEAR  OTRA  COPIA”;CO$  \ 

280  IFLEFT$(CO$,l)=“S”GOTO220 

Al  responder  “S”  o  “SI”  se  repetirá  el  mismo  anuncio,  siempre 
que  se  hayan  añadido  las  líneas  270  y  280  al  programa 
original.  Si  utilizas  papel  continuo,  es  posible  que  tengas  que 
ajustarlo  un  poco  antes  de  contestar  a  la  pregunta  para  evitar 
que  la  máquina  imprima  en  una  perforación. 

Naturalmente,  este  programa  se  puede  utilizar  para  otras  cosas 
aparte  de  los  anuncios  de  ventas,  como  por  ejemplo,  carteles 
de  “prohibido  entrar”  en  la  habitación  de  los  niños.  O  quizá 
no  encuentres  ninguna  aplicación  concreta,  pero  aún  así  vale  la 
pena  experimentar  con  él,  si  te  interesa  la  programación  Basic. 


Figura  2.  Anuncio  más  pequeño  donde  LL=20  y  NL=5. 
Observe  que  se  ha  cambiado  el  carácter  de  marco.  (Reducido 
85%  de  su  tamaño  real). 

VENTA  DE  LIBROS  Y  ROPA 
SABADO  3  DE  NOV. 

CALLE  DEL  PEZ,  2 


VIC-20  y  C-64 

1  REM:  FISIONA  7.5  *  12.5  CM. 

2  REM :  PARA  EL  ANUNCIO 

3  REM: 

4  REM :  RESTRIÑO  A  IMPRIMIR 

5  REM  •  BíCARACTER  BEL  BORDE 

6  REM:  Cí-CADENA  DE  TEXTO  CENTRADA 

7  REM:  G*=C0MAND0  DE  GRAFICOS 

S  REM:  N*-C0MAND0  DE  IMPRESION  ÑOR 

MAL 

9  REM:  Xí-COMANDO  DE  IMPRESION  EXT 

ENDIDR 

10  REM:  LI «NUMERO  DE  LINEA  ACTUAL 

11  REM:  LL-LONOITUD  MAXIMA  DE  LINEA 

12  REM:  NL «NUMERO  DE  LINEAS 

13  REM:  SL-LONQITUD  DE  CADENA 

14  REM 

15  REM 

1 6  REM :  *************************** 

17  REM: 

80  X#«CHR*C14)  G*«CHR*<8):N*®CHR#<15 
) 

90  B*«CHR*( 191 ) : NL«7 : LL«25 

100  PR I NT" C  CLR  3 [ 5SPC 3 -SE í  SPC 3 VENDE- CCRSRD3 

lio  print"cspc3TIenesm;nl; "cspc3line 

AS" 

120  PR I NT " í SPC  3  DE " j LL-2 1 " C  SPC  3  CARACT 
ERES. CCRSRD3 " 

130  FÜRLI-1T0NL 
140  IMPUTAD* (LI ) 

150  I FLEN ( ADÍ (  L I )  )  OLL-2THEN 1 90 
160  PÚKE36878*  0 : GOTO 140 
190  NEXTLI 

200  REM  *  LO  SACA  POR  IMPRESORA  « 

210  0PEN1 , 4 

220  R*»B*  :  Q0SUB2 1 00  :  R$- "  [  SPC 3  "  ¡  GOSUB 
2100 

230  GOSUB 1 000 : FORL I ■ 1 TONL 

240  G0SUB2 1 00 : GOSUB 1400: QQSUB2 1 00 

250  NEXTLI 

260  GOSUB 1 000 : G0SUB2 1 00 : R*«B* : G0SUB2 
100 

290  CL0SE1 : END 

1000  REM*  DEJA  3  LINEAS  EN  BLANCO  * 

1010  R*« " [ SPC  3 " : FORO- 1 T03 : 00SUB2 1 00 : 

NEXTQ : RETURN 

1400  REM  *  PREPARA  UNA  LINEA  * 

1410  SL=»LEN(AD*(LI>  V2 

1420  1T0INTÍ ( (LL-1 V23-SL 

) 

1430  Cí «€#+  "  í  SPC  3  "  :  NEXTN  '•  C*»Cí+AD*(L 
I) 

1440  FORN**0TO(LL-SLV2  :  C*»C*+"  CSPC3" 

: NEXTN 

1450  C*=LEFT*(C*<  LL-1 ) 

1460  A*«N*+B*+X*+C*+N*+B*+0* : PRINT41 
,A  * 

1470  RETURN 
2100  A*=»Nf+B* 

2110  F0RQ»lT0(2*LL)-2 : Af“AÍ+R* : NEXTQ 

2120  A*-A*+B*+Q*:PRINT#1,A* 

2130  RETURN 


Al  ejecutar  el  programa,  y  tras  un  tiempo  de  espera  y  si  no  ha 
habido  ningún  error  de  DATAS  el  programa  nos  dice  que  SYS 
tenemos  que  hacer  para  conectarlo. 

Cuando  queramos  autonumerar  cualquier  programa  sólo 
tendremos  que  hacer  el  SYS  adecuado  o  SYS  0,  entonces  nos 
aparecerá  en  la  pantalla: 

INICIAL,  INCREMENTO? 

nosotros  tenemos  que  introducir  dos  cantidades  separadas  por 
una  coma,  estas  deben  de  ser  inferiores  a  100000,  si  no 
aparecerá  un  ¡Ilegal  cuantity,  para  desconectar  el 
autonumerador  nada  más  fácil  teclear  a  la  vez  RUN/STOP  y 
RESTORE. 

El  programa  en  BASIC  lo  único  que  hace  es  quitarte  esos  28 1 
bytes  para  el  programa  de  código  máquina,  ajustar  las 
direcciones  absolutas  del  programa  a  la  configuración  que 
tenga  en  ese  momento  el  VIC-20,  y  cargar  el  programa. 
Adjunto  también  el  desensamblado  del  programa  con  algunos 
comentarios  de  lo  que  hace  cada  parte  del  programa.  El 
programa  se  reduciría  a  la  mitad  si  se  introducen  las 
cantidades  INICIAL  e  INCREMENTO  a  mano  (o  sea  a 
POKES). 

De  $1DDB  a  S1DDF  se  guarda  la  cantidad  inicial,  que  se  va 
incrementando  a  medida  que  se  van  introduciendo  líneas.  De 
S1DE1  a  S1DE5  se  guarda  la  cantidad  a  incrementar,  cada 
byte  de  estos  registros  sólo  puede  tener  un  valor  de  0  a  9,  esto 
desaprovecha  memoria,  pero  ahorra  el  software  que  habría  que 
añadir  para  transformar  los  bytes  en  dígitos  decimales.  Todas 
las  direcciones  reseñadas  y  las  del  desensamblado  son  con  la 
configuración  standard  o  con  la  de  3Ko„  con  16Ko.  ó  8Ko. 
serían  diferentes. 


10  REM*F . PLR2R* 1 6-4-84*530  BYTES#* 

20  REM***RUT0f1RTI  CO#* 

30  P*PEEK (55)  +PEEK < 56 ) *256  : Np-28  1 
40  P1=INT (P/256) : F‘2=INT ( (PX256-P1 >*2 
56+ . 5 ) 

58  P0KE55/P2 ■ PQKE56, P1 : POKES 1 , P2 ¡ POK 
E52,P1 

54  FORT1=0TO17  ■’  0*0  :  FORT=0TO15 •'  RERBR : 
Ü«G+fl  ■  NEXT 

56  RERBR :  IFOOFUHENPRINT'1  CCLR3  C3CRSRD] 


[ RVSON ] ERROR  C  SPC ] EN  C  SPC ] L I NEfl " 1 1 00+T 
1*10 : END 

58  NEXT  Q=0 :  T=0 ¡  RESTORE 

60  FORT1=0TO15 : RERBR 

70  I  Ffl>999RNBR<2000THENR=R- 1 000+P2 : 1 

FR>255THENR=R-256 :  0=1 

80  I FR> 1 999RNBfl<3000THENR*R-2000+P 1 + 

R :  Q=0 

90  PQKET+P,  R : T=T+1 : IFO280THEN300 

95  NEXT : RERBR : GOTO60 

10O  BRTR162, 0. 169.0, 157. 1245,2000, 15 

7, 1251, 2000 , 232  , 224  , 5 , 208 ,  245 , 162,82 

17 

110  BRTR255, 232, 189, 1000,2001,32,210 
,255,224,24,208,245, 162,0,32,15,5084 

120  DRTR225, 201 , 13, 240, 13, 157, 0, 2, 23 

2,224,89,144,241,162,23,76,2042 

130  BRTR55, 196,224,1,240,53, 160,5,20 

2,224,0,48,52, 189,0,2,  1651 

140  BRTR20 1,44, 240, 16,56,233,48, 153, 

1250,2000, 136, 192,0, 16,233, 162,4980 

150  BRTR14, 108,0,3, 160,5,202,224,0,4 

8,22,189,0,2,56,233, 1266 

160  DRTR48, 153, 1244,2000, 136, 192,0, 1 

6,237,48,228, 142, 1248,2000, 142, 1254, 

9088 

170  DRTR2000, 173,36,3, 141 , 1 138, 2000, 
173,37,3, 141,1139,2000, 169,1140, 141, 
10434 

18Ü  BRTR36, 3, 169,2000, 141 , 37, 3, 76, 1 1 

6, 196, 14,242,8, 141,64,3,3249 

190  BRTR104, 141,65,3, 142,66,3, 140,67 

,3,173,66,3,201,0,208, 1385 

200  BRTR3 , 32 , 1 1 8 1 , 2000 , 1 72 , 67 , 3 , 1 74 , 

66,3, 173,65,3,72, 173,64,4251 

2 1 0  DRTR3 , 40 , 1 08 , 1 1 38 , 2000 , 1 62 , 255 , 1 

60,1,232, 189, 1245,2000,208,5,224,797 

0 

220  BRT R3 , 208 , 246 , 232 , 189, 1245,2000, 
24, 105,48, 153, 118,2,200,224,4,5001 
230  BRTR208, 241 , 169,32,153,119,2,132 
, 198, 162,4,24, 189, 1245,2000, 125,5003 

240  BRTR1251 , 2000, 201 , 10, 144,6,56,23 
3, 10,56,176, 1,24, 157, 1245,2000,7570 
250  BRTR202, 16, 233, 96, 0, 0, 0, 1 , 0, 0, 1 , 
0,0,0, 1,0,550 

260  BRTR13, 13, 80, 82, 73, 77, 46, 76, 73, 7 

8, 69, 65, 44, 73, 78,67, 1007 

270  BRTR2, 69, 77, 69, 78, 84, 79, 63, 13,0, 

0,8,0,0,0,0,534 

300  PÜKE0 ,  76 : P0KE 1 , P2 : P0KE2 , P 1 ■ PR I NT 
" [ CLR ] C 3CRSRB ] C RVS0N ] PRRR [ SPC 3 COHECT 
RR [ SPC ] EL  C  SPC ] RUTO  C  SPC I HRCER C  SPC ] SYS 
0 [ SPC 10 C SPC] SYS "P^ NEW 


SR  HC  XR  VR  SP 
33  00  63  00  F6 


LBX  #$00 
LBR  #$O0 
STR  $  1 BBC , X  , 

INX  !>  Borra  memorias  e  inci 

CPX  #$05 

BNE  $1CEB  J 

LBX  #$FF  j 

INX 

LBR  $1BE7 , X 

JSR  $FFB2  >  Presenta  en  pantalla  tr 
CPX  #$18 
BNE  $  1 CF8 


Commodore  World 


ESPECIAL  PROGRAMAS 


..  1D03 

LBX 

#*00 

.  ,  1B05 

JbK 

ÍE10F 

.  ,  1B08 

cnp 

#*0B 

.  ,  1  D0fl 

BE  O 

*  1 D 1 9 

.  .i  1 B0C 

STñ 

*0200..  X 

Introduce  teclas  dadas  en  buffer 

.  ,  1B0F 

INX 

r  de  basic  (S0200). 

.,  1B10 

CPX 

#*59 

.  ,  1B12 

BCC 

*1D05 

1B14 

lux 

#*17 

.  ,  1B16 

JI’IP 

*C437 

. ,  IB 19 

CPX 

#*01 

.  ,  1  DIB 

BEQ 

Í1D52 

registros. 

.  ,  1D1B 

LDV 

#*05 

. ,  1D1F 

BEX 

. ,  1 B20 

CPX 

#Í00 

.  ,  11122 

BMI 

*1D58 

.  ,  1 D24 

LDR 

*0200, X 

.  ,  1 D27 

CMP 

#*2C 

. ,  1B29 

BEQ 

í  1D3B 

#*30 

. ,  1 D2C 

SBC 

de  basic. 

. ,  1B2E 

STR 

í 1  DE 1 , V 

. ,  1D31 

BEV 

.i  1D32 

CPV 

#Í00 

. ,  1B34 

BPL 

*1D1F 

. ,  1D36 
.i  1 D38 
. ,  1D3B 

LBX 

JMP 

LDV 

#*0E 

<*0300) 

#*05 

Si  hay  más  de  5  cifras  ir  a 
subrutina  de  errores. 

. ,  1B3B 

DEX 

. ,  1B3E 

CPX 

#*00 

.  ,  1B40 

BMI 

*  1 D58 

. ,  1B42 

LBR 

*0200, X 

. ,  1B45 

SEC 

Introduce  en  la  memoria  de 

. ,  1D46 

SBC 

#*30 

"incrementos  lo  contenido  en  el 

. ,  1B48 

STR 

*  1  DDE , V 

buffer  de  basic. 

.i  1D4B 

BEV 

. ,  1D4C 

CPV 

#*00 

.  ,  1B4E 

BPL 

*  1 D3D 

.  ,  1D50 

BMI 

*lD3b 

. ,  1B52 

STX 

*  1  DDF 

. ,  1D55 

STX 

*1DE5 

. ,  1D58 

LDR 

*0324 

. ,  1B5B 

STR 

Í1D71 

.  ,  1D5E 

LDR 

*0325 

.i  1D61 

STR 

*1D72 

>  Cambia  puntero  de  Kernal  Vector 

. ,  1B64 

LDR 

#*73 

de  interrupción  y  vuelve  al  basic. 

. ,  1D66 

STñ 

*0324 

. ,  1B69 

LBfl 

#*1D 

. ,  1B6B 

STR 

*0325 

. ,  1B6E 

JMP 

*C474 

. ,  1B71 

RSL 

*08F2 

.  ,  1B74 

STR 

*0340 

•i  1 B77 

PLfl 

. ,  1B78 

STR 

*0341 

. ,  1D7B 

STX 

*0342 

. ,  1B7E 

STV 

*0343 

.  ,  1B81 

LDR 

*0342 

. ,  1D84 

CMP 

#*00 

. ,  1D86 

BNE 

*1D8B 

>  Intercepta  rutina  'Vector  de 

.  i  1B88 

JSK 

*1D9C 

interrupción' 

. ,  1B8B 

LDV 

*0343 

. ,  1D8E 

LDX 

*0342 

.  ,  1D91 

LDR 

*0341 

1D94 

PHR 

. ,  1D95 

LBR 

*0340 

. ,  1B98 

PLP 

. ,  1B93 

JMP 

<*1D71 ) 

. ,  1B3C 

LDX 

#*FF  ; 

. ,  1B9E 

LDV 

#*01 

. ,  iDñ0 

INX 

. ,  lBfil 

LDR 

* 1  BBC , X 

. ,  lBñ4 

BNE 

*  1  DflB 

. ,  lDñb 

CPX 

#*03 

. ,  IBAS 

BNE 

*1BR0 

.  ,  1  Dflfl 

INX 

. ,  1BRB 

LDR 

*1DDC, X 

. ,  1DRE 

CLC 

. ,  1DRF 

RDC 

#*30 

. ,  1BB1 

STR 

*0276, V 

Introduce  en  el  buffer  de  teclado 

,  1DB4  INV 

,  1BB5  CPX  #*04 

,  1DB7  BNE  *1DRR 

,  1BB9  LDR  #*2ü 

,  1DBB  STR  *0277  , V 

,  1DBE  STV  *C6 

,  1DCQ  LDX  #*Ü4 

,  1BC2  CLC 

,  1BC3  LDR  * 1  BBC , X 

,  1 BC  6  RDC  *1BI  2,  < 

,  1DC9  CMP  #*0ñ 

,  1DCB  BCC  *1DD3 

,  1DCD  SEC 

1DCE  SBC  #*0H 
,  1BB0  SEC 

,  1BB1  BCS  *1BB4 

i  1 BB3  CLC 

,  1BB4  STR  *  1  BBC  , X 

,  1BD7  DEX 

,  1BB8  BPL  *1BC3 

,  lBBñ  RTS 


Incrementa  la  memoria  'inicio'  el 
valor  de  la  memoria  'incremento'. 


1BDB  00  00  00  01  00 
1BE0  00  01  00  00  00 
IBES  01  00  0B  00  50 
IDEA  52  49  4D  2E  4C 
1DEF  49  4E  45  41  2C 
1BF4  49  4E  43  02  45 
IBP 9  4B  45  4E  54  4F 
1IJEF  3F  00  2E  2C  20 


— ►  Memoria  'inicio' 

— ►  Memoria  ‘incremento’ 


}De  S1DE7  a  S1DFF. 
Esta  el  texto  inicial. 


Magia 

Nombrando  programas 

Cuando  escribas  un  programa  largo  y  quieras  guardarlo 
en  disco,  utiliza  un  nombre  corto.  Es  más  rápido  y  siempre 
puedes  renombrarlo  cuando  lo  finalices. 

RUN  EE.UU. 


Títulos  de  ficheros 

Para  distinguir  cuando  hacemos  un  VERIFY  en  cinta  si  lo 
que  el  ordenador  encuentra  es  un  fichero  o  un  programa, 
podemos  hacer  lo  siguiente  cuando  grabemos  un  programa: 
SAVE  “NOMBRE” 

Cuando  sea  un  fichero: 

SAVE  “[RVS  ON]  NOMBRE” 

De  este  modo  el  nombre  de  los  ficheros  aparece  en  inverso. 

J.E.N.  RUN  EE.UU. 


Scroll  de  estrellas 

Un  bonito  efecto  para  gráficos  o  juegos  es  el  que  produce 
el  siguiente  programa: 

10  a=rnd(l)*23 
20  ?spc(a)“*” 

30  fort=lto40:next 
40  gotolO 

El  bucle  de  espera  de  la  línea  30  puede  cambiarse  para 
producir  otros  efectos. 

En  el  caso  de  que  el  ordenador  que  tengas  sea  un  64, 
cambia  el  23  de  la  línea  10  por  un  40. 


G.M.  RUN  EE.UU. 


Cambiar  el  color  de  la  pantalla,  marco  y  caracteres  en  el  C-64 
no  tiene  por  qué  ser  pesado.  Este  programa  te  permite  cambiar 
los  colores  en  un  abrir  y  cerrar  de  ojos  valiéndote  sólo  de  las 
teclas  Commodore  y  de  función. 

Una  de  las  posibilidades  más  interesantes  del  Commodore  64 
es  la  variedad  de  colores  que  ofrece.  Sin  embargo,  el  intérprete 
Basic  del  ordenador  no  facilita  precisamente  el  uso  de  estos  16 
colores. 

Al  empezar,  las  letras  aparecen  en  azul  claro  sobre  fondo  azul 
oscuro,  lo  cual  es  una  combinación  difícilmente  legible  incluso 
en  un  monitor  decente,  por  no  hablar  de  un  televisor  normal. 
Para  cambiar  los  colores  del  borde  y  del  fondo,  habría  que 
escribir  (con  POKE)  en  el  registro  53280  un  número  de  0  a  15 
para  el  marco,  y  en  el  53281  para  la  pantalla. 

El  programa  en  lenguaje  máquina  que  presento  a  continuación 
simplifica  este  proceso.  Carga  y  ejecuta  el  programa 
“Cambiador  de  color”  y  podrás  cambiar  el  marco,  la  pantalla, 
y  los  colores  de  los  caracteres  pulsando  una  tecla,  incluso 
durante  la  ejecución  de  un  programa  o  mientras  estás 
programando. 

Para  usar  el  programa,  teclea  cuidadosamente  el  programa 
siguiendo  el  listado  adjunto,  y  almacénalo  en  la  memoria  antes 
de  ejecutarlo.  (Es  conveniente  guardar  todos  los  programas  que 
teclees  antes  de  ejecutarlos,  especialmente  los  programas  en 
lenguaje  máquina.  Un  pequeño  error  de  mecanografía  podría 
“bloquear”  el  ordenador,  con  lo  que  tendrías  que  teclear 
nuevamente  el  programa  completo). 

Ahora  ejecuta  el  programa.  Tras  un  segundo  aproximadamente 
la  indicación  Ready  aparecerá  en  la  pantalla.  El  programa  ha 
sido  cargado  en  la  memoria,  y  empieza  en  $C350  (500 
decimal)  y  ha  redirigido  los  vectores  de  interrupción,  para  que 
apunten  hacia  él. 

Ahora,  mantén  la  tecla  Commodore  pulsada  (en  el  extremo 
izquierdo  de  la  hilera  inferior).  Pulsa  la  tecla  de  función  F1 
para  cambiar  el  color  del  marco.  Pulsa  la  tecla  de  función  F3, 
y  cambia  el  fondo  de  la  pantalla.  La  tecla  de  función  F5 
cambia  el  color  de  todos  los  caracteres  de  la  pantalla.  Y  la 
tecla  de  función  F7  desactiva  el  programa.  (Para  volver  a 
activarlo  teclea  SYS  50000  y  pulsa  la  tecla  return). 


Elegí  la  combinación  de  la  tecla,  Commodore  y  las  de  función 
porque  la  probabilidad  de  que  usarlas  juntas  en  un  programa 
es  relativamente  escasa.  De  ahora  en  adelante  te  resultará  fácil 
cambiar  estos  colores. 

Cómo  funciona  el  programa.  “El  cambiador  de  color”  es  un 
programa  controlado  por  interrupciones.  Sesenta  veces  por 
segundo  el  intérprete  Basic  del  Commodore  detiene 
momentáneamente  cualquier  tarea  que  esté  realizando  en  ese 
momento  para  llevar  a  cabo  una  serie  de  tareas  internas  como 
por  ejemplo,  actualizar  el  reloj  interno,  comprobar  si  se  ha 
pulsado  la  tecla  stop,  etc. 

En  las  posiciones  de  memoria  788  y  789  ($0314  y  $0315  en 
hexadecimal)  hay  dos  punteros  que  le  indican  al  ordenador  la 
dirección  a  la  que  debe  ir  para  llevar  a  cabo  estas  tareas 
internas.  Es  posible  cambiar  estos  punteros  para  que  apunten  a 
un  programa  escrito  por  ti  mismo. 

Estudiemos  la  primera  parte  del  listado  de  ensamblador, 
titulado  “Cambiar  vectores  de  interrupción”.  Se  trata  de  un 
pequeño  programa  en  sí  mismo  que  desactiva  todas  las 
interrupciones  para  que  el  ordenador  no  se  confunda  mientras 
tú  cambias  los  punteros.  Luego  cambia  dichos  punteros  para 
que  señalen  el  primer  paso  de  su  programa  principal,  en  este 
caso  $C35D. 

Observa  que  la  dirección  $C35D  se  almacena  en  la  memoria 
“al  revés”,  en  lo  que  se  denomina  “formato  de  byte-bajo, 
byte-alto”.  $5D  se  guarda  en  $0314,  y  $C3  en  $0315.  Luego, 
mediante  la  instrucción  CLI  se  vuelven  a  activar  las 
interrupciones  y  el  RTS  (retorno  de  subrutina)  devuelve  el 
control  al  Basic.  Ahora,  cada  l/60s  de  segundo,  el  Basic  salta 
a  su  propio  programa,  que  empieza  en  $C35D. 

Programa  principal.  En  primer  lugar  se  carga  el  acumulador 
con  el  contenido  de  SKEY,  que  contiene  el  valor  de  cualquier 
tecla  de  cambio,  control  o  Commodore  pulsadas.  Al  pulsar  la 
tecla  Commodore  carga  un  2  en  esta  dirección.  El  ordenador 
comprueba  que,  realmente,  hay  un  2  en  ese  lugar.  De  lo 
contrario,  el  usuario  no  está  pulsando  la  tecla  Commodore,  y 
el  programa  sabe  que  no  se  le  necesita,  por  lo  que  cede  el 
control  a  la  subrutina  Back  con  BNE  BACK  (Branch  if  Not 
Equal  -  Saltar  si  no  es  igual),  que  envía  al  ordenador  al  resto 
de  las  tareas  internas. 

Cuando  el  usuario  pulsa  la  tecla  Commodore,  el  acumulador  se 
carga  con  el  contenido  de  Key  (valor  de  toda  tecla,  distinta  de 
la  de  control,  que  se  está  pulsando  en  ese  momento).  El 
programa  compara  este  valor  con  FLAG,  que  contiene  el  valor 
de  la  última  tecla  analizada  por  el  programa.  Si  es  el  mismo,  el 
programa  vuelve  a  la  rutina  Back,  para  evitar  que  el  programa 
realice  60  cambios  de  color  por  segundo  (¡puede  llegar  a 
marear!).  Entre  uno  y  otro  cambio  de  color  tiene  que  soltar  las 
teclas. 

Si  el  acumulador  no  coincide  con  el  anterior  valor  de  Flag  lo 
primero  que  se  hace  es  guardar  el  nuevo  valor  de  la  tecla  en 
FLAG.  Para  ello  se  usa  la  instrucción  STAT  FLAG.  (Con  ello 
evitará  repeticiones  de  la  nueva  tecla  la  siguiente  vez).  Luego  el 
valor  de  la  tecla  se  compara  con  4,  el  valor  que  obtenemos  en 
la  posición  197  al  pulsar  la  tecla  Fl.  Si  dicho  valor  es  4,  el 
programa  cede  el  control  a  BORCOL,  la  rutina  de  cambio  de 
color  del  marco. 

Si  la  tecla  no  equivale  a  4,  se  compara  con  5  (la  que  tiene  el 
valor  de  F3),  6  (la  tecla  F5)  y  3  (la  tecla  F7).  Si  después  de 
todo  esto  no  obtiene  equivalencia,  el  programa  cede  el  control 
a  la  rutina  Back. 

Subrutinas  de  color.  Tanto  BORCOL  (cambio  de  color  del 
borde)  como  SCNCOL  (cambio  de  color  de  la  pantalla)  son 
muy  sencillas.  Basta  con  añadir  un  1  a  la  dirección  de  memoria 
correspondiente  al  color  de  fondo  de  la  pantalla  (5328 1 )  o  al 
color  del  marco  (53280),  y  luego  saltar  a  la  rutina  Back. 
CHARCO  (color  de  los  caracteres)  cambia  el  color  de  los 
caracteres  de  la  pantalla  y  es  más  complicada;  es  necesario 
cambiarlos  uno  por  uno. 


CURCOL  (posición  646  — decimal —  de  la  memoria)  contiene 
el  color  actual  del  cursor.  En  primer  lugar  se  incrementa  el 
CURCOL  para  obtener  el  nuevo  color  y  se  carga  el 
acumulador  con  este  número  (LDA  CURCOL). 

La  sección  siguiente  de  la  rutina  utiliza  el  direccionamiento 
indexado  indirecto  para  recorrer  toda  la  RAM  de  color  del 
Commodore  64  (SD800  a  SDBE7).  La  dirección  inicial  de  la 
RAM  de  color  se  almacena  en  el  “formato  byte-bajo, 
byte-alto”  en  las  direcciones  $FC  y  $FD  de  la  página  cero. 

(Ver  en  cualquier  manual  de  programación  en  lenguaje 
máquina  del  6502  la  explicación  del  direccionamiento  indexado 
indirecto). 

El  programa  luego  hace  un  bucle  recorriendo  las  cuatro 
páginas  de  256  bytes  de  la  RAM  de  color,  almacenando  el 
nuevo  color  en  cada  posición.  El  registro  X  conserva  la  página 
en  la  que  está  trabajando  la  rutina;  al  alcanzar  $DC,  se  da  por 
terminado  el  recorrido  de  la  memoria  y  se  cede  el  control  a  la 
rutina  Back. 

Cómo  desactivar  el  “Cambiador  de  Color”.  Para  poder  escribir 
o  leer  otro  programa  o  datos  en  la  zona  ocupada  por  el 
programa,  es  necesario  desactivarlo.  De  lo  contrario,  los 
vectores  de  interrupción  harán  que  el  ordenador  vaya  sumiso  a 
esta  dirección,  y  si  está  introduciendo  algo  ahí,  ¡ZAS!  se  queda 
bloqueado  instantáneamente.  Además,  conviene  desactivar  el 
programa  antes  de  usar  la  unidad  de  cassette.  (Para  volver  a 
activarlo,  teclea  SYS  50000).  Esta  rutina  tiene  el  efecto 
contrario  a  la  rutina  original  de  preparación:  se  desactivan  las 
interrupciones  y  los  punteros  de  interrupción  se  cargan  con  su 
contenido  normal,  apuntando  a  la  dirección  $EA31. 

Como  medida  de  precaución,  siempre  que  teclea  un  programa 
adicional  almacénalo  antes  de  ejecutarlo. 


10  REM  IM*IM*«IM«»**¡M!«**!**«* 

15  REM  «  « 

20  REM  *  CAMBIADOR  DE  COLOR  W 

25  REM  « - « 

30  REM  *  BRUCE  JAEGER  * 

35  REM  *  * 

40  REM  *iM********uM***«»Ml*« 

50  REM 
55  REM 

60  REM  RUTINA  PARA  PONERLO  EN  MEM0RI 
A 

65  REM 

100  DATA120, 169/93/ 141/20/3/ 169/ 195, 
141/21,3/88/96/ 173/ 141/2,201/2/208/6 


150  DATA169/49, 141,20,3, 169,234, 141, 
21,3/88,76/ 168, 195 
1 60  FORX-0TO 1 05 : READC ¡ POKE50000+X , C : 
SU-SU+C : NEXT 

1 70  I FSUO 1 4548THENPR I NT " ERROR  CSPCIE 
NCSPCIDATAS" : END 
180  SV850000 


UNE# 

L0C 

CODE 

LINE 

00001 

0000 

00002 

0000 

j  CODIGO  FUENTE  DEL  CAMBIADOR  DE  COLOR 

00003 

0000 

00004 

0000 

i  DEFINE  DIRECCIONES 

00005 

0000 

i  **é******#**iM********************** 

00006 

0000 

SKEV  ■  653 

TECLAS  DE  CONTROL  V  SHIFT 

00007 

0000 

KEY  m  197 

TECLA  PULSADA  ACTUALMENTE 

00008 

0000 

CURCOL  ■  646 

COLOR  ACTUAL  DEL  CURSOR 

00009 

0000 

COLOR  -  55296 

RAM  DE  COLOR 

00010 

0000 

BORDER  ■  53280 

COLOR  DEL  BORDE 

00011 

0000 

BKGRND  -  53281 

COLOR  DE  FONDO 

00012 

0000 

,  CAMBIA  VECTORES  DE  INTERRUPCION 

00013 

0000 

00014 

0000 

*  -  50000 

COMIENZA  ENSAMBLADO  AQUI 

00015 

C3S0 

78 

SEI 

DESHABILITA  INTERRUPCIONES 

00016 

C351 

A9 

5D 

LDA  #<PRGAM 

REORIENTA  LOS  VECTORES 

00017 

C353 

8D 

14 

03 

STA  $0314 

DE  IRQ  PARA  APUNTAR  AL 

00018 

C356 

A9 

C3 

LDA  #>PRGAM 

PROGRAMA 

00019 

C358 

8D 

15 

03 

STA  $0315 

00020 

C35B 

58 

CLI 

HABILITA  INTERRUPCIONES 

00021 

C35C 

60 

RTS 

VUELVE  A  BASIC 

00022 

C35D 

1  PROGRAMA  CAMBIADOR  DE 

COLOR 

00023 

C35D 

j  •«»»*•••**»*««•***•«»«•*»****••«**** 

00024 

C35D 

AD 

8D 

02 

PRGAM  LDA  SKEV 

COMPRUEBA  TECLAS  SHIFT  V  CBM 

00025 

C360 

C9 

02 

CMP  #2 

TECLA  CBM  PULSADA  ? 

00026 

C362 

D0 

44 

ENE  BACK 

NO - ENTONCES  SALIR 

00027 

C364 

A5 

C5 

LDA  KEV 

COMPROBAR  TECLA  PULSADA 

00028 

C366 

CD 

BA 

C3 

CMP  FLAG 

IGUAL  QUE  LA  ULTIMA  7 

00029 

C369 

F0 

3D 

BEQ  BACK 

SI - SALIR  (EVITAR  REBOTES) 

00030 

C36B 

8D 

BA 

C3 

STA  FLAG 

GUARDARLA  PARA  LA  PROXIMA  VEZ 

00031 

C36E 

C9 

04 

CMP  #4 

TECLA  F17 

00032 

C370 

F0 

0F 

BEQ  BORCOL 

SI  — IR  A  RUTINA  DEL  BORDE 

00033 

C372 

C9 

05 

CMP  #5 

TECLA  F3? 

00034 

C374 

F0 

11 

BEQ  SCNCOL 

SI  — IR  A  RUTINA  DE  LA  PANTALLA 

00035 

C376 

C9 

06 

CMP  #6 

TECLA  F5? 

00036 

C378 

F0 

13 

BEQ  CHARCO 

SI— IR  A  RUTINA  DE  CARACTERES 

00037 

C37A 

C9 

03 

CMP  #3 

TECLA  F7? 

00038 

C37C 

F0 

2D 

BEQ  RESET 

SI  — IR  A  RUTINA  DE  RESET 

00039 

C37E 

4C 

A8 

C3 

JMP  BACK 

00040  C381 

00041  C381 

00042  C381 

00043  C381 

00044  C381  EE  20  D0 

00045  C384  4C  88  C3 

00046  C387 

00047  C387 

00048  C387  EE  21  D0 

00049  C38R  4 C  88  C3 

00050  C38D 

00051  C38D 

00852  C3BD  EE  86  02 

00053  C390  AD  86  02 

00054  C393  80  00 

00055  C395  84  FC 

00056  C397  82  D8 

00057  C399  86  FD 

00053  C39B  91  FC 

00059  C39D  C8 

00060  C39E  D0  FB 

00061  C380  E8 

00062  C3R1  E0  DC 

00063  C383 

00064  C3R3  B0  F4 

00065  C385  4C  88  C3 

00066  C3A8 

00067  C3R8 

00068  C3R8  4C  31  ER 

00069  C3RB 

00070  C3RB 

00071  C38B  78 

00072  C3RC  89  31 

00073  C3AE  8D  14  03 

00074  C3B1  89  E8 

00075  C3B3  8D  15  03 

00076  C3B6  58 

00077  C3B7  4C  88  C3 

00078  C3BR 

00079  C3BA 

00080  C3BB 

00081  C3EB 


¡  RUTINAS  BE  COLORES 

¡  +*********«**«.***+*+***+************ 

BORCOL  ;  RUTINA  P8R8  EL  BORDE 

INC  BORDER  J  CAMBIA  EL  BORDE 

JMP  B8CK  ;  S8LE 

SCNCOL  ;  RIJTIN8  P8R8  EL  FONDO 

J  ************************************ 

INC  Bk'GRND  J  C8MBI8  EL  FONDO 

JMP  BRCK  j  S8LE 

CH8RC0  i  RIJTIN8  P8R8  LOS  CRR8CTERES 

¡  ♦  ***S*S*S****S**M*******S»****lMi*«>* 


INC  CURCOL 
LD8  CURCOL 
LDV  #00 
STV  #FC 
LDX  ##D8 
LOOP  STX  #FD 
INLOOP  STR  (#FC) . V 


C8MBI8  EL  COLOR  DEL  CURSOR 
:  LEE  EL  NUEVO  COLOR 
;  INDICE  V-0 


ULTIMO  BYTE  DE  L8  RRM  DE  COLOR 
LO  GIJRRDfl  EN  #FD 
PONE  EL  NUEVO  COLOR 
INCREMENTR  INDICE  V 
BNE  INLOOP  ;  SI  VO0  <0  256)  REPITE 

INX  ;  INCREMENTR  X  (BYTE  RLTO) 

CPX  ##DC  ;  SI  X=#DC  ES  QUE  HEMOS 

1  PflSRDO  LR  RAM  DE  COLOR 

BNE  LOOP  1  NO... REPETIR  OTRAS  256  VECES 

JMP  BRCK  J  SI... LO  HICIMOS. . .SALIR 

J  CONTINUAR  LR  RUTINA  NORMAL  DE  INTERRUPCION 

;  I»*#*#*##!#*#!#!»!**##!)»#*##***####*##**** 

BflCK  JMP  #ER31 
;  QUITAR  EL  CAMBIADOR  DE  COLOR 

l«*IM'*»»***#********»*******IM»*****« 


RESET  SEI 


DESHRBILITAR  INTERRUPCIONES 
VOLOVER  A  COLOCAR  LOS 
VECTORES  ORIGINALES 


LDA  ##31 
STR  #0314 
LDA  ##EA 
-  STR  #0315 
CLI 

JMP  BRCK 

»m*m***«n#*m«««***mm******* 

FLAG  #-#+1  ;  ALMACENA  AQUI  EL  INDICADOR 

DE  REPETICION  DE  TECLA 
.END 


1  HABILITAR  INTERRUPCIONES 


ERRORS  -  00000 


SYMBOL  TABLE 

SYMBOL  VALUE 
BflCK  C3A8 

CHARCO  C38D 
INLOOP  C39B 
RESET  C3AB 


BKORND  D021 
COLOR  D800 
KEV  00C5 
SCNCOL  C387 


BORCOL  C3S1 
CURCOL  0236 
LOOP  C399 
SKEY  023D 


BORDER  D020 
FLAG  C3BR 
PROAM  C35D 


END  OF  ASSEMBLY 


Escribe  el  siguiente  programa  en  tu  ordenador: 

10  fora=lto6:b=int(rnd(l)*  100):Print:next 
Cada  vez  que  haces  RUN,  escribes  seis  números  al  azar, 
entre  O  y  99.  Ahora  apaga  el  ordenador  y  repite  la  opera- 

¡E1  ordenador  ha  repetido  los  números!  Para  evitar  que 
esto  ocurra  cada  vez  que  haces  run  en  un  programa  normal, 
cambia  el  RND(l)  por  RND(O). 


Mnemotécnico 

Para  conectar  el  monitor  de  lenguaje  máquina  en  el  VIC- 
20,  hay  que  hacer  SYS32768,  pero  es  más  fácil  acordarse  de 
SYS  6*4096. 

A.I.B.  RUN  EE.UU. 

Caza  de  errores 

Cuando  busques  la  causa  de  un  syntax  error,  por  ejem¬ 
plo,  pulsa  shift  y  commodore  a  la  vez.  De  este  modo  pasas  al 
modo  minúsculas  y  es  más  fácil  distinguir  las  letras  de  los 
números,  el  “0”  de  la  “o”  etc. 

M.M.  RUN  EE.UU. 

Sonidos  en  el  VIC 

10  ?chr$(204.5+rnd(l));:x=int(rnd(l)*120):Poke36875,15: 
Poke36875,x:gotol0 

C.B.  RUN  EE.UU. 


Curvas  7680 


En  esta  primera  colaboración  es  un  programa  que  creo  muy 
interesante  para  aquellos  que  no  teniendo  el  cartucho  para 
dibujar  en  alta  resolución  quieran  usar  el  VIC-20  para  hacer 
aparecer  en  la  pantalla  una  curva  introduciendo  su  ecuación 
matemática.  Para  los  que  no  sean  muy  amigos  de  las 
matemáticas  pueden  descubrir  el  secreto  de  la  alta  resolución  y 
usarlo  en  otros  menesteres.  Ante  todo  indicar  que  este 
programa  sólo  sirve  para  el  VIC-20  con  memoria  MINIMA, 
sin  ningún  tipo  de  ampliación.  El  programa  se  ve  completado 
con  unas  subrutinas  en  lenguaje  de  máquina  para  hacer  que  su 
velocidad  sea  elevada  y  el  usuario  no  se  dé  cuenta  de  cuándo 
se  ejecutan,  pues  su  misión  es  poco  vistosa.  Dado  que  el 
problema  principal  es  la  falta  de  memoria,  dicho  programa  en 
lenguaje  de  máquina  se  introduce  en  memoria  leyendo  un 
fichero,  pues  de  hacerse  con  DATA’s  el  programa  no  entraría. 
El  programa  BASIC  de  la  figura  1  comienza  leyendo  dicho 
fichero  y  colocando  los  datos  en  un  principio  en  memoria  a 
partir  de  la  5.120.  A  continuación,  líneas  12  a  16,  estos  datos 
son  trasladados  al  buffer  del  cassette  a  partir  de  la  828.  Esto 
debe  hacerse  así  puesto  que  en  la  primera  lectura  el  buffer  del 
cassette  está  siendo  usado  para  la  propia  lectura  de  datos. 

La  forma  de  dibujar  en  pantalla  en  alta  resolución  consiste  en 
usar  un  generador  de  caracteres  propio.  Empezamos  llenando 
la  pantalla  con  los  255  primeros  caracteres,  delimitamos  la 
pantalla  a  1 1  líneas,  cambia  la  dirección  del  generador  de 
caracteres  a  la  posición  5. 120  y  baja  el  borde  de  la  pantalla 
hasta  centrarla. 

Para  1 1  líneas  de  pantalla  necesitamos  un  generador  de 
caracteres  de  2K  RAM,  desde  5120  hasta  7160,  viniendo  la 
memoria  del  VIC  justísima.  Si  tenemos  los  dos  K  RAM  del 
generador  de  caracteres  a  cero,  aunque  la  pantalla  esté  llena  de 
caracteres,  al  ser  todos  blancos  o  sea  un  espacio,  la  pantalla 
parecerá  vacía.  Si  ahora  llenamos  con  ciertos  códigos  nuestro 
nuevo  generador  de  caracteres  al  estar  la  pantalla  cubierta  de 
letras,  irán  apareciendo  cosas  en  pantalla.  Todo  consiste  pues 
en  definir  correctamente  el  generador  de  caracteres  de  forma 
que  su  representación  en  pantalla  coincida  con  la  curva  que 
deseamos  diseñar.  La  subrutina  en  lenguaje  de  máquina  que 
comienza  en  878  limpia  el  generador  de  caracteres  poniendo  la 
pantalla  en  blanco. 

Las  líneas  18  y  20  indican  al  usuario  que  la  ecuación  de  la 
curva  Y=F(X)  se  debe  de  escribir  en  alguna  de  las  líneas  43,44 
o  45  cuando  este  programa  se  detiene  en  el  LIST.  Una  vez 


escrita  la  ecuación  se  debe  de  arrancar  el  programa  con  GOTO 
22.  Si  en  este  momento  se  hiciera  RUN  el  programa  leería  de 
nuevo  el  fichero  machacando  nuestro  lenguaje  de  máquina 
situado  en  el  buffer. 

Las  líneas  22  y  30  preguntan  sobre  los  valores  máximos  y 
mínimos  de  la  variable  X  y  la  función  Y.  Esto  se  necesita  paia 
encuadrar  la  función  en  la  pantalla.  Si  respondemos  “S”  a 
SUPERPOS,  entonces  la  curva  se  dibujará  superpuesta  a  la  que 
se  dibujó  anteriormente. 

Además  del  VIC  realiza  un  cambio  de  variable  para  adaptar 
cualquier  curva  a  su  pequeña  pantalla  de  1 1  líneas  con  sus 
dimensiones  de  89  pixels  de  alta  por  176  de  larga. 

Al  finalizar  el  trazado  de  la  curva  el  VIC  espera  que  se  pulse 
cualquier  tecla,  volviendo  al  modo  texto. 

Si  alguna  vez  al  introducir  una  curva  el  VIC  escribe  algo 
ininteligible  y  se  queda  en  el  modo  de  alta  resolución  es  que 
ha  querido  poner  datos  fuera  del  generador  de  caracteres  y  la 
línea  50  lo  ha  parado  con  un  STOP.  En  este  caso  pulsar  a  la 
vez  RUN/STOP  y  RESTORE  y  arrancar  de  nuevo  el  programa 
con  GOTO  22. 

Es  conveniente  que  copies  el  fichero  justo  detrás  del  programa 
BASIC  para  que  cuando  este  último  se  ejecute  y  os  pida  la 
lectura,  el  fichero  esté  a  continuación  ahorrándonos  un  cambio 
de  cinta. 

Para  copiar  el  fichero  en  cinta  usad  el  siguiente  programa: 

10  OPEN  1,1,1,“LENMAQ” 

20  FOR  1=0  TO  88 
30  INPUT“DATO”;A 
40  PRINT#1,A 
50  NEXT 
70  CLOSE  1 
80  STOP 

Para  que  vayais  practicando  os  mando  una  serie  de  ecuaciones 
matemáticas  con  los  respectivos  valores  máximos  y  mínimos  de 
X  e  Y.  Espero  que  os  guste  mi  plotter-programa. 


1  PR I NT " CCLS3  C 3CRSRD 3  í 3SPC 3  ESPERE  í SPC  3 
UN [ SPC  3  MOMENTO " 

2  OPEN 1, 1,0 C'LENMfiQ" 

4  FORQb0TO88 

6  IMPUT#1 > B 
8  POKE5120+GLB 
10  NEXT ¡ CLOSE 1 
12  FGRG=0TO88 
14  P0KE828+Q , PEEKÍ5120+Q3 
16  NEXT : SYS <878 3 

18  PR I NT " í  CLR  3  C 2CRSRD 3  **CURVfiS** " 

20  PR I  NT  "  C  2CRSRD 3  C 2SPC 3  43-45' V=F  <  X 3 C 2SPC 3 
G0T022" : LI3T43-45 

22  I NPIJT  "  C  CRSRD3  VMflX  C  SPC  3  VM I N  "  i  Q ,  R 
24  F<83=0 : F<03=128 1 F< 13=64 :F(23*32:F 
<33=16 

26  F<43=8:F<53=4:F<63=2:F<73=1 
28  R=1 1AQ-R3 

30  I NPUT  "  C  CRSRD  3  XMFIX  C  SPC  3  XM I N " ;  S  i  T 
32  S=<S-T3X175 

34  I NPUT  "  C  CR’SRD  3  SUPERPOS  I  "  ¡  f\$ 

36  I  FH$=  "  N  "  THENSYS  <8783 
38  SVS<8283 
40  FÜRC=0TO175 
42  X=T+S*C 
44  V=SIN<X3 

46  V=R*<Q-Y3  :  B=INT <Y3  :  V=<Y-B3¡#8 
48  D=C/8 :E=INT<D3 :B=5 120+1 76*B+E*8+V 

50  D=INT<<D-E3*83 : IFBC5100ORB>7200TH 
ENPRI NT "ERROR": STOP 
52  P0KEB ,  PEEK < B 3 ORF <B3  ■' NEXT 
54  GETñí : IFfl$=" "THEN54 
56  Q=36865 :  P0KEQ 38 :  P0KEQ+  G  1 50 
58  P0KEGI+2  <  1 74  •  PÜKEQ+4 , 240 ;  GOTO  1 8 
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Commodore  World 


FIG.  2  | 

byte 

Ensamblador 

Leng.  máquina 

Equivalente  en 

828 

830 

LDAIM  60 

STA  36865 

169  60 

141  1  144 

POKE36865.60 
borde  superior  pantalla 

833 

835 

837 

839 

841 

843 

845 

LDYIM  0 

STYZ  87 

STYZ  89 

LDAIM  30 
STAZ  88 

LDAIM  150 
STAZ  90 

160  0 

132  87 

132  89 

169  3Ó 

133  88 

169  150 

133  90 

89-90  puntero  RAM 
COLOR 

(89-90)=38400=$9600 
(87-88)=7 680=$  1 E00 
87-88  puntero  RAM 
SCREEN 

847 

849 

850 
852 
854 

856 

857 

LDXIM  0 

TYA 

STAIY  87 

LDAIM  2 
STAIY  89 

INY 

BNE  246 

162  0 

152 

145  87 

169  2 

145  89 

200 

208  246 

FOR  Q=0  TO  255 
POKE  7680+QQ 
POKE38400+Q,2 
NEXT  Q 

llena  las  1 1  líneas  de 
255  caracteres 

859 

861 

LDAIM  253 
STA  36869 

169  253 

141  5  144 

POKE  36869,253 
dirección  del  generador 
de  caracteres  en  5120 

864 

LDAIM  128 

169  128 

POKE36866,PEEK 

866 

869 

ORA  36866 

STA  36866 

13  2  144 

141  2  144 

(36866)  OR128 
matriz  de  video  7680 

872 

874 

877 

LDAIM  150 
STA  36867 

RTS 

169  150 

141  3  144 

96 

POKE  36867,150 

1 1  líneas  de  pantalla 

Ejemplos  de  curvas  interesantes 

1.  Trazado  de  una  recta  que  pasa  por  el  origen 


FIG.  3  \ 

Ns 

byte 

Basic 

878 

CLD 

216 

87-88  puntero  nuevo 

879 

LDAIM  20 

169  20 

generador 

881 

STAZ  88 

133  88 

(87-88)=5. 120 

883 

LDYIM  0 

160  0 

FOR  Q=0  TO  2040 

885 

LDAIM  0 

169  0 

POKE  5120+Q,0 

887 

STAZ  87 

133  87 

NEXT  Q 

889 

LDAIM  0 

169  0 

891 

STAIY  87 

145  87 

893 

LDAIM  1 

169  1 

895 

CLC 

24 

896 

ADCZ  87 

101  87 

898 

STAZ  87 

133  87 

incrementa  87-88  hasta 

900 

LDAIM  0 

169  0 

5120+255X8=5120 

902 

ADCZ  88 

101  88 

+2040=71 60=$  1BF8 

904 

STAZ  88 

133  88 

— 7 

906 

CMPIM  27 

201  27 

r 

908 

BNE  235 

208  235 

¿ha  llegado  a  SIBxx? 

910 

LDAZ  87 

165  87 

912 

CMPIM  248 

201  248 

¿ha  llegado  a  S1BF8? 

914 

BNE  229 

208  229 

916 

RTS 

96 

3.  Trazado  de  dos  medias  circunferencias 


y  A 


2.  Trazado  del  eje  X 

Se  observará  una  excentricidad  exagerada  que  la  circunferencia 
no  debería  de  presentar.  La  deformación  se  debe  al  hecho  de 
y  que  la  forma  de  la  pantalla  es  rectangular  y  no  cuadrada,  con 

1  lo  que  las  dimensiones  en  x  e  y,  no  son  iguales. 

1  Para  obtener  la  circunferencia  entera,  se  pondrá  la  primera 

{0^x5175  ecuación,  la  correspondiente  al  signo  más,  se  introducirán  los 
límites  y  una  vez  representada  se  meterá  la  del  signo  menos, 
-l^yrál  con  los  mismos  límites  que  en  el  caso  anterior  y  a  la  pregunta 
de  SUPERPOS  se  contestará  afirmativamente  con  una  S. 
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4.  Trazado  de  una  hipérbola  equilátera. 


Í-0,7<x<0,7 
-100<y  <100 


Resulta  interesante  representar  las  tres  sinusoides  superpuestas 
la  una  con  la  otra:  escribir  primero  10sen(x),  luego  4sen(2x)  y 
por  último  la  suma  de  ambas;  en  los  tres  casos  con  las  mismas 
limitaciones  de  x  e  y. 

7.  Trazado  del  producto  de  dos  senos  de  frecuencia  distintas. 

Í0<X<4n=12,56 
-10^y<10 


Y=10*SIN(X)*SIN(4*X) 


iF  ABS(X)<0.01  THEN  NEXT 
Y=I/X 


5.  Trazado  de  una  sinusoide  (2  ciclos  y  medio  ciclo). 


y=10.sen  x 


Y=10*S1N(X) 


(  2  ciclos 


1/2  ciclo 


{0<x<4n  =12.56 
-10<y  <10 
i  0<x<  n=3.14 
(  -10<y  <10 


Como  en  el  caso  anterior  resulta  interesante  superponer  las  tres 
sinusoides  con  los  mismos  límites  para  las  tres. 

8.  Trazado  de  una  sinusoide  amortiguada. 


y=e  2n  •  100-  sen(x) 


xilOn 

-70^  y  ^30 


|  Y=(2.42  f  (-X/(2*  n)))*100*SIN(X)  | 
Es  interesante  superponer  las  dos  envolventes. 
9.  Trazado  de  (sen(x))/x 


En  este  caso  se  ha  utilizado  una  escala  diferente  en  cada  caso 
para  ver  de  la  misma  curva  dos  partes  distintas.  Es  como  si  en 
el  segundo  caso  se  viese  con  “lupa”  el  primer  semiciclo,  para 
apreciar  el  detalle. 

6.  Trazado  de  la  suma  de  dos  sinusoides  de  frecuencia  distinta. 


-14<y^l4  0 

10 

Y=10*SIN(X)+4*SIN(2*X) 

0<x<20 

-15<y^l5 


-10=-E 

.1 


11.  Trazado  de  una  señal  cuadrada  por  su  desarrollo  de 
Fourier 

señal  cuadrada=£  -  sen  (n  x)  n  sólo  toma  valores 
n=1  n  n  impares  1,  3,  5,  /,... 

si  por  comodidad  tomamos  la  amplitud  E=  queda 

£  sen(n.x)  ^ 


En  la  teoría  la  sumatoria  se  extiende  hasta  infinito,  cosa  que  en 
la  práctica  no  es  posible.  Se  escoge  un  número  máximo  de 
armónicos  N0.  Resulta  interesante  ver  cómo  la  señal  se 
aproxima  más  y  más  a  una  señal  cuadrada  dando  a  N0  valores 
de  2,  3,  5,  10,  30,  etc.  Observar  los  frentes  de  subida  y  bajada, 
y  las  sinusoides  amortiguadas  de  las  partes  superior  e  inferior. 


Y=0:FOR  N=1  TO  N0  STEP2 
Y=Y+100*SIN(N*X)/N:NEXTN 
0<  <2  -110— y¿  110 


Sonidos  con  el  joystick 

Por  Larry  Cotton 
(RUN  EE.UU) 
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Valiéndose  únicamente  del  joystick  y  este  programa,  que 
aprovecha  al  máximo  todas  las  posibilidades  sonoras  del 
Commodore,  conseguirás  que  el  C-64  produzca  cientos  de  efectos 
sonoros. 

No  hay  ninguna  razón  para  limitar  el  uso  del  joystick  a  mover 
barcos  de  guerra  y  lanzar  rayos  a  los  invasores  del  espacio.  Los 
datos  leídos  en  los  registros  56320  y  56321  del  joystick  se 
pueden  usar  para  controlar  imágenes,  tanto  visuales  como 
sonoras.  Este  programa  muestra  cómo  se  pueden  controlar  los 
sonidos  utilizando  sólo  el  joystick. 

Para  que  el  programa  no  resulte  muy  largo  y  no  pierda 
sencillez,  se  usa  sólo  una  voz.  No  obstante,  las  posibilidades 
sonoras  del  C-64  son  asombrosas.  Podrías  añadir  más  voces, 
pero  si  programas  en  Basic,  se  producirá  una  inaceptable 
disminución  de  velocidad  en  los  cambios  de  tono  y  de  reacción 
ante  los  movimientos  del  joystick. 

Con  el  fin  de  conseguir  la  mayor  variedad  de  sonidos  tecleando 
lo  mínimo  posible,  me  valgo  de  dos  interesantes  características 
del  64:  la  superposición  de  una  forma  de  onda  sobre  otra  y  la 
combinación  de  modulación  en  anillo  y  sincronizada  con  una 
forma  de  onda  triangular. 


Para  que  suene  bien.  La  primera  característica  significa  lo 
siguiente:  el  sonido  de  las  formas  de  onda  triangular,  diente  de 
sierra,  cuadrada  o  de  ruido,  es  generalmente  constante, 
invariable.  Sin  embargo,  cuando  una  de  estas  formas  de  onda 
se  “monta”  o  superpone  a  otra,  suceden  cosas  interesantes. 

La  segunda  característica  se  comprenderá  mejor  oyendo  que 
leyendo  una  descripción.  Basta  con  decir,  sin  embargo,  que  la 
modulación  en  anillo  y  la  modulación  sincronizada,  se  utilizan 
normalmente  por  separado  con  la  forma  de  onda  triangular, 
pero  su  combinación  da  como  resultado  los  sonidos  más 
insólitos:  se  obtiene  al  escribir  (con  POKE)  un  23  — 16 
(triángulo)  +  4  (anillo)  +  2  (sincronización)  +  1  (puerta) —  en 
un  registro  de  control  (54276  para  la  voz  1). 

Mira  la  figura  1:  debajo  de  la  columna  1  se  encuentran  las 
formas  de  onda  normales  de  triángulo,  diente  de  sierra, 
cuadrada  y  de  ruido.  Se  pueden  oír  escribiendo  (con  POKE) 
los  números  17,  33,  65  ó  129,  respectivamente  en  la  posición  de 
memoria  54276  (para  la  voz  1).  Pero  ahora  haremos  tres  cosas 
más:  escribir  uno  de  estos  mismos  valores  en  el  registro  de 
control  54290  de  la  voz  3;  añadir  a  la  frecuencia  de  la  voz  1  un 
valor  leído  (con  PEEK)  del  registro  54296;  y  apagar  el  sonido 
de  la  voz  3  escribiendo  143  en  54296. 


Figura  1.  Formas  de  ondas. 

Principales  formas  de  onda 

17 

33 

65 

129 


Ej.  de  formas  de  onda  de  vibrato 

17  sobre  17 
17  sobre  33 
17  sobre  65 
17  sobre  129 


Si  se  escribiera  una  forma  de  onda  (17,  33,  65  ó  129)  en  54276 
y  54290,  lo  normal  sería  que  se  activaran  estas  voces  (dando 
por  supuesto  que  ya  se  ha  establecido  la  envolvente,  la 
frecuencia,  etc.).  Sin  embargo,  cuando  se  añade  un  valor  de  0  a 
255  (contenido  en  el  registro  54299)  a  la  frecuencia  de  la  voz  1 , 
la  frecuencia  o  tono  de  esta  voz  queda  bajo  control  de  la 
forma  de  onda  de  la  voz  3. 

Si  se  pudieran  sacar  fotos  de  las  formas  de  onda  del  vibrato 
resultante,  se  parecerían  a  las  formas  de  la  columna  2.  Por 
ejemplo,  el  característico  sonido  melodioso  de  la  onda 
triangular  podría  cambiar,  suavemente  hacia  arriba,  al 
aumentar  el  valor  del  registro  54299  entre  0  y  255,  luego 
suavemente  hacia  abajo,  al  disminuir  dicho  valor  de  255  a  0. 
Cuando  la  forma  de  onda  diente  de  sierra  de  la  voz  1  se 
superpone  sobre  la  onda  cuadrada  de  la  voz  3,  oirá  frecuencias 
alternativamente  altas  y  bajas  (tonos  agudos  y  graves)  al  salirse 
de  la  meseta  las  ondas  diente  de  sierra,  y  luego  caer 
abruptamente  al  llano  para  sonar  ahí.  El  valor  en  54299  pasa 
de  255  a  0,  y  luego  vuelve  a  255  directamente.  Este  es  el  primer 
sonido  que  se  oye  en  el  programa. 

Cuando  la  principal  forma  de  onda  es  la  de  ruido  (129),  se 
oirán  ruidos,  obviamente,  pero  cuando  la  forma  de  onda  que 
controla  el  vibrato  (voz  3)  es  ruido,  se  oirá  una  serie  de  tonos 
aleatorios,  o  ruidos  aleatorios.  Por  último,  aunque  no  menos 
importante,  escribiendo  un  23  en  el  registro  de  control  de  la 
voz  1  se  producen  los  insospechados  sonidos  de  la  modulación 
en  anillo  o  sincronizada  combinados  con  el  triángulo.  El 
simple  movimiento  del  joystick  y  del  disparador  permitirá 
hacer  todas  las  combinaciones  posibles. 

El  programa.  Enchufa  un  joystick  en  el  conector  más  cercano 
al  interruptor  de  encendido.  Teclea  el  programa,  almacénalo  y 
compruébalo,  y  luego  teclea  RUN.  Una  vez  que  hayas  subido 
el  volumen  del  televisor  o  del  monitor  (mejor  si  es  un  equipo 
de  alta  fidelidad),  el  sonido  que  percibirás  antes  de  mover  el 
joystick  o  de  pulsar  el  disparador  corresponde  a  la  onda  diente 
de  sierra  montada  sobre  una  onda  cuadrada.  Ahora,  mueve  la 
palanca  o  pulsa  el  disparador  para  observar  lo  que  pasa.  La 
figura  en  la  pantalla  te  indicará  hacia  dónde  tienes  que  mover 
el  joystick  para  obtener  los  distintos  efectos. 

Cuando  quieras  cambiar  las  voces  o  conseguir  sonidos 
aleatorios,  mueve  el  joystick  rápidamente  hacia  la  derecha  o  la 
izquierda,  o  pulsa  brevemente  el  disparador  y  suéltalo 
inmediatamente.  Si  los  mantienes  demasiado  tiempo  en  una 


posición,  las  voces  experimentarán  algún  cambio  adicional. 

Las  líneas  10-90  preparan  el  formato  de  la  pantalla.  Las  líneas 
100-150  borran  y  escriben  (con  POKE)  en  el  chip  de  sonido  los 
valores  adecuados.  La  línea  115  escribe  una  frecuencia  en  la 
voz  3  y  la  frecuencia  de  corte  del  filtro;  las  líneas  120  y  130 
escriben  8  en  los  registros  de  amplitud  de  impulsos  de  las  voces 
1  y  3.  De  este  modo  se  asegura  que  la  onda  cuadrada  principal 
tenga  un  bello  sonido  hueco  y  que  la  onda  cuadrada  de  la  voz 
3  haga  que  el  tono  de  la  voz  1  tenga  una  duración  igual  hacia 
arriba  y  hacia  abajo. 

Para  cambiar  la  relación  de  tiempo  hacia  arriba  y  hacia  abajo 
(tono  alto  a  bajo),  prueba  a  escribir  1  a  15  en  la  posición  de 
memoria  54289.  Las  líneas  140  y  150  fijan  una  envolvente  de 
volumen  constante  para  la  voz  1  y  escriben  un  143  (15  para  el 
máximo  volumen  y  bit  7  activado:  sonido  apagado  de  la  voz  3) 
en  54296. 

Las  líneas  160-215,  asignan  y  comprueban  la  validez  de  los 
valores  de  algunas  variables  que  luego  se  habrán  de  escribir  en 
el  chip  de  sonido.  (Observa  que  Q  y  R  no  se  escriben 
directamente:  ver  línea  250). 

Las  líneas  216  y  218  muestran  el  estado  de  las  variables  en  la 
pantalla.  Las  líneas  220-240  escriben  en  el  chip  de  sonido  las 
variables  cambiantes:  dos  formas  de  onda  (la  principal  en 
54276  y  vibrato  en  54290)  y  la  velocidad  (la  frecuencia  de  la 
voz  3  en  54286). 

Las  líneas  250-280  forman  un  bucle  de  1000  ciclos,  cuando  no 
se  toca  ni  el  joystick  ni  el  disparador.  Para  cada  ciclo  se  genera 
una  nueva  frecuencia,  W,  y  se  escribe  en  uno  de  los  registros 
de  frecuencia  de  la  voz  1.  (El  otro,  54272,  siempre  permanece 
en  cero). 

Mientras  tanto,  el  programa  analiza  (con  PEEK) 
continuamente  el  registro  56320  del  joystick.  W  se  basa  en  dos 
valores  controlados  por  el  joystick,  el  tono  R  (con  el  joystick 
en  diagonal  hacia  un  lado)  y  la  profundidad  Q  (con  el  joystick 
en  diagonal  hacia  el  otro  lado),  más  el  valor  leído  con  PEEK 
en  el  registro  54299  multiplicado  por  una  constante.  Si  J 
permanece  en  127  (estando  todos  los  interruptores  del  joystick 
abiertos),  el  programa  vuelve  a  la  línea  250  y  continúa  el 
interesante  efecto  de  vibrato. 

Las  líneas  280-380  comprueban  el  estado  del  joystick  y  del 
disparador.  Observa  que  es  muy  sencillo  detectar  cuándo  se 
está  pulsando  el  disparador  o  el  joystick,  y  en  qué  dirección. 
Observa  también  que  en  las  sentencias  REM  se  describe  lo  que 
está  pasando. 

Las  líneas  370-400  proporcionan  el  sonido  aleatorio  que  el 
ordenador  va  a  producir  cuando  pulsas  la  palanca  hacia  la 
izquierda. 

Las  líneas  500-530  y  600-640  son  subrutinas  que  recorren  las 
formas  de  onda  cuando  se  pulsa  el  disparador  o  cuando  se 
mueve  la  palanca  hacia  la  derecha.  Las  líneas  1000-1015  y 
2000-2020  son  subrutinas  cuya  ejecución  se  desencadena 
aleatoriamente  por  las  sentencias  GOSUB  de  las  líneas  390  y 
400. 

Presta  atención  siempre  a  los  valores  que  cambian  en  la 
pantalla  según  se  mueve  la  palanca  o  pulsa  el  disparador. 
Apunta  los  sonidos  que  prefieres  para  poder  repetirlos.  Por 
orden  de  aparición,  los  siguientes  son  ajustes  interesantes:  420, 
20,  184,  33,  33  ó  600,  80,  150,  23,  17  ó  700,  50,  150,  23,  33  ó 
100,  60,  10,  129  y  17.  Tómate  libertad  para  experimentar  y 
añade  un  poco  de  alegría  a  tus  programas  de  sonido. 


10  PRINTCHR*(147) 

20  F0RT-1TÜ6 ¡ PRINT : NEXT 

30  PR I NT " C 1 5SPC ] ALEA TOR I0CSPC] [SHIFTKG 

[SHIFTGLJ" 

35  PRINT 

40  PR I NT " C 5SPC 3 l SH I FTM 3 [ 8SPC 3  CSHIFTN3 
C5SPC3  CSHIFTB3 " 

50  PRINT" C6SPC3  CSHIFTQ3  C6SPC3  CSHIFTÜ3 
C6SPC3  CSHIFTQ3C5SPC3 [SHIFTQ3CSHIFTH3 
C2SPC3FUEGO" 

60  PR I NT " C  7SPC 3  C  SH I FTM ] C  4SPC  3  C  SH I FTN  3 
[7SPC3  CSHIFTB3 " 


70  PRINT" C32SPC3 " 

80  PR I NT " [ 4SPC  3  P I TCH [ 2SPC 3  DEPTH [ 2SPC  3 
SPEEDC2SPC3MAINC2SPC3VIBE" 

90  PRINT 

1 00  F0RL-54272T054295 : POKEL ,  0 : NEXT 

110  P-54299 '• V-54273 

1 1 5  P0KE54292 / 50 : P0KE54287 , 5 

120  P0KE54275/  8  :  REM  PftRFl  USAR  CON/65 

VI 

130  P0KE54289/  8  •  REM  PftRFl  USAR  CON/65 
V3 

140  P0KE54277  /  4  •'  PGKE54278  ¡  89 

150  P0KE54296/  143  :  REM  V3  QUITA  VOLUM 

EN 

160  G-2;REM  DEPTH  (PROFUNDIDAD) 

170  R=200 : REM  PITCH  (NOTA) 

180  S-50 ; REM  SPEED  (VELOCIDAD) 

190  T=65  '■  REM  VIB  WAVE  (ONDA  DE  VIBRA 
T0) 

200  U-33 : REM  MAIN  WAVE  (ONDA  PRICIPA 
L) 

210  IFRC0THENR-0 

212  IFSC0THENS-0 

213  IFS>255THENS-255 

214  IFU<1THENU=1 

215  I FU>255THENU*255 

216  PR I NTTAB ( 4 ) R " [ CRSRL 3 [ 2SPC 3 "TAB(  1 

2) INT(Q#10) "CCRSRL3C2SPC3 "TAB( 19)S" CCRSRL3 
C2SPC3") 

218  PR  I  NTTAB  ( 25 ) U " I  CRSRL  3 1 2SPC  3  "  TAB  ( 

3 1 ) T " C  CRSRL  3  C  2SPC 3  C  CRSRU  3 " 
220^POKE54286/S:REM  VELOCIDAD  DEL  VI 

230  POKE54290/  T : REM  FORMA  DE  ONDA  DE 
L  VIBRATO 

240  P0KE54276/ U ¡ REM  FORMA  DE  ONDA  PR 
INCIPAL 

250  F0RZ- 1 T01 000 : W- INTC (R+PEEK ( P ) *Q > 

/20) 

255  IFW>255THENW-255 

256  IFWClTHENW-l 
260  POKE Vi W 

270  J-PEEKÍ 56320) 

280  IFJ-127THENNEXT 

290  IFJ-126THENS«S+2 • GOTO210 ¡ REM  SUB 

E 

300  IFJ-125THENS-S-2 : GOTO210 : REM  BAJ 
A 

310  IFJ-1 1 1THENQOSUB500 • GOTO210 
320  I F J- 1 1 9THENOOSUB600 i G0T02 1 0 
330  IFJ-1 17THENR-R-50 : GOTO210 
340  IFJ-122THENR-R+50 : GOTO210 
350  IFJ-1 18THENG-Q+. 3 ¡ GOTO210 
360  IFJ-121THENQ-Q-. 3 ¡ GOTO210 

370  I F J- 1 23THENR- I NT ( 1 000*RND ( 1 > ) + 1 : 

S* I NT ( 250ÍRND ( 1 ) )+l : Q-INT( 10ÉRNDÍ 1 ) ) 

+  .  1 

380  IFJ=123THEN>INT(5*RND(1))  +  1  :K«I 
NT(4*RND(1))+1 

390  QNI GOSUB 1000 i  1005 i  1010/ 1015 
400  ONKGOSUB2000 / 2005  >  20 1 0 , 20 1 5 / 2020 

410  GOTO210 

500  I FT- 1 7THENT “33 ¡ RETURN 
510  I FT =33THENT =65  •’  RETURN 
520  IFT*65THENT= 129 .RETURN 
530  IFT-129THENT-1 7: RETURN 
600  IFU-17THENU=33: RETURN 
610  IFU=33THENU»65: RETURN 
620  I FU-65THENU* 1 29 ¡ RETURN 
630  I FU- 1 29THENU-23 : RETURN 
6401 FU-23THENU- 17 : RETURN 
1000  T=17 : RETURN 
1005  T-33 : RETURN 
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ESPECIAL  PROGRAMAS 


Commodore 


Este  es  un  juego  para  ejercitar  nuestra  memoria  visual.  En  la 
pantalla  aparecen  35  cartas  boca  abajo.  Cada  una  de  ellas 
contiene  unos  símbolos,  y  cada  carta  que  queremos  destapar, 
pulsamos  RETURN  y  hacemos  lo  mismo  con  otra  carta. 

Si  las  dos  cartas  son  iguales,  sumamos  un  punto  y  volvemos  a 
intentarlo,  en  caso  contrario  será  el  turno  del  ordenador. 

La  mayoría  de  las  veces  nos  ganará  el  ordenador,  porque 
almacena  en  su  memoria  todas  las  cartas  que  van  saliendo. 
Hay  que  tener  en  cuenta  una  cosa  muy  importante:  El 
ordenador  NO  PUEDE  hacer  trampas,  porque  no  está 
programado  para  ello.  Lo  que  ocurre  es  que,  a  veces,  tiene 
bastante  suerte  y  se  va  encontrando  parejas. 

Hay  una  carta  en  blanco  que  no  tiene  pareja,  por  lo  que  sólo 
sirve  para  despistar. 

Gana  el  que  mayor  número  de  parejas  encuentre. 


1  REtlCORLVRRO  IBRNEZ 

2  BII*1R?Í<34)  <RC34)  *  BC34)<0C5)jSC5> 

3  FORI=0TO5 ; RERDÜC I ) ; NEXT 

4  FÜRI=0TO5 ; RERBSC I ) : NEXT 

5  GOTO 1000 

8  CRRDS=35 :  X=3 :  Y=2 

9  Y$=  "  [  HÜH  3  C  22CRSRD ] " 

10  0-1 

40  FÜR I =7725T0S 1 1 0STEP88 : FORJ-ITOI+1 

9STEP3 

45  OC+1 

50  FORK=0TO5 : POKEJ+OCK) ,  160 • NEXT : NEX 
T : NEXT 

80  FÜRI=0TO33STEP2  :  RERIlFl :  RXC  I)=fl :  RXC 
1  +  1  )=fl  '•  NEXT  :  RX(34>“32 


85  OOSUB950 
90  GOTO2000 
100  PLRYER=1 

105  M=V*7+X:CH=PEEK<??25+X*3+V*88> 

110  FOR>0TO5:POKER<M>+O<I),SÍI)  :  NEX 
T 

150  GETfi$: IFñ$=" "THEN150 
1 60  I FRSC <  fl*  >  ■  1 3RNBCH* 1 60THEN300 
180  FORI=0TO5 : P0KEfiCM>+0< I > , CH : NEXT 
1 90  X=>X+  <  R*  ■  "  [  CRSRL  3  "  )  -  <  R*»  "  [  CRSRR  3  " 

) 

200  V=V+(R*a"  [  CRSRU  3  "  )  -  <  R$=» "  [  CRSRD  3  " 

) 

210  IFX<0THENX=6 
220  IFX>6THENX=0 
230  IFY<0THENY=4 
240  IFY>4THENY=0 
260  GOTO 100 

300  I FW=0THENGGSUB400 : W- 1 : GOTO 1 00 
310  GOSUB500 

320  IFR=1THENR=0 :  Ll*0  ¡  GOTO  100 
330  GOTO700 
400  B<M)=RX<M) 

410  FORI=0TO5 : POKER(M)+Q< I ) < RXCM3 : NE 
XT 

420  FORT=0TO999 : NEXT 
430  E=RX(M)  '•  L=M 
440  RETURN 
500  B<M>=RX<M) 

510  FORI»0TO5 '• POKERCID+QC I ) ¡ RX<M) : NE 
XT 

520  FORT =0TO999 : NEXT 

530  I FAX  <  M ) *ETHEN600 

540  FORI=0TO5 : P0KERCM)+0< I ) > 160 ; POKE 

RCL3+0( I 3 , 160 : NEXT 

550  RETURN 

600  FORI-0TO5 • PÜKER(M)+Q( I > , 32 : POKER 

<L)+0(I>,32 :NEXT 

610  IFPLRVER-lTHENSOSC+1 

620  IFPLRYER=2THENCC=CC+1 

630  CRRIlS=CRRDS-2 

650  R-l 

660  BCM)=-1 : BCL)=-1 

662  S$=RIGHTí CSTRfCSC) , LENCSTRí <SC>  > 

-1 3 : 1 FLEN C Si >  =  1 THENSÍ = " 0 " +S$ 

664  Cí=RIGHT$CSTR$(CC) < LENCSTRíCCO ) 

-1 ) : I FLEN  <  C$ ) ■ 1 THENCí = " 0 " +C$ 

666  PR I NTYÍ i " C  2SPC 3  TU  C SPC  3 " ¿  3$ ; " C  3SPC  3 
" i C$i " CSPC3VICC5SPC3  CH0M3 " 

669  I  FCRRIlS"  1 THEN900 

670  RETURN 
700  PLRYER=2 
705  FORI=0TO34 

710  IFBCIK1THEN760 
720  FORJ=0TO34 
730  IFJ=ITHEN750 
740  IFBC I J3THEN790 
750  NEXTJ 
760  NEXT 1 

770  I-INTCRNDC 13*353 
780  IFBC I 3THEN770 
790  M=I : GOSUB400 
800  FORI=0TO34 
810  IFI=MTHEN830 
820  IFBCI¡>-BCM)THEN860 
830  NEXTI 

840  I=INTCRNDC1>*35) 

850  IFBC I 3THEN840 

860  M=I : GOSUB500 

870  I FR= 1 THENR=0 = GOTO700 

880  W=0 

890  GOTO100 

900  IFSOCCTHEN930 

905  F0RI=1TG6 

910  PRINTYÍ i  "C10SPC3,,iC$;  " CSPC3VICC5SPC3 
[H0M3" 

915  FORT=1TO500:NEXT 
920  PR I NTYÍ i " C  2 1 SPC  3 [ HÜM 3 " 

925  FORT=1TO500 : NEXT 
927  NEXT : GÜT0948 


930  F0RI=1T06 

935  PRINTYÍJ "[2SPC3Tll[SPC]";S$; "[14SPC3 
[HOM]" 

940  FORT*1TÜ500  :  NEXT 

945  PRINTYÍJ  "C21SPC3CHOM311 

946  FORT«1TÜ500 ¡ NEXT 

947  NEXT 

948  PRINTYÍJ " [3SPC3 PULSA CSPC DUNA [SPC3 
TECLRÍ3SPC] [HOM3  "  :  GETRÍ  :  IFR$="  "THEN9 
48 

949  RUN 

950  FORI=1TQ50 

960  R=INT<RND<1)*35> 

970  B=INT <RNIK 1 )#35) 

980  J=fi?¿<fi)  ¡RXCRJ-fiXÍB)  :RX(B)*J 

985  NEXT 

990  RETURN 

1000  PRINT"CCLR]“ 

1010  P0KE36879, 110 

1020  PR I NT " [ HOM ] [ BLU ] [ RVSON ] C  5SPC ] ME 
MORY  C  2SPC  ]  GFIME  [  5SPC  ]  [  WHT  ] " 


1030  FORI*7660TO7701 : POKEI+30720, 1 ’F 
ORT=1TO90 • NEXT : NEXT 
1040  G0T08 

2000  PRINTY*; " CBLU3 [2SPC3 <C) CSPC3HLV 
RRU  C  SPC  3 1 BRNE2 [ 2SPC 3 [ HOM  3 " 

2005  FOR I =8 1 64T08 1 85 ; POKE I +30720 , 1 : F 
ORT= 1 TO60 : NEXT : NEXT 
2010  FORT* 1TO600: NEXT 
2015  PGKE204,  0 

C0MEN2RR? » V$ ' " C  UHT  3  C  2SPC  3  QU I ERES [ SPC  3 

2017  GETRÍ : IFRí*" "THEN2017 

2018  POKE204, 1 

2019  I FRÍ * " N " THENG0SUB662 : GOTO700 

2020  I Fflí > " N "THENG0SUB662 : GOTO 1 00 
2030  GOTO2017 

9000  DRTR0, 1,22,23,44,45 
9005  BRTR79,80, 101, 103,?6, 122 
9010  DRTR83,  90, 88, 65, 81 , 87, 42, 102, 43 
,45,1,2, 127,3,4,24,5 


aparte  de  venderse  generalmente  en  kioscos,  se  encuentra  asimismo 
a  la  venta  en  las  siguientes  distribuciones  de  Commodore  y  librerías. 


ALICANTE 

•  Casa  Wagner.  c/  Juan  Carlos  I,  37.  Elda. 
Teléfono:  (965)  39  03  96. 

•  Ferretería  Progreso,  c/  General  Jordana,  28. 
Elda.  Teléfono:  (965)  38  11  45. 

BADAJOZ 

•  Control  Sistemas.  Avda.  Santa  Marina,  25A. 
Teléfono:  (924)  25  88  00. 

BARCELONA 

•  Comercial  Clapera.  c/  Mariano  Maspons,  4. 
Granollers.  Teléfono  (93)  870  45  42. 

•  Computer  Service.  Avda.  Abad  Marcet,  325. 
Tarrasa.  Teléfono:  (93)  788  63  77. 

•  Computerhard  c/s.  Jaime,  48.  Granollers. 
Teléfono:  (93)  870  09  19. 

•  Gadesa.  Les  Valls,  12-14.  Sabadell. 
Teléfono:  (93)  725  25  43. 

•  Librería  Emilia  Pérez  Radua.  c/  Mayor,  35. 
Castellar  del  Vallés.  Teléfono:  (93)  714  89  51. 

•  Librería  Michel.  Ronda  Guinardo,  1.  Sardañola. 

•  Mozart.  c/  Jaime  I,  145.  Mollet. 

Teléfono:  (93)  593  75  01. 

•  Novo  Digit.  c/  Aragón,  472.  Tel.  246  27  75. 

•  Sonimóvil.  c/  Alcalde  Armengou,  53. 
Manresa.  Teléfono:  (93)  873  78  17. 

•  Tronic.  Bigay,  11-13.  Tel.:  (93)  212  85  96 


CADIZ 

•  Video  Computer.  Comandante  Gómez 
Ortega,  59.  Algeciras.  Tel.:  (956)  65  39  02 

CANARIAS 

•  Relax.  Rambla  de  Pulido,  85.  Santa  Cruz  de 
Tenerife.  Teléfono:  (922)  28  37  05. 

CIUDAD  REAL 

•  Electrónica  Turrillo.  c/  Pedrera  Baja,  7 
Teléfono:  (926)  22  38  67. 

CORUÑA,  LA 

•  Cetronic,  S.L.  c/  Palomar,  22  Bajo. 
Teléfono:  (981)  27  26  54 

•  Photo  Copy.  c/  Teresa  Herrera,  9 
Teléfono:  (981)  21  34  21. 

•  Sanlusa,  S.  L.  San  Luis,  46  al  50. 

Teléfono:  (981)  23  07  49 

•  GestyComputer.  Avda.  Romero  Donallo,  25. 
Tel.:  (981)  59  87  54.  Santiago  de  Compostela. 

GERONA 

•  Digit  Informática,  c/  Avda.  11  Setembre,  7. 
Olot.  Teléfono:  (972)  26  94  01. 

•  Microchip.  c/Aigua,  3.  Olot.  Tel.:  26  36  63 

•  Regiscompte  S.A.  c/  Emilio  Grahit,  17  Bis. 
Teléfono:  (972)  21  99  88. 

HUELVA 

•  Computerlog,  S.A.  c/  Tendaleras,  15 
Teléfono:  (955)  25  81  99. 

IBIZA 

•  Kelson.  Plaza  España,  S/N.  San  Antonio 
Abad.  Teléfono:  (971)  34  13  09. 

LEON 

•  Logdata.  c/Burgo  Nuevo,  4 
Teléfono:  (987)  20  42  89 

•  MicroBierzo.  c/  Carlos  I,  2. 

Teléfono:  (987)  41  74  21.  (Ponferrada) 


•  Micromundo,  SA.  El  Zoco.  Majadahonda. 
Teléfono:  (91)  638  13  89. 

•  País  de  los  Microordenadores.  Bravo 
Murillo,  18.  Tels.:  (91)  446  33  17  -  446  37  12. 

MALAGA 

•  Informática  Martínez  SA.  c/  Cristo  de  la 
Epidemia,  90.  Teléfono:  (952)  26  15  60. 

MURCIA 

•  Procoinsa.  Ronda  Norte,  27. 

Teléfono:  (968)  23  94  49. 

PAMPLONA 

•  Microordenadores  Ramar.  c/  Navarro 
Villoslada,  7.  Teléfono:  (948)  23  72  80 

SALAMANCA 

•  Info-Ges.  c/  Ronda  del  Corpus,  2-ls  centro. 
Teléfono:  (923)  21  59  93. 


MADRID 


SAN  SEBASTIAN 

•  Donmicro,  SA.  c/  Arrásate,  6. 

Teléfono:  (943)  42  35  10 

SANTANDER 

•  Librería  Hernández.  San  Francisco,  15. 
Teléfono:  (942)  22  53  30. 

SEVILLA 

•  Papelería  Mora,  c/  Santa  Cruz,  5.  Ecija 
Teléfono:  (954)  83  14  80. 

TARRAGONA 

•  Oficomplet.  Plaza  de  la  Cinta,  6.  Tortosa. 
Teléfono:  (977)  44  14  50. 

•  Comercial  Informática  de  Tarragona  SA. 
c/  Gasómetro,  20.  Teléfono:  (977)  23  08  53. 

VALLADOLID 

•  Chips  +  Tips,  S.A.  c/  Juan  de  Juni,  3. 
Teléfono:  (983)  33  40  00. 

•  Kent  Electronic,  c/  Duque  de  la  Victoria,  13. 
Tienda,  15.  Teléfono  (983)  47  58  07 

ZARAGOZA 

•  ADA  Computer.  Centro  Independencia. 

P»  Independencia,  24-26.  Tel.:  (976)  29  85  62. 


FOT 


Este  es  un  corto  programa  (1.781  bytes)  muy  sencillo  en  el  que 
incluyo  algunos  de  los  PRINTS  del  artículo  “PRINTS 
SOFISTICADOS”  y  que  puede  venirle  bien  a  cualquier 
radioaficionado,  sirve  para  calcular  la  Frecuencia  Optima  de 
Trabajo,  a  una  hora  determinada  y  en  una  estación  del  año 
determinada.  También  calcula  la  Frecuencia  Máxima  Utilizable 
que  está  generalmente  un  30%  por  encima.  También  calcula  la 
Frecuencia  Máxima  Posible  que  es  alrededor  de  un  50% 
superior  a  la  FOT. 

Hay  que  puntualizar  que  este  programa  aunque  usa  unas 
fórmulas  muy  sencillas,  calcula  la  FOT  con  bastante 
aproximación,  ya  que  todos  los  cálculos  en  los  que  influyen  las 
capas  atmosféricas,  la  radiación  solar,  etc.,  son  de  tipo 
estadístico  y  pueden  variar... 

Cuando  el  programa  pide,  mediante  INPUT,  que  se  introduzca 
la  hora  GMT,  DIA,  MES,  AÑO  hay  que  meter  los  datos 
separados  por  comas;  para  los  no  radioaficionados  que  tengan 
la  curiosidad  de  ver  los  PRINTS  en  acción,  les  diré  que  la  hora 
GMT  (tiempo  del  Meridiano  de  Greenwich)  es  la  hora  solar, 
por  lo  que  a  la  hora  que  marque  el  reloj  hay  que  restarle  2 
horas  en  verano  y  1  hora  en  invierno. 

También  veréis  que  cuando  pide  estos  cuatro  datos,  la  hora  la 
pide  desde  las  00.00  a  las  26.00,  no  es  un  error,  es  conveniencia 
de  las  fórmulas  ¡creéroslo,  por  favor! 

También  tener  en  cuenta  que  si  os  da  una  FOT  de  9  MHz 
(Megahercios)  ó  26  MHz,  podéis  estar  seguros  que  podéis 
trabajar  perfectamente  las  bandas  de  40  (7  MHz)  y  10  metros 
(28  MHz)  respectivamente. 

Bueno,  no  me  queda  más  que  agradecer  a  Pere  Masats  sus 
artículos  y  a  Francisco  J.  Dávila  (EA8EX)  por  sus  estupendos 
artículos  de  programación  en  una  revista  especializada  de 
radioafición,  sin  ellos  este  programa  no  habría  sido 
posible. 


0  REM**CALCUL0  DE  LAS  FOT-FMU-FMP** 

1  PÜKE53280; 15 : P0KE53281 j 15 : C»«" EVEL3 

[com+Dccorwr  •  gosub300ü  •  00:31034000 

18  PR I NT "  [ CLR 3 " TAB  < 1 8 ) " E  COMflll!  1 " 

1 3  PR I NT " QUE  £  SPC  3  EST AC 1 0N  E  SPC  3  DEL  E  SPC  3 
ANO  £  SPC  3  DESEA " 


20  F'R I NT " f 2CRSRD 3 "TRUC  14) "C RVSÜN 3 1  - C RVSOFF 3 
t  SPC  3  [  VEL  3  PR  I MHVERH  t  C0MM7  3 " 

30  PR I NT : PR I NTTHB ( 1 4 ) " £ RVSÜN  3  2- C  RVS0FF  3 
£  SPC  3  C  RED  3  VERANO  £  0011117  3  " 

35  PR  INTTAB < 20 )  "  £  C0MM5 3  £ C011f1« 3  £ C0W17  3 

40  PRINTTABC 14) 11  £RVS0N33-ERVS0FF3£SPC3 
£0011115  30 TONO  £0011117  3" 

50  PRINT : PRI NTTHB (147 " ERVSON34-ERVSOFF3 
£  SPC  3  £  BLK  3 1 NV I ERN0  £  C0MM7  3 " 

60  PRINT: INPUTE 

65  I FEC 1 0RE>4THENPR I  NT " £  HOM 3  £  1 0CRSRD 3 
" : QOTO60 

100  PRINTTAB<34)  "ECQMf1(i3  "  :  PRINTTABC 5 
) " I NTRQDUZCA £ SPC 3 HÜRH ESPC3ÜMT >  DIA/ ME 

51  ANO" 

102  PR I NTTHB  <  6 ) " DESDE  E  SPC3LRS  £ SPC  3  00 
. 00ESPC3AESPC3LASESPC326. 00" 

104  INPUTHi Di  Mi  A 

1 06  I FHC0Ü .  00ORH.>¿6 .  00THENPR I  NT  "  £  HOM  3 
E14CRSRD3" : GOTO 102 
110  IFH>"02. 00ORHO14. 00THEN150 
120  MHZ-2#<27-H> 

150  MHZ*2#<H-1> 

500  IFE-1THEN540 
510  IFE»2THENMHZ=MHZ+2 
520  IFE-3THEN540 
530  IFE-4THENMHZ-MHZ-2 
540  FU»MHZ*30/100 
550  FP-MHZ#50Z100 

600  PRINT"£CLR3"  A*»"#**EL£SPC3DIAE 16SPC3 
AE8PC3LASE7SPC3#**" 

604  PR I NT " £  HOM  3  £  5CRSRD  3 " A» 

606  PR I NT “ £  HOM  3  £  5CRSRD  3 " TAB ( 9 ) D " - " M " 

-"A 

608  PR I NT " E  HOM  3  E  5CRSRD  3 " TAB  <  30  >  H " GMT 
"  :  GOSUB6000 

610  PRINT : PRINT" E3CRSRD3 E5CRSRR3LRESPC3 
FOT  £  SPC  3  APR0X I HADA  £  SPC  3  ES : " MHZ " MHZ " 

620  FU-MHZ+FU 
630  FP*11HZ+FP 

640  PR I NT : PR I NT " £  5CRSRR  3  "  C SPC  3  FHU  £  5SPC 3 
' ' E5SPG3 ' ' ¡ "FU"MHZ" 

650  PR I NT : PR I NT " £  5CRSRR 3 ' ' ESPC3FMPE 5SPC 3 
'  '  E5SPC3 '  '  :  "FP"11HZ" 

660  PR I NT " E 3CRSRD 3  £  7CRSRR 3 DESEA E SPC 3 
OTRO  £  SPC  3  CALCULO  £  SPC  3  £  SXN ) " : P0KE 1 38  i 
1 : WAIT198i 1 

670  PRINT" EHOM3E19CRSRD3"TAB<31) : INP 
UT0C* 

680  IF0C»*"N"THENEND 
690  G0T018 
700  END 

2999  REM  RUTINA  MARCO 

3000  PRINT” ECLR3 “ \  ■ F0RI-1T039 : PRINTC 
; NEXT : PRINT" ECRSRU3 " 

3010  F0R I ■ 1 TO20 : PRINTC$TAB<38)C$ : NEX 
TI 

3020  F0R I ■ 1 T039 : PRINTC»; : NEXTI : PRINT 
" EH0M3 " 

3030  RETURN 

4000  A»« " ESTE  £  SPC  3 PROGRAMA E  SPC  3  CALCU 
LA ; " ¡ GOSUB5000 : PRINT" E2CRSRD3 " 

4010  A*= "  LA  E  SPC  3  FRECUENC I A  £  SPC  3  0PT 1 11 
A  £  SPC  3  DE  E  SPC  3  TRABAJO  <  FOT ) " • GÜ8UB5000 
: PRINT" E2CRSRD3 " 

4020  A»=”LA£SPC3FRECUENCIH£SPC3MAXIM 
AESPC30TIL IZABLECFMU) " : GOSUB5080 : PRI 
NT" E2CRSRD3 " 

4030  A*- " LA  E  SPC  3  F  RECUENC I A  E  SPC  3  MAX I M 
A  E  SPC  3  POS I BLE  £ 3SPC 3(FMP)" : GOSUB5000 : 

PRINT" E2CRSRD3" 

4040  A»“" POR  £  SPC  3  E  VEL  3  LOMBAR  £  SPC  3 ( E A 
1 CMC ) £  C0MM7  3 " : GÜSUB5000 : PR I NT " £  2CRSRD 3 

4050  A»®" JUNI0ESPC3 1984" : GOSUB5000 : P 
RINT" E2CRSRD) " 

4060  A»“ " PULSE  £ SPC  3  E  RVSÜN  3  3  £  RVSOFF  3  £  SPC  3 
PARA  £  SPC  3  C0NT I NUHR " : GOSUB5000 
4070  GETP» :  1FP»O"8"THEN4070 


Comr 


íodore  Worldo 


ESPECIAI 
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4080  GOTO 18 
4090  END 

4999  REM  SUPER  PRIHT 

5000  A"LENCA*> :  IFA720INT (A/23THENAÍ 
£SPC3 "+HÍ  :  OOTO5800 

5010  FGRI-1 TOA/2 

5020  PRINTTHB<20-I)1LEFT;»<A*,  DiRIGH 
Tf<A*, I) 

5030  PRINT"£CRSRU3 " ; 

5040  FORT" 1 TO200 : NEXTT 
5050  NEXTI 
5060  RETURN 

5999  REM  SUBRAYADO 

6000  L“40: IFLENÍAÍ K40THENL"LEN(Rt) 
6020  I FL-40THENPR I NT " [ CRSRU 3 " ; 

6030  F0RI-1T0L 

6040  PRINTCHR* <163)3 
6050  FORT»1TO100 = NEXTT 
6060  NEXTI 

6070  Aí»RIGHT$CA*,LEN(A$)-L) 

6080  I  FRÍO  "  "  THEN6000 
6090  RETURN 


Meteer 


Emilio  Granes  Fernández 

C/Plza.  de  la  Carretera,  33 

Telf.:  88  03  77 

VIC-20 

Constantina  (Sevilla) 

METEOR  consiste  en  eliminar  meteoritos  (asteriscos)  en 
minuto  y  medio,  procurando  que  no  te  alcancen  con  sus  rayos 
lásers.  Tenéis  que  dirigirlo  con  las  teclas  del  cursor  para  mover 
la  nave  y  space  para  el  disparo. 

Basta  de  rollos,  ahora  paso  a  describiros  por  encima  el 
programa. 

Líneas  1-6:  Definen  el  carácter  de  la  nave. 

Líneas  10-20:  Reloj  a  cero.  Color  de  marco  y  pantalla. 
Variables  que  intervienen  en  el  “jueguecito”. 

Línea  35:  Random  para  situar  el  primer  meteorito  del  juego. 
Línea  36:  Poke  de  visualización  para  el  carácter  de  la  nave. 
Línea  37:  Compara  el  valor  del  reloj  hasta  uno  mayor  o 
igual  que  90  sgs.,  saltando  a  la  209. 

Líneas  50-70:  Teclas  de  movimiento  y  disparo  de  la  nave. 
Líneas  209-220:  Mensaje  1  de  fin  de  programa. 

Líneas  400-430:  Crea  el  rastro  y  sonidos  de  las  bombas  de 
los  meteoritos,  borrándolos  después. 

Líneas  900-920:  Mensaje  2  de  fin  de  programa  al  ser  tocada 


la  nave,  así  como  la  explosión  del  meteorito  tocado.  Aquí  se 
encuentra  el  contador  de  asteriscos  destruidos. 

Líneas  2000-2010:  (gosub  2000)  Crea  el  estallido  del  asterisco 
decreciendo  el  volumen. 


1  P0KE36874,  0  ■'  PQKE36875, 0 •'  PQKE36876, 

0  •'  P0KE3637? ,  0  ■'  PGKE36878,  15 

2  P0KE52, 28  •  P0K.E56 , 28 :  CLR 

3  F0RX"? 1 68T07679 = P0KEX  ,  PEEK < X+25600 
> : NEXTX 

4  P0KE36869,  255 

5  FGRL"7 1 68T07 1 75 : READD ¡ PÜKEL.D ¡ NEXT 

6  DATA24 , 36 , 36  > 36,36,36,66, 255 
10  PRINT"£CLR3" : TI í* "000000" 

15  P0KE36879, 104 

20  P-8152 : S2-36878 : P0KES2, 13=81 "3687 
6 = R-36877 : V-36879 

33  D" I NT < RND ( 0 ) *506 )  +76 80  =  POKED , 42 

36  PGKEP, 0 

37  IFT I $>■  ''000090 " THEN209 
40  Gt  TR* ; IFHÍ“" " THEN40 

50  I FAí  ■ " [  CRSRR ] " THENP"P+ 1 : PQKEP- 1 , 3 
2 : POKEP, 8 

55  I FP=81 4 1 THENP=0 1 42 ¡ POKEP- 1,32= P0K 
EP,  0  : G0T037 

60  I  FAf  "  £  CR8RD 3 " THENP-P- 1  :  PGKEP+ 1 , 3 
2  ■’  PGKEP  /  0 

65  IFP=8164THENP»8163  =  P0KEP+1 , 32  •'  P0K 
EP,  0 : G0TG37 

70  I FR$« " [ SPC 3 " THENGGSUB 1 000 
200  G0T03? 

209  PRINTCHRít 1587 

210  PRINT"CCLR] " : PRINTTIÍ 3 "[CRSRR3SG 
S. " =  P0KES1 ,  200  :  FORF«15TO0STEP-1 : POKE 
S2 , F  =  FORH" 1 T0 1 00  =  NEXT : NEXT 

213  PR I NT " [ 2CRSRD 3 [ 3CRSRR 3  SE  £ SPC ] TE  £  SPC 3 
RCRBOI SPC3EL I CRSRR  3  COM- £ CRSRIl  3  BUST I B 
LE ; PERO [ SPC  3  DES I NTE- £  CRSRD  3  ORASTE  £  SPC  3 
"<R; " C  CRSRR  3METE0R I TÜS " 

216  1 NPIJT  "  [  3CRSRD  3  [  RVS0N  3  OTRA  £  SPC  3  MA 
SCRVS0FF3 " Bí 

217  I FB*" " S " THENPR I NT"  [CLR 3"  •'  RUN 

218  I FBtO " 8" THENPR I NT "[ CLR 3 " 1 END 
220  END 

400  F0RJ-1T022  •'  D-D+22  =  POKED.  39  ¡  NEXTJ 
! FORL-230TO1 75STEP-3  =  P0KES 1 , L  :  FORM" 1 
TO20 

410  NEXTM  •'  NEXTL  :  POKES 1 , 0 
420  1FPEEKC D-66 ) =PEEK ( P> THENPOKER , 20 
0  =  F0RL" 1 5TO0STEP- . 05  =  PÜKES2, L  =  NEXT ¡ G 
OTO900 

425  POKER, 0  =  POKES2,  15 

427  F0RJ"1TG21  •'  D*D-22 :  POKED,  32  :  NEXT  : 

D=D-22 

430  RETURN 

900  PRINT" [CLR3 " : PRINTCHR$<5) : PRINT" 

C  HOM  3 [ 5CRSRD3 LO  £ SPC  3  S I ENT0 , METEOR [ SPC  3 
GANA. " 

910  PR  I  NT  "  [  C'RSRD  3  T I  ME  =  "  T  í  $  3  "  £  CRSRR  3  S 
GS . " " £  CRSRD  3 " : PR I NT " £ CRSRD 3  METEOR I T0 
S  £SPC3"3A 
920  G0T0216 

1000  FÜRT"1T021 : P“P-22 : POKEP, 46 : NEXT 

1002  FQRL*1T05 = FÜRM»250TO240STEP-3 

1003  POKES 1 , M : NEXTM 

1004  FORM-240TO250 

1005  POKES 1 , M : NEXTM 

1006  POKES 1,0= NEXTL 

1010  FORT" 1 TO20 : POKEP , 32 : P=P+22 : POKE 
P , 32 : NEXT : P-P+22 

1011  I FPEEK ( P-22  >  «PEEK  <  D  3  THENPOKE V , 1 
4 : FORJ"1TO250: NEXT : P0KEV, 104= POKER, 1 
40  =  GOSUB2000 

1012  D- 1  NT  <  RND  (  0  >  *38  3  +7724  :  POKED ,  42  •' 

A*R+1 :QOSUB400 

1020  RETURN 

2000  FORW- 1 5TO0STEP-3 : P0KES2 , W : FORT" 

1 TO250 : NEXT : NEXT ¡ POKER , 0 : P0KE82 , 1 5 
2010  RETURN 


Líneas  1000-1020:  (gosub  1000)  Crean  el  efecto  de  disparo  de 


Es  un  programa  largo,  aunque  sencillo.  Las  subrutinas  para 
representar  los  números  en  pantalla,  ocupan  gran  parte  del 
programa. 

Las  “extracciones”  de  los  90  números  se  hacen 
independientemente  de  su  representación  en  pantalla.  Primero 
se  generan  80  números  de  los  90  disponibles.  Después  el 
programa  va  comprobando  los  números  que  faltan,  y  les 
asigna  posiciones  aleatorias. 

No  se  tiene  que  esperar  a  que  se  hayan  “extraído”  todos  los 
números  para  representarlos  en  pantalla.  Sino  que  puedes 
empezar  a  representar  los  números  en  pantalla,  y 
simultáneamente  se  irán  sacando  internamente  los  restantes 
números.  Hay  tiempo  sobrado  para  que  se  acaben  de  extraer 
todos  los  números  antes  que  tú  de  representarlos  (a  menos  que 
mantengas  siempre  los  espacios  pulsados,  saliendo  así 
continuamente  los  números  de  la  pantalla  sin  tiempo  para 
jugar). 

La  tecla  de  función  F7  está  disponible  para  cuando  se  haya 
completado  una  línea  o  se  haya  completado  todo  el  cartón.  De 
esta  forma  se  representa  un  tablero  con  todos  los  números 
sacados  hasta  el  momento.  Estos  números  están  ordenados 
para  la  mejor  localización  de  los  mismos.  Si  después  de 
comprobar  un  “BINGO”,  éste  fuera  correcto,  F8  empezará 
automáticamente  otra  partida.  En  caso  contrario  F7  proseguirá 
el  desarrollo  del  programa. 

A  continuación  expongo  un  pequeño  comentario  de  las  líneas: 

0-  80  Estas  líneas  extraen  80  números  no  repetidos  entre  el 
1  y  90  y  los  guarda  en  una  matriz. 

90-150  En  esta  parte  de  programa,  se  buscan  todos  los  10 
números  que  faltan  por  extraer. 

153-180  Asignación  de  posiciones  aleatorias  a  los  10  números 
anteriores. 

210-239  Deshace  el  número  en  unidades  y  decenas  para  su 
próxima  representación  a  gran  tamaño  en  pantalla. 

242-246  Espera  para  dibujar  el  número  en  pantalla;  o 
representar  el  tablero. 

260-270  Dibuja  el  número  en  pantalla. 

278-287  Cuando  la  partida  no  se  ha  desarrollado  como  es 
debido,  actúan  estas  líneas. 

420-980  Subrutinas  de  gran  tamaño  de  los  10  números  (0  al  10). 
2000-2080  Posicionado  clasificado  de  todos  los  números 
salidos  hasta  el  momento. 


5000-5002  Subrutina  para  colocar  el  cursor  en  un  punto 
determinado  de  la  pantalla. 

9990-10090  Subrutina  para  el  dibujo  del  tablero. 
25000-25020  Subrutina  para  imprimir  el  marco  para  la  salida 
de  los  números  en  pantalla. 


3  POKE53280J tí : PGKE53281 , 0 
5  DIMBI  (.90) ,  D<  10) ,  F<  10) ,  BI*(90) 

10  PRINT" 1 WHT 3 C CLR ] C 1 2CE3RD 3 [ SPC 3 ### 
######[SPC3ESPERE'TCSPC3UNi:SPC3MÜMEN 

TCSPC3#######r' 

13  REM 

13  REM  *m  GENERADOR  DE  80  NUMEROS  * 

«* 

17  REM 

20  FORH- 11090 -P-P+l 

27  I FP-60THENP-0 ' GOSUB25000 '■ RR*1 : DOS 

UB200 :  N~1 

30  W=  I  NT  <  89i«RND  <  1 )  )  + 1 
35  IFN=0THEN40 

39  CETA*: IFA$=CHR*<136)0RA$«CHR*<32) 
THENRR*1 • G0SUB244 

40  F0RY*1TQA : IFBI ( V)=WTHEN2? 

50  NEXTY 

60  BKfl)=W 
66  IFH=80  THEN100 
80  NEXTA 
90  REM 

93  REM  ##BUSCANT  ELS  NUMEROS  RESTANT 

S*N 

97  REM 

100  FORH=1TO90  X*0 
110  X=X+1 

115  GETAí  =  IFAÍO" "THENRR*1  ¡ G0SIJB244 

120  IFBI (X)“HTHEN150 

130  I FX"80THENS»S+ 1  :FCS)»H''  GOTO  150 

148  GOTO110 

130  NEXTH 

133  REM 

155  REM  DONAR  P0SICI0NS  ALEATORIES 

157  REM  ALS  10  NUMEROS  TRÜBATS 

159  REM 

160  RP>=  I  NT  <  1 0#RND  <  1 )  )  + 1 

165  D(RP)=D(RP)+1  :  IFD(RP»1THEN160 

167  A=A+1 

170  BI(A)=>F(RP) 

180  IFA<90  T HEÑI 60 
185  G0T0242 
198  REM 

192  REM  FINAL  DEL  GENERADOR  DE  NUME 
ROS  193  REM  - 


193  REM 

200  REM  DESTRIAR  UNITATS  I  DECENE 
S 

205  REM 
210  0=0+1 

220  BI$(Q)*STR$<BI<G)> 

223  IFVHL(BI$<Q))<10THENBI$<Q)“"CSPC3 
•’+BIíCQ) 

230  ES$*=LEF  T* <  B I f  C Q ) ;  2 )  ■’  IFESÍ«""THEN 
ES$="0" 

235  DRí=RIGHT*(BI$<G), t> 

237  PR I NT " C  HOM  3 1 23CRSRD 3 1  SPC  3 1 RVS0N 3 
**  C  SPC  3  ESP A If  RVSOFF  3  C  SPC  3  CAN V I A  C  SPC  3 
NUMERO 1 2SPC  3 [ R VS0N  3  # *  C  SPC  3  F  7  C  RVS0FF  3 
[SPC3TAULER 

238  POKE 1 98  <  0 : REM  BU I  DAR  BUFFER 

239  I FRR»  1  THENRR=0  :  RETIJRN 
242  GETAS : IFA$=""THEN242 
244  I FA$=CHR$ (136) THEN2000 
246  I  FA*OCHR*  <32)  THEN239 
250  PRINT"CHOM3[CRSRD3" : SP— 5 
253  REM 

255  REM  POSAR  EL  NUMERO  EN  PANTALL 
A 

257  REM 

260  0NVRL  <ES$ ) + 1 GOSUB420  > 600  > 676 >  705 


,  750,  809,853,631 ,912, 953 

263  SP=  1 2  :  PR I  NT  "  CH0Í1K  VEL 1  í  CRSRD  3  " 

270  ONVRL  <  DR$  J  + 1 GOSUB420 ,630,676 , 705 
, 730, 809, 853, 831,912,955 
272  IFQ=RTHENQ«Ü+1 : GQT0277 
275  GÜTO210 

277  IFft=90THEN290 

278  REM  ***  SI  Nü  S ' HAN  GENERRT  TOTS 
ELS  NUMEROS  ES  QUE  NO  S'HH  JUGAT 

BE  *#* 

279  PR I NT "CCLR3C11 CRSRD 3 [ 5CRSRR 3 QUE £ SPC 3 
NO  C  SPC  3  SRPS  C  SPC  3  JUORR  í  SPC  3  RL.  C  SPC  3  B 1 N 

GO  C  SPC 3  ? " ¡ FORM* 1 TO3000 ■ NEXTM 

280  PR I NT " 1 3CRSRD 3 [ 3SPC3RPRETRC SPC 3 U 
Nfi í SPC  3  TECLA C SPC  3  PER  í SPC  3  TORNAR C SPC  3 
A [SPC 3 JUGAR" :POKE198,0 

263  GETV$: IFYf*" "THEN285 
287  RUN 

289  REtl  ***  FINAL  DE  LR  PARTIDA  «** 

290  GETTT$: IFTTí3" "THEN290 

300  I FTTí «CHRÍ  <136) ORTTf^CHRí ( 32  >  THE 
N2000 

310  GOTO290 

420  REtl  *m  NUMERO  CERO  **« 

440  PR I NTTRB  O  W+SP ) " [ RVSON 3 [ 1 1 SPC  3 [ RVSOFF 3 

450  PR I NTTAB (1 0+SP ) " L RVSON 3 [1 1 SPC 3 í RVSOFF 3 
46U  PR I NTTRB< 1 0+SP ) " [ RVSON  3 [1 1 SPC  3 [ RVSOFF 3 

465  PR I N  TTHB  íl 0+SP ) " C RVSON 3 1 3SPC 3 [ RVSOFF 3 
C5SPC3 [ RVSON 3 £ 3SPC 3  L  RVSOFF  3 " 

470  PRI NTTRB < 1 U+SP) "[RVSON3C3SPC3 [RVSOFF 3 
[ 5SPC 3 [ RVSON 3 [ SSPC 3 [ RVSOFF 3 " 

472  PR I NTTRB  < 1 0+SP  > " £  RVSON  3 E 3SPC  3 [ RVSOFF  3 
[ 5SPC 3 [ RVSON  3 [ 3SPC  3  L  RVSOFF 3 " 

475  PR I  NT  TAB< 1 0+SP ) " [ RVSON 3 [ 3SPC  3  £ RVSOFF 3 
[ 5SPC J [ RVSON  3 [ 3SPC 3  £ RVSOFF J " 

480  PR I NTTRB C 1 0+SP ) " £ RVSON 3  £ 3SPC 3  £ RVSOFF 3 
[  5SPC  3  [RVSON  3  £  3SPC  3  L  RVSOFF  3  " 

485  PR I N TTAB í 1 0+SP ) " [ RVSON 1 í 3SPC 3  £ RVSOFF  3 
[5SPC3 [ RVSON  3  £ 3SPC 3  £ RVSOFF 3 " 

490  PRINTTRBÍ 10+SP) " E RVSON 3  £ 3SPC 3 [ RVSOFF 3 
r 5SPC 3 1 RVSON  3 E 3SPC 1  £ RVSOF F  3 " 

495  PRI  NTTRB <10+SP)M£ RVSON 3  £  3SPC 3  [ RVSOFF  3 
[ 5 SPC 3 [ RVSON  3  £ 3SPC J  £ RVSOF F  3 " 

50O  PR  I  NTTRB  (.  1 0+SP  )  "  E  RVSON  3  L  3SPC  3  £  RVSOFF  3 
t  5SPC3 [ RVSON  3  L  3SPC 3  L  RVSOFF 3 " 

515  PRI NTTRB < 1 0+SP > “ E RVSON 3 r 3 SPC 3 [ RVSOFF 3 
[ 58PC  3  £  RVSON  3  £ 3SPC 3  £ RVSOFF 3 " 

520  PR 1 NTTRB (1 0+SP  ) " [ RVSON  3 [ 3SPC  3 [ RVSOFF  3 
£  5SPC  3  £  RVSON  3  £  3SPC  3  C  RVSOFF  3 " 

525  PR I NTTRB í 1 0+SP ) “ E RVSON  3 [ 3SPC 3  E RVSOFF 3 
[ 5SPC 3 [ RVSON  3 [ 3SPC  3 E RVSOFF 3 " 

530  PR I NTTRB <1 0+SP VE RVSON 3 E 1 1 SPC 3 E RVSOFF 3 

535  PR I NTTRB < 1 0+SP)" ERVS0N3E1 1 SPC 3 [RVSOFF 3 
540  PRI NTTAB<  1 0+SP )  " C RVSON 3C11SPCJC RVSOFF 3 
550  RETURN 

600  REM#**  SUBRUTINR  NUMERO  1  *** 

613  PRI NTTRB í 1 0+SP > " [ 5SPC 3 [RVSON 3 [ 3SPC 3 
[ RVSOFF  3  C  4SPC  3 " 

615  PRI NTTRB ( 1 0+SP ) " £ 4SPC3E RVSON 3  £ 4SPC 3 
£  RVSOFF  3  £  4SPC  3 " 

616  PR I NTTRB  el 0+SP ) " £ 3SPC 3  C  RVSON  3  £ SSPC  3 
[RVSOFF3E4SPC3" 

617  PRINTTABí 10+SP) "£2SPC:] ERVS0N3 E6SPC3 
£ RVSOFF  3 [ 4SPC  3 " 

619  PR I NTTRB (1 0+SP ) " [ 2SPC  3  £  RVSON  3 [ 6SPC 3 
£  RVSOFF  3 [ 4SPC 3 " 

620  PRI NTTRB  O  0+SP )" C SSPC  3 [ RVSON  3 [ 3SPC  3 
[RVSOFF 3 E4SPCJ" 

622  PR I  NT  I HB (1 0+SP ) " [ BSPC 3 [ RVSON  3  £ 3SPC 3 
[ RVSOFF 3  £  4SPC3 " 

625  PR I NTTAB (1 0+SP ) " £ SSPC  3 [ RVSON  3 [ 3SPC 3 
ERVSOFF3E4SPC3" 

627  PR I NTTRB < 10+SP  ) "[ SSPC  3  £  RVSON  3 [ 3SPC  3. 

£  RVSOFF  3 [ 4SPC 3 " 


630  PR I NTTRB  a  0+SP ) " C  SSPC 3 [ RVSON  3 [ 3SPC 3 
[ RVSOFF  3 [ 4SPC  3 “ 

633  PR I NTTAB  í 1 0+SP ) " [ SSPC 3 [ RVSON  3 [ 3SPC  3 
[RVSOFF  3 [ 4SPC  3 " 

635  PR I NTTRB  C 1 0+SP ) " [ SSPC  3 [ RVSON  3 [ 3SPC 3 
[ RVSOFF  3  C  4SPC  3 " 

637  PRI NTTRB < 10+SP)"C5SPC3£RVSON3£3SPe3 
[RVSOFF3E4SPC3" 

640  PR I NTTAB  < 1 0+SP ) " [ SSPC  3 [ RVSON  3 [ SSPC 3 
[RVSOFF 3 Í4SPC3" 

643  PR i NTTRB  < 1 0+SP ) " £  SSPC  3 [ RVSON 3 [ SSPC  3 
[RVSOFF  3  L  4SPC  3 " 

645  PR I NTTRB (1 0+SP ) " £ SSPC  3  C  RVSON 3 [ SSPC  3 
[ RVSOFF  3 [ 4SPC  3 " 

650  PR I NTTRB 1 1 0+SP ) " £ SSPC  3 [ RVSON 3  £ 38PC 3 
[ RVSOFF  3 [ 4SPC  3 " 

655  PR I NTTRB < 1 0+SP ) " £ SSPC 3 [ RVSON 3  £ SSPC  3 
[RVS0FF3 [4SPÜ3 " 

660  RETURN 

675  REM  **#  SUBRUTINR  NUMERO  2  *** 

676  PR I NTTRB C1 0+SP)" [RVSON J[ 1 1 SPC 3 [RVSOFF 3 

677  PRI NTTRB O 0+SP) “ [RVSON 3 £  11 SPC J [RVSOFF 3 

678  PR I NT FRB íl 0+SP ) " [ RVSON 3 [ 1 1 SPC 3 C RVSOFF 3 

679  PR I NTTRB (1 0+SP ) " £ RVSON 3 [ SSPC 3  £  RVSOFF  3 
[5SPC3 [ RVSON  3  £ 3SPC 3 [ RVSOF F  3 " 

680  PR I NTTRB (1 0+SP ) " [ RVSON 3 [ SSPC J [ RVSOFF 3 
[ SSPC  3 [ RVSON 3  L  SSPC  3 [ RVSOFF J " 

681  PRI NT  1 RB  í 10+SP ) " £ SSPC  3 [ RVSON 3 [ 3 SPC 3 
£  RVSOFF  3 [ 2SPC  3 " 

682  PRI NTTRB ( 10+SP) " [7SPC3 CRVS0N3 [4SPC3 
[ RVSOFF  3 [ 2SPC  3 " 

683  PR I NTTAB < 10+SP) " £  6SPC  3  £  RVSON  3  £  4SPC  3 
£ RVSOFF 3  £ SSPC 3" 

684  PRI NTTRB  < 1 0+SP ) " £  SSPC 3  £ RVSON 3  £  4 SPC 3 
£  RVSOFF  3 [ 4SPC 3 " 

685  PRINTTRBÍ 10+SP) "E4SPC3 [RVS0N3 [4SPC3 
[ RVSOFF JE SSPC 3" 

686  PRINTTRBÍ 10+SP) " £  SSPC 3  £  RVSON 3 1 4SPC  3 
f  RVSOFF  3  £  6SPC  3 " 

687  PRI NTTRB < 1 0+SP ) " [ 2SPC 3 [ RVSON JE4SPC 3 
IRVSOFF3E7SPC3" 

688  PRINTTRBÍ 10+SP) "£SPC3[ RVSON 3 C4SPC3 
[ RVSOFF 3  £ SSPC 3" 

689  PRI NTTRB (10+SP) " £ RVSON 3 E4SPC 3 L RVSOFF J 
L SSPC 3" 

691  PRI NTTRB < 10+SP) "[ RVSON  3 [ SSPC 3 [ RVSOFF  3 
£  1 1SPC3 " 

692  PRINTTRBÍ 10+SP) " [RVSON 3 £  1 1 SPC 3 1 RVSOFF 3 

693  PRINTTRBÍ 1 0+SP) " ERVS0N3 [ 1 1 SPC 3 [RVSOFF 3 

694  PR  I  NT  1  RB<1 0+SP  )  "  [  RVSON  3  [  1 1  SPC  3  £  RVSOFF  3 

695  RETURN 

705  REM  **+  SUBRUTINR  NUMERO  3  *** 

708  PR I NTTRB  í 1 0+SP ) " [ RVSON  3  £11 SPC 3  £  RVSOFF  3 

709  PRINTTRBÍ 10+SP) " C RVSON 3 [ 1 1 SPC 3 [RVSOFF 3 

710  PRI NTTRB  í 1 0+SP ) " £  RVSON 3 [ 1 1 SPC 3 [ RVSOFF 3 

711  PR  I  NTTRB  í  1 0+SP  )  "  £  8SPC'  3  [  RVSON  3  [  3SPC'  3 
[ RVSOFF 3 " 

712  PRI NTTRB í 1 0+SP ) " £ SSPC  3  £  RVSON  3E3SPC 3 
[RVSOFF 3" 

713  PR I NTTRB (1 0+SP ) " £ SSPC  3 [ RVSON 3 [ 3SPC 3 
[RVSOFF 3" 

714  PRINTTRBÍ 1 0+8P) " [ SSPC 3 [RVSON 3 L3SPC3 
[RVSOFF 3" 

715  PR I NTTRB ( 1 0+SP ) " C  SSPC 3 [ RVSON  J [ 6SPC  J 
[RVSOFF 3" 

7 1 6  PR I NTTAB  í 1 0+SP ) " £  SSPC  3  £ RVSON 3  £ 6SPC  3 
[RVSOFF 3" 

717  PR I NTTRB ( 1 0+SP ) " 1 5SPC  3 [ RVSON 3 [ SSPC J 
[RVSOFF 3" 

718  PRI NTTRB í 1 0+SP ) " £ SSPC 3  C RVSON 3 [ SSPC 3 
[RVSÜFF 3" 
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719  PRI NT  TRBÍ 1 0+SP ) " £ 8SPC 3 [ RVSÜN 3 £ SSPC 3 
[RVSOFF 3 " 

720  PRI  NTTRB  1 0+SP )  "  £ 8SPC 3  £ RVSON 3  £  SSPC 3 
£  RV60FF J " 

721  PR I N3  TRB  < 1 0+SP ) " 1 8SPC 3 1 RVSON 3 £ 3SPC 3 
[RVSOFF 3 " 

722  PRINTTRBÍ 10+SP) " [ SSPC 3 [ RVSON 3 C SSPC 3 
CRVSOFF 3 " 

723  PR I N  TTRB  í 1 0+SP  ) L  RVSON  3  [  1 1 SPC  3  C  RVSOFF  3 

724  PR 1 NTTRB í 1 0+SP ) " £ RVSON  3  C 1 1 SPC  3  C  RVSOFF 3 
723  PRI NTTRB í 1 0+SP 3 " [ RVSON 3 C 1 1 SPC 3  C RVSOFF  3 
730  RETURN 

750  REM  »**  SUBRUTINH  NUMERO  4  *»* 

755  PRI NTTRB (1 0+SP ) " [ RVSON 3 C 3SPC 3 C RVSOFF 3 
C  55PC  3 [ RVSON  3 [ 38PC  3  £  RVSOFF  3 " 

756  PR  1  NT  THBÍ  1 0+SP  .> "  t  RVSON  3  C  3SPC  3 1  RVSOFF  3 
r  5SPC 3 1 RVSON  I C  3SPC 3  C  RVSOFF 3 " 

757  PRINTTRBÍ  1  tí+SP)  "  C  RVSON  3  C  3SPC  3  C  RVSOFF  3 
C  5SPC 3  C  RVSON 3 [ 3SPC 3 £ RVSOF  F  3 " 

753  PRINTTRBÍ 1 0+SP) " I RVSON 3 C3SPC3 CRVSOFF3 
£ 5SPC 3  C RVSON  3  C  3SPC 3  C  RVSOFF  3 " 

759  f -R I N  I  r RB 1 IJ+SP  )  L  RVSI IN31 3SPC  i  l  RVSUFF  3 
C5SPC3  C RVSON  3  C SSPC 3  L  RVSOFF 3 " 

760  PRI NTTRB í 1 0+SP 3 " C RVSON 3 C SSPC 3 C RVSOFF 3 
C  5SPC 3 L RVSON 3 [ SSPC 3  [ RVSOFF 3 " 

768  PR I NTTRB  í 1 0+SP ) " £  RVSON 3  L  3SPC  3 [ RVSOFF  3 
C  53FT  3  C RVSON  3  [  ¿ski;  ]  [ RVSOFF  3 " 

770  PR I NTTRBÍ1 0+SP ) " L RVSON J C 1 1 SPC 3 1 RVSOFF 3 

77 1  PR I NTTRB  í  1  0+SP ) " £ RVSON  3  C1 1 SPC  3  C  RVSOFF 3 

772  PRINTTRBÍ 1 0+SP) " [RVSON 3 £  1 1 SPC 3 L RVsOFF 3 

774  PR I NTTRB  < 1 Ü+SP  > " [ SSPC  3  £  RVSON 3 1 3SPC 3 
£ RVSOFF 3" 

775  PRINT  l'RB í  1 0+SP ) " £ 8SPC 3 1 RVSON 3 £ SSPC 3 
CRVSOFF 3" 

776  PR I NTTRB  í 1 0+SP ) " £  8SPC 3  £  RVSON  3  C  36PC 3 
CRVSOFF 3" 

777  PR I NTTRB í 1 0+SP ) " £ 8SPC 3 [ RVSON 3  £ 3SPC 3 
CRVSOFF 3" 

7  78  PR  1  N  I  TRB  (.1 0+SP ) "  C  88PC  3  [  RVSON  3  [  3SPC  3 
[RVSOFF 3" 

779  PR I N  r TRB  O  0+SP ) " £ 8SPC 3  C RVSON  3  £  SSPC  3 
CRVSOFF 3" 

788  PR I  NT T  RB (1 0+SP ) " £ SSPC  3  C  RVSON 3  £  SSPC 3 
CRVSOFF 3" 

78 1  PR I NTTRB  <1 0+SP  > " C SSPC  3  C  RVSON  3  C  SSPC 3 
CRVSOFF 3" 

785  RETURN 

8ü0  REM  #**  SUBRUT1NR  NUMERO  5  «** 

809  PR I NTTRB (1 0+SP ) " £ RVSON 3  £1 1 SPC  3  £  RVSOF  F 3 

8 10  PRI NT TRB  a  0+SP  > " l RVSON  3  £  1 1 SPC  3  £  RVSOFF  3 

811  PR I NTTRB ( 1 0+SP )" C  RVSON  3  £1 1 SPC  3  £ RVSOFF  3 

812  PRI NTTRB  U  0+SP )" £ RVSON  3  £  SSPC  3  £  RVSOFF  3 
I 8SPC3" 

8 1 S  PR 1 NT  TRB (1 0+SP )" £  RVSON  3  £  SSPC 3  £  RVSOFF 3 
C  8SPC 3 “ 

814  PR 1 NTTRB  í 1 Ü+SP ) " C RVSON  3  C  SSPC  3  C  RVSOFF 3 
[SSPC 3" 

815  PRI N  TTRB í  1 0+SP  > " £  RVSON  3  £ SSPC  3  £  RVSOFF  3 
C SSPC 3" 

8 1 6  PR I NTTRB  í 1 0+SP ) " £  RVSON  3  £ SSPC  3  C  RVSOFF  3 
[8SPC3 " 

817  PR I NI TRB (1 0+SP  >" £  RVSON 3  C 1 1 SPC 3  £  RVSUFF 3 

8 1 8  PR I NTTRB  £1 0+SP )" £  RVSON  3  £  1 1 SPC  3  £  RVSOFF  3 

819  PRI NTTRB (1 0+SP )" £ RVSON  3  £  1 1 SPC  3  £  RVSOFF  3 

820  PR I NTTRB (1 0+SP )" £  SSPC  3  £  RVSON  3  £  SSPC 3 
[RVSOFF 3" 

821  PR 1 NTTRB  <1 Ü+SP ) " £  8SPC  3  £  RVSON  3  £  SSPC  3 
CRVSOFF 3" 


822  PRI NI  1  RB <1 0+SP )" C8SPC 3 [RVSON 3 C3SPC 3 
I  RVSOFF 3" 

823  PRINTTRBÍ 1 0+SP ) " £  SSPC  3  £  RVSON  3  C  SSPC  3 
CRVSOFF 3" 

824  PRINTTRBÍ 10+SP) "CRVS0N3C1 1 SPC 3 CRVSOFF 3 

825  PRINTTRBÍ 10+SP) "ERVSÜN3C 1 1 SPC 3 CRVSOFF 3 
827  PRINTTRBÍ 10+SP) " C RVSON 3 £  1 1 SPC 3 CRVSOFF 3 
830  RETURN 

850  REM  ***  SUBRUTINH  NUMERO  6  *** 

855  PR 1 NTT RB  í 1 0+SP ) " £  RVSON  3  T 1 1 SPC  3  £  RVSOFF 3 

856  PR  I  NTTRB  í  1 0+SP  )  "  £  RVSON  3  £1.1  SPC  3  C  RVSOFF  3 

857  PR 1 NTTRB  í 1 0+SP ) " C  RVSON 3  C 1 1 SPC  3  £  RVSOFF  3 

858  FRINTTHBí  10+SP) " CRVSÜN3 C SSPC 3 CRVSOFF 3 
£ SSPC 3" 

859  PRINTTRBÍ 10+SP) " C RVSON 3 C SSPC 3 CRVSOFF 3 
C8SPC3 " 

860  PR I  NTTRB  í  1 0+SP  )  "  C RVSON 3  £  SSPC  3  £  RVSOFF  3 
£ SSPC 3" 

86 1  PR I NTTRB  í 1 0+SP ) " C RVSON 3  £  SSPC 3  £  RVSOFF 3 
I SSPC 3" 

8b2  PR I N  TTRB  í 1 0+SP ) " £  RVSON  3  C  SSPC  3  £  RVSOFF  3 
CSSPC 3" 

863  PRI NT  TRB  í 1 0+SP  > " £  RVSON  3  £  1 1 SPC  3  C  RVSOFF  3 

864  PRINTTRBÍ 1 0+SP > " [ RVSON 3  £  1 1SPC3 [RVSOFF 3 

865  PR  I N  TTRB  <  1  Ü+SP .) "  £  RVSON  3  £  1 1  SPC  3  £  RVSOFF  3 

866  PRINTTRBÍ 10+SP) " [RVSON 3 C3SPC3 CRVSOFF) 

£  5SPC 3  C  RVSON 3  C  SSPC  3  £  RVSOF  F  J " 

867  PRINT  TRB  <.  10+SP)  "  £  RVSON  3  C  SSPC  3  [RVSUFF  3 
C  SSPC  3  £  RVSON  3  £  SSPC  3  £  RVSOF F  3 " 

868  PR I NTTRB í 1 0+SP ) " £  RVSON 3  £  SSPC  3  £  RVSOFF 3 
£  5SF'C  3  £  RVSON  3  £  SSPC  3  C  RVSOFF  3 " 

869  PR I NTTRB  í 1 0+SP  > " £ RVSüN 3  £  SSPC  3  £  RVSOFF  3 
f  SSPC  3  £  RVSÜN 3  £  SSPC  3  £  RVSOF F  3 " 

870  PRI NTTRB < 1 0+SP ) " £ RVSON 3  £  1 1 SPC  3  £  RVSOFF  3 

871  PR I NT  TRB  í 1 0+SP ) “ £ RVSON 3  C 1 1 SPC  3  £  RVSOFF  3 

872  PR I NTTRB  í 1 0+SP  > " £  RVSON  3  £  1 1  SPC  3  £  RVSOF  F  3 
875  RETURN 

879  REM  *««  SUBRUTINH  NUMERO  7  **« 

881  PR I NT  TRB  í 1 0+SP ) " £  RVSON 3  £  1 1 SPC 3  C  RVSOFF 3 

882  PR I NTTRB í 1 0+sP ) “ C RVSÜN 3  £  1 1 SPC  3  C RVSOFF 3 

883  PR I NTTRB  í 1 0+SP ) " £  RVSON 3  £  11 SPC 3  £  RVSOFF 3 

884  PR I NTTRBÍ 1 0+SP ) " C  7SPC  3  £ RVSON 3  £  4SPC  3 
[RVSOFF 3" 

885  PR I NTTRBÍ 1 0+SP )" £  SSPC  3  £  RVSON 3  £  4SPC 3 
[RVSOFF 3 £SPC 3" 

886  PRINTTRBÍ 1 Ü+SP ) " C68PC3  £ RVSÜN 3  C 4SPÜ 3 
CRVSOFF 3 £SPC 3" 

887  PRI NTTRB  í 1 0+SP ) " £ SSPC 3  £  RVSÜN  3  £  4SPC  3 
f  RVSOFF 3 £2SRC3" 

888 -PRINTTRBÍ 10+SP) "£ SSPC  3  £  RVSON 3  £  4SPC 3 
£  RVSOFF  3  £  2SPC  3 " 

889  PR I NTTRB  í 1 0+SP ) " £  4SPC 3  £  RVSÜN  3  £  4SPC  3 
[RVSOFF 3  £ SSPC 3" 

890  PR I NTTRB  íl 0+SP ) " £ 4SPC 3  £  RVSÜN 3  £  4SPC 3 
C RVSOFF 3  £ SSPC 3" 

891  PR I NTTRB  a  0+SP ) " £  SSPC 3  £  RVSON  3  £  4SPC 3 
£  RVSOFF  3  £  4SPC  3 " 

892  PR I NTTRB  í 1 0+SP ) " £ SSPC  3  £  RVSON  3  £  4SPC  3 
£  RVSOFF  3  £  4SPC  3  '* 

893  PR I NTTRB í 1 0+SP ) " C 2SPC 3  C RVSÜN 3  £  4SPC 3 
£ RVSOFF 3  £ SSPC 3" 

894  PR I NTTRB  í 1 0+SP ) " C 2SPC 3  £  RVSON  3  £  4SPC 3 
[RVSOF F3£5SPC3" 

895  PRI NI  1 RBí 1 0+SP ) " £  SPC  3  £  RVSÜN  3  £  4SPC  3 
CRVSOFF) [6SPC3" 


896  PR I NTTRB< 1  0+SP J  "  [  SPC  3  C  RVSON  3 [ 4SPC  3 
C  RVSOFF  ]  [  68PC  ] 11 

897  PR I NTTRB  < 1 0+SP ) " [ RVSON 3  C  4 SPC 3  C RVSOFF 3 
[7SPC3" 

898  PR 1  NTTRB<  1 0+SP >  "  C RVSON 3  C  4SPC3Í RVSOFF 3 
C7SPC3" 

900  RETURN 

910  Rfcri  ***  SUBRUTINrt  NUMERO  8  *** 

91 2  PR I NTTRB  <1 0+SP  >"[ RVSON  3  í 1 1 SPC  3 [ RVSOFF 3 

913  PR I NTTRBC 1 0+SP  > " [ RVSON 3C11SPCK RVSOFF 3 

914  PR I NTTRB  C 1 0+SP ) " C RVSON  3 1 1 1 SPC  3  C RVSOFF 3 

915  PRINTTRBÍ10+SP) " [RVSQN3Í3SPC3ÍRV80FF3 
[  5SPC 3  [  RVSON  3  [ 3SPC 3  C  RVSOFF  3 " 

9 1 6  PR I NTTRB < 1 0+SP ) " [ RVSON 3  C  3SPC  3  L RVSOFF  3 
[ 5SPC  3 [ RVSON  3  C  3SPC 3 [RVSOFF J " 

917  PR I NTTBB < 1 0+SP  3 " C  RVSON 3 1 3SPÜ  3 [ RVSOFF 3 
C5SPC  3 [RVSON3 [ 3SPC 3 [RVSOFF 3 " 

918  PR I NTTRB < 1 0+SP ) " [ RVSON 3 [ 3 SPC 3 [ RVSOFF 3 
r  5SPC  J [ RVSON 3 [ 3SPC 3 [ RVSOFF  3 " 

919  PR I NTTRB <1 0+SP ) " [ RVSON 3 [ 1 1 SPC 3 [ RVSOFF 3 

920  PR I NTTRB < 1 0+SP 3" [RVSON 3 [ 1 1 SPC  3  L RVSOFF  3 

921  PR I NTTRB ti 0+SP  > " [ RVSON  3  L 1 1 SPC  3 [ RVSOFF  3 

922  PR I NTTRB ( 1 0+SP 3 "[RVSON 3 [ 1 1 SPC 3 [RVSOFF 3 


923  PR I NTTBB (1 0+SP 3 " [ RVSON 3 [ 3SPC 3 [ RVSUP F  3 
[ 5SPC  3 [ RVSON  3 [ 3SPC  3 [ RVSOFF  3 " 

924  PR I NTTRB  <1 0+SP  3 " [ RVSON 3  L  3SPC 3  L RVSOFF 3 
[ 5SPC 3 [ RVSON 3 [ 3SPC 3  L RVSOFF  J " 

925  PR I NTTRB  <1 0+SP  3 " [ RVSON  3 [ 3SPC  3 [ RVSOFF 3 
[5SPC3  LRVSON3 C 3SPC 3 [ RVSOFF 3 " 

926  PR I NT  TRB < 1 0+SP  3 " [ RVSON  3  L  3SPC 3 [ RVSOFF  3 
[ 5SPC 3 [ RVSON  3 [ 3SPC  3 [ RVSOFF  3 " 

927  PR i NTTRB (1 0+SP 3 "[ RVSON 3 [ 1 1 SPC 3 [ RVSOFF 3 

928  PRI NTTRB ( 1 0+SP 3 "LRVSON3Í 1 1SPC3 [RVSOFF 3 

929  PR I NTTRB  <1 0+SP  3 " [ RVSON  3 [ 1 1 SPC  3 [ RVSOFF  3 
932  RETURN 

950  REM  ***  SUBRU1INR  NUMERO  9  *#* 

955  PR 1 NTTRB < 1 0+SP  3 " [ RVSON 3 [ 1 1 SPC  3 [ RVSOFF 3 

956  PRI NTTRB (1 0+SP > " [ R VSON3 [ 11 SPC 3 [ RVSOFF  3 

957  PR I NTTRB < 1 0+SP  3 " [ RVSON 3 [ 1 1 SPC 3 [ RVSOF  F  3 

958  PRI NT  TRB  <  1 0+SP  3 " [ RVSUN 3 [ 3SPC  3 [ RVSOFF  3 
[ 5SPC J [ RVSON  3 [ SSPC 3 [ RVSOFF  3 " 

959  PRI NTTBB ( 1 0+SP 3 " [ RVSON 3 [3SPC 3 [RVSOFF 3 
[ 5SPC 3 [ RVSUN 3 [ 3SPC  3 [ RVSOFF 3 " 

960  PR I  NT  TRB  U  0+SP 3 " [ RVSON 3 [ 3SPC 3 [ RVSOFF 3 
[ 5SPC  3 [ RVSON  3 [ 3SPC 3 [ RVSOFF 3 " 

961  PR I N  TTRB  <1 0+SP  3 " [ RVSON 3 [ 3SPC 3 [ RVSOFF 3 
[ 5SPC 3 [RVSON 3 t 3SPC 3 [ RVSOFF 3 " 

962  PR I NTT  RBÍ1 0+SP  3 " [ RVSON  3 [ 1 1 SPC  3 [ RVSOFF  3 

968  PRINTTRBÍ 1 0+SP 3 " [RVSON 3 [ 1 1SPC3 [RVSOFF 3 


964  PRIN  fTRB< 1 0+SP 3 


965  FRIN7THB1 
[RVSOFF 3" 

966  PRI NTTRB1 
[RVSOFF 3" 

96?  PRlNITRBí 
[RVSOFF 3 

968  PRINTTRBC 
[RVSOFF 3 

969  PRINTTRBÍ 
[RVSOFF 3" 

970  PRINTTRB' 
[RVSOFF 3" 

972  PRINTTRB' 
[RVSOFF 3" 


1 0+SP 3 
1 0+SP 3 
10+SP3 
1 0+SP 3 
1 0+SP 3 
1 0+SP 3 
10+SP3 


1  [ RVSON  3 [ 1 1 SPC  3 [ RVSOFF  3 
1  [8SPC  3 [ RVSON  3  C  38PC  3 
1  [ 8SPC  3 [ RVSON  3 [ 3SPC  3 
1 C  tíSPC  3  L RVSUN  3 [ 3SPC 3 
'  [ 6SPC  3 [ RVSON  3 [ 3SPC  3 
1  f  8SPG  3 [ RVSON  3 [ 3SPC  3 
'  [ 8SPC  3 [ RVSON  3 [ 3SPC  3 
1  [ 8SPC  3 [ RVSON  3 [ 3SPC  3 


973  PR I NTTRB Í1 0+SP j " [ SSPC 3 [ RVSON 3 [ 3SPC  3 
[RVSOFF 3" 

980  RETURN 

200O  IF0“1THEN239 ; REM  CRP  NUMERO  TRE 
T 

2003  PR I  NT " [ C[ R  3 " ; ÜUSUB 1 0000 

2005  F0RC“1TÜU-1 

2010  ES$«LEFTS<B1*<C),2> 

202f  L'k*=P  1  üH  I  i  B 1  *  •,  t  >  ■  1  > 

2030  COL“VHL ( ES* ) *4+2 : F I L* VRL  í  DR* ) *2 

2033  I FDR** " 0 "  THENF I L»20  •  COLCOL-4 
2035  1FQ-1THEN2050 
2040  GOSUB  5000 
2050  NEXTC 

2055  PR  1  NT  "  [  Hurí  1  [  23CRSRD  3  [  2 SPC  3  [  RVSON  3 

**  [  SPC  3F7  [  SPC  3  [  RVSOFF  3  [  SPC  3  CONT I NUR  [  2SPC  3 

I.  RVSON  3  **  [  SPC  3  F8  [  SPC  3  [  RVSOFF  3  [  SPC  J  NO 

VRLSPC3PRRT1DR 

2060  UETB$ : I F  B$* " " THEN2060 

2065  IFB*=CHR*U403THENRUN 

20b?  1 F  0=9 1 THEN2060 

2070  lFB*OCHK*v  136>THEN2060 

2076  GÜSUB25000 

2030  0*0-1 :tS*»LEKr*<BI*ÍQ>(2> ¡DR*-R 
IGHT*( B I *  < O  > . 1 ) ¡ GOTO250 
5000  Bí  =  "  [  HUf'l  3  [40CRSRB  J " 

5002  PRINTLÉFT*(Dí/FIL)J  TRBÍCGL)  ;BI 
ÍC> ; RETURN 
9990  REM 

9995  REM#**  SUBRUTINR  PER  PER  GURURE 

*** 

9997  REM 

9999  FQRT«1TO90:PRINTBI(T)j  NEX 

T 

10000  PR I NT " [ HOM  3 [ SPC  3 [ COMMM 3 [ 3CÜMMV 3 

[ SH I FTP  3 [ 3C0MMV 3 [ SH I F  T  P  3  C 3C0MMV 3  f  SH 1 F  TP  3 
[ 3CÜMMY3 [ SHI FTP  3  í  3C0MMV 3 [ SH 1  FTP 3 [ 3CÜMMV3 
[  SH  1  FTP  3  [  3C0MMV  3  [  SH  I  FTP  3  [  3CÜMMV  3  í.  SH  I  FTP  3 
[ 3C0MMV  3 [ SH I FTP  3 " 

10030  FORT*0TU18 

10040  PR 1 NT “ [ SPC  3 1  COMMM 3 [ 3SPC 3 [ COMMM 3 
[ SSPC 3  C  COMMM  3 [ 3SPC 3 C  COMMM 3 [ SSPC 3 [ COMMM 3 
[ SSPC 3 [ COMMM  3 [ 3 SPC 3 [ COMMM  3 [ SSPC 3 [ COMMM  3 
[ SSPC  3 [ COMMM  3 [ 3SPC 3 [ COMMM  3 [ SPC  3 " 

10050  NEXrr 

1 0060  PR I NT " [ SPC  3 [ COMMM  3 [ 3C0MMP 3 [ SH I FT0  3 
[  3CÜMMP  3  [  SH  1 F  Til  3  C  3C0MMP  3  [  SH  I F  NI  3  [  3C0MMP  3 
[  SH  I F  TU  3  [  3C0MMP  J  [  SHIF  TH3  [  3CC3MMP  3  [  SH  I  FT@  3 
[ 3CÜMMP 3 [ SH I FT0  3 [ 3C0MMP  3 [ SH I FT8  3 [ 3CÜMMP 3 
CSHIFTHJÍSPC3" 

10064  PRI  N  T  "  t  SPC  3  C  COMMM  3  i  RVSON  J  C  SPC  1 
0 [ SSPC 3 1 0 [ 2SPC  J  20 1 2SPC  3  30 [ 2SPC  3  4ü  C  2SPC  J 
50[ 2SPC 3  60 [ 2SPC 3  70 [ 2SPC  3  80 [ SPC 3 [ RVSOFF  3 

1 0070  PR I NT " [ CRSRR 3 [ SPC 3 [ 36C0MMV 3 [ SPC  3 

10U90  RETURN 
24900  REM 

24910  REM  FORMBCIO  LEL  MHRC  EN  PRNTH 
I.Lfi 

24920  REM 

25000  PRI  NT  “  [CLR3  [  COMMM  3  [  '36C0MMT  3  [  COMMG  3 

250 1 5  FORN* 13  020 • PR I NT " [ COMMM 3 " TRB í  3 
7> " CC0MMG3" ; NEXT 

25020  PR I NT " [ COMMM 3 [ 36C0MM8 3 [ COMMG J [SPC 3 
25030  RETURN 
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Ladrón 


El  principal  objetivo  es  intentar  robar  la  mayor  cantidad  de 
botines  posibles,  pero  hay  que  tener  cuidado  con  los  policías  y 
las  múltiples  farolas.  Ahora  paso  a  explicaros  el  programa. 

1-  9  Creador  de  los  nuevos  caracteres. 

50-  80  Coloca  las  farolas. 

90  Crea  los  botines. 

110-  169  Creación,  movimiento  y  borrado  de  los  policías. 

Además  evalúa  las  situaciones  cuando  un  policía  se 
encuentra  con  un  ladrón,  un  botín  o  una  farola. 
179-  780  Creación,  movimiento  y  borrado  del  ladrón. 

Formula  las  situaciones  en  las  cuales  el  ladrón  se 
encuentra  con  un  botín  un  policía  o  una 
farola. 

2100-2211  Printa  el  final  del  juego. 

3000-3085  Subrutina  de  comienzo  del  juego. 

6000  Situación  en  donde  se  encuentran  dos  policías. 

Para  terminar  os  diré  que  tengo  un  VIC-20,  14  años  de  edad  y 
os  deseo  que  sigáis  editando  la  revista  por  muchos  años. 


1  BATA28, 12; 12; 254; 199; 221 ; 39; 97, 0; 1 
6;  31 , 18, 90,  1  10,  36, 0,  24,  60,  24, 56, 124, 
124,56,24 

2  BATA  1 24 , 68 ,  78 , 68 , 64 , 64 ,  64 ,  224 

3  P0KE52, 28 : P0KE56, 28 • CLR : FÜRU=7168T 
07679 ■' POKEU, PEEKOJ+25600) : NEXTU 

4  POKE650, 120 

5  P0KE36869 , 255 • T =3 1 

6  F0RI“7168+T*8T07168+TÍ8+7 : REABD : P0 
KE I , D ; NEXT I 

7  I FT O30ANDT 035RNBT 037THENT *30 : 00 
T06 

8  I FT035RNBT 037THENT “35 : G0T06 

9  I FT 037RNBT “3 1 ORT*30ORT «35THENT »37 
•'  00T06 

11  DiriT(2) 

12  GOSUB3O00 

13  GGSUB3800 

14  PRINT" £ CLR 3  " 

15  P0KE36879, 136 :  J“0 
22  TS“TI 

50  F0RK»1 TO40 
60  L=INT(RND< 13*484) 

70  POKE7702+L, 37 • P0KE38422+L, 1 


80  NEXTk 

82  T  <  0  > -0 : T  a ) =242  T  < 2 ) =484 ■ 2*7680  X 
■38400 : C=36878 ■ V=3687b 
90  FÜRT“1 TO80 : B=INT CRHDf 1 >*484) ; P0KE 
7702+B, 35 ■ P0KE38422+D, 7 ■ NEXTT 
1 10  F0RV-8T02 ■  PÜKEZ+Tc V> ,  32 :  NEXTY 
115  FOKU=0TÜ2 

1 20  I FA>T ( U 3 ANBfi-T<  U>  022 THENT < U3-TC 
U3+1 

130  I  FT  <  U  3 >AflNBT  <  U  3  -R022THENT  <  U  3  “T  < 

U)-l 

140  IFfi>T<U)RNBA-T<U)>=22THENT (U3*T < 
U3+22 

150  IFT<U3>flRNBKU)-A>=22THENT<U)*T< 

U  >  -22 

160  I FPEEK <  Z+T<  U) 3  =31  THENPÜKEC ,  15  00 
KEV,  237 :  FÜRW=1  TO900  •'  NEXTW  •  PUKEC,  0  ¡  00 
SUB2100 

162  IFPEEK<Z+T(U>) ■35THENP0KEZ+T CU), 

35 :  POKEX+TCU) ,  7  •’  GOTO  120 

1 63  I FPEEK  <  Z+T  <  U  >  3 -37T HENPQKEZ+T  < U  3 , 

37 : P0KEX+T  CU) , 1 : GOTO 120 

1 64  POKEZ+T <U> , 30 : PÜKEX+T CU) , 0 

165  K*30 

166  FÜRI-0TO2 

167  I F  <  Z+T  ( I  ) + 1  3  ■KORPEEK  t  Z+T  <  1 3  - 1  >  =K 
ORPEEK < Z+T  < I) +22  3 “KORPEEK C  Z+T ( 1 3 -22  3 
■KTHENGQSUB6000 

169  HEXTI , U 

179  F0RT-1T04 

180  BETA* 

190  POKEZ+R, 31 • PÜKEX+R, 2 

200  I FR$* " T "  THENR=R-22  •  PÜKEZ+A+22,  32 

300  IFA*="F"THENA=R-1  :  POKEZ+Fl+1 , 32 
600  IFfií»"  V”THENA“A+22 :  PÜKEZ+R-22,  32 

700  IFA*="G“THENA=A+1  •’ POKEZ+R- 1 , 32 
720  IFPEEKCZ+R3=35THENJ“ J+l  ; F'ÜKEC,  15 
: PÜKEKEV, 205 : F0RU=1T08 ■ NEXTU : POKEC, 0 

730  IFPEEKCZ+A)  *3  70RPEEK  CZ+A)«K  THENP 
OKEC, 9 ¡ POKEV, 207 ■ F0RT“1 TÜ300 • NEXT : Pü 
KEC, 0 : GÜTO2100 

740  I FPEEK  < Z+R  3 “370RPEEK C  Z+ A  3 “30THEN 

OOTO2100 

750  HEXTT 

780  GOTO110 

1085  ■ 60 

2100  P0KE36879, 122 

2110  PR I NT " E  CLR  3  E  2CRSRB  3  E  2CRSRR 3  B0T I 

NES [ SPC 1 RÜBABOS» [ SPC  3  "  JJ 

2200  PR I NT " E 2CRSRD  3 [ 2CRSRR J  T I EMP0E SPC  3 

EMPLEABÜ* E SPC  3  " ,  1 NT  < < T 1 -TS3/60 3 

2205  IF J>RTHENR=J 

2206  PR I NT" C RED ] E 2CRSRB ] EL  E SPC 1 RECOR 
D  C  SPC 3  ES  E  SPC 1 " , R 

2207  PR I NT “ E  BLK  3  E 2CRSRD  3  TU  E  SPC  3 PUNTU 
ACIÜNESPC3ES" i J 

2208  I NPIJT  "  C  2CRSRD  3  QU I  ERE  C  SPC  J  JU0RR  C  SPC  3 
(S/N3 " ; Sí 

2209  IFS$=,,N"fHENG0TÜ221 1 

2210  GOTO 13 

2211  ENIl 

3000  PR I NT " C CLR 3 C 2CRSRBJ E RVSON 3EREB3 
LADRONES E  SPC  3  V  E SPC  3  PÜL I C I RS " 

30 10  PR I NT " [ 3CRSRD 3 [ 3CRSRR 3 HUEVE E  SPC  3 
RL  C  SPC  3  LADRON  C  SPC  3  CON " 

3020  PR I NT " C  CRSRD  3 ' T ' PRRR  C  SPC  3  RRR I B H 

3030  PRINT" CCRSRD3 'F' [SPC3PRRRCSPC3I 
ZQUIERBR" 

3040  PR I NT “ C CRSRB 3 " V ' PARRE SPC 3 RBR JO " 

3050  PR I NT " E  CRSRB  3 ' 0 ' PRRR  E  SPC  3  BERECH 
R" 

3060  PRINT" E 2CRSRB 3 PROCURA E SPC 3 CO JER 
E  SPC  3  TOBOS  E  SPC  3  LOS  E  SPC  3  BOT I  NES  E  SPC  3  S 
I N  E  SPC  3  CHOCARTE  E  SPC  3  CON  E  SPC  3  LAS  E  SPC  3 
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El  programa  que  os  envío  es  una  versión  del  conocido  juego 
del,  AHORCADO,  la  idea  la  cogí  de  un  programa  de 
televisión  que  se  llama  “Leo  contra  todos”,  que  ponen  los 
jueves  por  la  tarde.  El  juego  es  para  dos  jugadores,  uno  mete 
una  palabra  y  el  otro  tiene  que  adivinarla  diciendo  letras,  con 
el  problema  de  que  si  fallas  o  agotas  el  tiempo  establecido  se 
dibuja  un  nuevo  trazo  del  ahorcado.  En  total  son  nueve 
intentos  erróneos  al  final  de  los  cuales  el  programa  te  dice  la 
palabra  a  adivinar  y  el  juego  finaliza. 

Para  el  dibujo  de  la  horca  y  del  ahorcado  he  utilizado  variables 
que  son  cadenas  de  espacios  blancos  inversos,  es  decir  que  no 
he  utilizado  para  nada  la  memoria  de  pantalla  ni  la  memoria 
de  color. 


5  PRINT"  £CLR3  "  ■  PCIK.E5328 1,6:  PQKE53280 

,6 

6  GOTO 1000 

10  F»2: 05:  GOSUB  10000: INPUT" ESCRIBE CSPC3 
UNR£SPC JPHLHBRfi"  ¡  Hí 

12  PR I NT " £  CRSRU  3  £  43SPC  ] " 

15  DIW»<30>  :DIMP#<30)  :L2-1 
20  FORN* 1 TQLEN  <  ) 

30  H*(N)»MID*(H*,N,  1) 

40  NEXTN 

50  PRINT” C CRSRU 3 " 


80  NEXTK 
90  I-LENCHÍ) 

1 00  F-6  ;  03 :  GOSUB 1 0000  :  PR  I NT ” ESCR I BE 
£SPC3UNH£SPC3LETRfi" 

110  Eí* " £  WHT  3  £ R VSON 3 C 30SPC 3 " 

120  PRINT" £10CRSRU3",E* 

130  V*30 
140  V*V-1 

1 50  I FV» 1 THEHPR I NT " £  CRSRU  3  T I EMPÜ  £ SPC  3 
AGOTADO"  :  F0RN*1  TO 1000:  NEXTN :  IFP-9THE 
N2000 

155  IFV*1  THENV*30 :  PR I NT "  [ HOtl 3  C  1 9SPC 3 
"  P-P+l : GÜTO2000 

160  PRINT"! CRSRU  3 " THB ( V  > ; CHRf ( 32  3 

170  F0RW“1 TO250 : NEXT  W 

180  GETB*: IFB**""THEN200 

190  L2*L2+1 :GOTO210 

200  GOTO 140 

210  IF  P1>0  THEN  320 

230  FORL=0TOLEN(R*> 

240  IFB»»H*(L)THENI»I-1 : IND-1 :P1-P1+ 

1 :P»(P1>»B*:GOTO280 

250  NEXTL : IFIND=8THENP"P+1 : GOTO2000 

255  IND-0 

260  F«18 :C*L2: GOSUB 10000 : PRINTB* : IFP 
■9THENPR I NT " LO  C  SPC3S I ENTO " : GOTO500 
270  GOTO100 

280  F«4 : OL : GOSUB 10000 : PRINTBí ; IFI»0 

THEN310 

290  GOTO250 

310  PRINT" C4CRSRD3 "TflB( 11) "MUVCSPC3B 

I  EN  "  :  PR  I NTTFIB  <  6  )  "  [  CRSRIl  3  LO  C  SPC  3  HFIS  [  SPC  3 

ENCONTRADO"  END 

320  FOR  F0“1  TO  P1 

330  IF  Bí«P*<FO)  THEN  260 

340  NEXT  FO : GOTO  230 

500  PR I NT " C  CRSRD  3  LH  C  SPC  3  PHLRBRR [ SPC  3 
ERR"  :  PRI NTTFIB C 16)  1  Ht  ■'  END 
1000  PRINTTPBC 10) "ECSPC3LC3SPC3FICSPC3 
HCSPC30CSPC3RC  SPC  3  C  C  SPC  3HCSPC3D! SPC  3 
0CSPC3 " 

1010  FORN* 1 TO2000 : NEXT : PR I NTTHB  C 1 0 ) " 
CCRSRU3  C23SPC3 " 

1015  S$" " ! WHT  3  C  RVSON 3 ! 8SPC  3 " 

1020  PRINT" C3CRSRD3"TAB<25)S* 

1030  PR I NTTHB < 25) " [WHT 3 C RVSON 3 !C0MMH3 

1035  PR I NT " C  3CRSRU  3 " 

1040  L«L+1 

1050  PR I NTTHB < 33)" [WHT 3 [RVSON 3 CSPC 3" 

1060  IFL*16THEN10S0 
1070  GOTO 1040 

1080  E J- " [ BLK 3 [ RVSON  3  £  1 3SPC 3 [ WHT  3 " 

1090  H-26 
1100  H-H-l 
1110  PRINTTHBCH)E» 

1120  IFH-21THEN10 
1130  ÜÜTO1100 

20Ü0  ONPGOTO2050 ,2150, 2250 , 2350 , 2450 

,2550,2650,2750,2850 

2050  PRINT" [3CRSRD3" 

2100  F0RX*1TQ2 

2 1 1 0  PR I NT  THB  <  25 ) " £  WHT  3  £  R VSON  3  £  2SPC  3 

2120  NEXTX ¡ GOTO260 
2150  PRINT" [5CRSRD3 " 

2200  PR I NTTHB  <  24 ) " í BLK  3  £  RVSON  3 [ 4C0MHU  3 

[WHT3  "  •'  OOTO260 

2250  PRINT" [6CRSRD3 " 

2300  F0RX-1T04 

2310  PR I NT  THB ( 25 ) " £  WHT  3  £  R VSON  3  £ 2SPC  3 

2320  NEXT : GQTÜ260 
2350  PRINT" [6CRSRD3 " 

2400  F0RX-1T04 

2410  PR I NTTHB  < 24 ) " £ WHT  3  £  RVSON  3  £  COMML 3 


60  FORO  1 TÜLEN  <  H* . 
70  PRINTTHBÍ 1 ) "-" , 


2420  NEXTX :QOT 0260 


2500  F0RX-1T04 

2510  PR I NTTHB  <  27  3 " C  WHT I [  RVSON ] C  COMM  J ] 

2320  NEXTX : GUTO260 
2550  PR I NT " t 1 0CRSRD 3 " 

2600  F0RX-1T03 

2610  PR I NTTfiB ( 25 3  "  [  WH TI  í RVSON 1 1  COMML 3 

2620  NEXTX ■ GOTO260 
2650  PR I NT " [ 1 0CRSRD J " 

2700  F0RX-1T03 

2710  PRINTTHBC263 " [ WHT J [RVSON J [COMMJ] 

2720  NEXTX  '•  ÜQTO260 
2730  PRINT" [ 13CRSRD] " 

2800  PR  I NTTAB  (  24  3  "  [  BLK  3  [  RVSON  ]  C  COMMO  3 

[WHT 3" : GOTQ260 

2830  PR I NT " [ 1 3CRSRD3 " 

2900  PR I NTTHB  <  27  3 " [ BLK  H  RVSON  3 [ COMMO  3 
CWHT3 " ; GÜTÜ260 

10080  P0K.E781 .  F  :  PQKE782,  C ¡  P0KE783,  0 ¡ 
SVS63520 : RETURN 


Pesca  submarina 


Javier  Martínez  Keches 

Carretera  Vella,  6-8,  At9  3a 

VIC-20 

Monteada  Reixac  (Barcelona) 

Es  una  divertida  aventura  submarina,  atractiva  por  la  alta 
resolución  de  los  caracteres  y  la  combinación  de  sonidos  y  colores. 
Al  ejecutar  el  programa  aparece  un  mensaje  de  presentación 
durante  unos  segundos  (mientras  son  copiados  los  nuevos 
caracteres),  seguido  del  cual  aparece  en  la  pantalla  un 
submarinista  bastante  bien  definido  ya  que  ocupa  una 
extensión  de  once  caracteres.  Además  del  submarinista 
aparecen  peces  y  erizos.  Tu  misión  es  dirigir  al  submarinista 
entre  las  diversas  grutas  submarinas  que  irán  apareciendo  al 
azar  (hay  hasta  7  cuevas  diferentes)  evitando  chocar  con  los 
erizos  y  con  las  grutas.  Cuando  una  parte  delantera  del 
submarinista  choca  con  algo  que  no  sea  un  pez  la  pantalla 
cambia  de  color  y  te  informa  de  los  puntos  que  llevas 
obtenidos  hasta  el  momento.  Los  puntos  los  obtienes  por  cada 
erizo  o  pez  alcanzado  por  su  fusil  submarino.  Puedes  chocar 
hasta  3  veces. 

Los  mandos  del  submarino  son: 

Fl:  arriba.  F7:  abajo.  ESPACIO:  arpón. 

¡Buena  pesca!  Y  hasta  pronto. 


1  REM  PESCA  SUBMARINA* JAVIER  MARTI NE 
Z 

25  PRINT" [CLR3C RVSON 3 [ 3SPC 3 PESCA [ 2SPC 3 
SUBMAR I NA [ 3SPC 3 [ RVSÜFF 3 " 

50  PÜKE52 , 28 : P0KE56 ,28: CLR 
55  FÜRX*7 1 68T07679 : PÜKEX, PEEKCX+2560 
0)  NEXTX 

57  POKE36869, 255 

60  F0RL=7168T072?9 : REHDU : POKEL , D = NEX 
TL 

69  I =7680 : U*368?b ■ 8-36877 : E=36878 : SU 

=3 

70  PÜKEE ,15: PÜKE36879 , 1 1 0 : PR I NT " [ CLR  3 
CH0M3" 

90  X»6 : V* 1 1 

95  F0RBÜ=1TÜ15 

96  BU= INT < RNB < 1 3 *2 1 3  + 1 : BA= I NT ( RND < 1 > 
*213+1 

97  POKE I  + «.  <  22*BU  3 +BA  ) ,  1 3 

98  POKE38400+ t ( 22+BU ) +BH > , 5 

99  NEXTBO 

100  FORJO=1TÜ10 

101  JU»INT<RND< 13*213+1 : J8=INT<RND<1 
3*213+1 

102  PüKEI+<(22*JUz+JH), 12 

1 03  POKE38400+ i í 22* JU 3 + J A ) , 3 
105  NEX T JO 

115  GETR* 

117  IFA*=>,,CF13"THENR=3 
120  I FA$* " C  F7  3 " THENR*5 
123  IFA*= " [ SPC  3 " THEN5Ü0 

130  POKEU, 1 40 : POKE I +X+22*Y , 32 

131  POKE I +X- 1 +22* Y , 32 

132  POKE I +X-2+22*Y , 32 

133  PÜKEI+X-3+22*Y, 32 

134  POKE I +X-4+22* V , 32 

1 35  POKE I +X-5+22* Y , 32 

136  P0KEI+(X-1)+22*(V-1), 32: POKEU, 15 
0 

137  P0KEI+(X-2)+22*í V-l > , 32 

138  POKEI +< X-3) +22* ÍV- 13,32 

1 39  POKE 1  +  < X-4 3 +22* < V- 1 3 , 32 : POKE I  +  <  X 
-5  3  +22* ( Y- 1 3 , 32 : X=X+ 1 :ROKEU,0 

141  I FPEEK  <  I +X- 1  +22* V  3  - 1 1 ORPEEK  C I +X- 
1 +22* V  3 ■ 12THENSU*SU- 1 : GOTO  1 000 

142  I FPEEK (I +X+22* V 3 ■ 1 1 ORPEEK ( I +X+22 
#Y 1 * 1 2THENSU=SU~ 1 : OOTO 1000 

143  I FPEEK (I +X- 1 +22* ( V- 1 3 3 * 1 1 ORPEEK ( 

I +X- 1 +22*  C V- 1 3  3 ■ 1 2THENSU=SU- 1 : DOTO 1 0 
00 

144  IFR-3THENV-V-1 

145  I FR“5THENV=V+ 1 

1 46  I FX=28THENX=b • GÜTO800 

147  I FY=2 1 THENY=20 

148  IFY=0THENV=1 

149  I  FPEEK  (I  +X-2+22*  <Y- 1 3  3  - 1 1  THENSU= 
SU- 1 : GOTO 1000 

150  P0KEI+X+22*Y, 16 

151  POKE I+X- 1+22* Y, 9 

152  POKE I +X-2+22* Y , 8 

153  POKE I +X-3+22*Y , 7 

154  PÜKEI+X-4+22*Y, 6 

155  POKE I +X-5+22* Y , 5 

1 56  POKE I  +  (X- 1 3  +22*  C  Y-l 3 , 4 

157  POKE I  +  ( X-2  3  +22*  <  Y- 1 3 , 3 
153  POKE I  +  C  X-3  3  +22* < Y-l 3,2 

159  POKE  I  +  (  X-4  3  +22*  í  V— 13, 1 

160  POKE I+CX-53+22*< Y-l 3,0 

165  I  FPEEK <  I  +X+22*V  3*11  THENSU=«SU- 1 : 0 
OTO 1000 

1 66  I FPEEK < I+X-l +22*  CV-1 >  3=11 THENSU- 
SU-1 : GOTO 1000 

170  G0T0113 

500  J=X : P0KEI+J+1 +22*Y, 32 

505  F0RK=15T01STEP-1 :J=J+1 

506  POKEA , 250 : PÜKEE , K 

508  I  FPEEK <  1  +  J+22*Y  3*11  THENPOKEE ,  15: 
GÜTO550 

509  I FPEEK  <1 + J+22*Y  3 = 1 30RPEEK < I + J+22 


I  Commodore  World 


ESPECIAL  PROGRAMAS 


*V >  *  1 2THENPQKEE, 1 5 ■ GÜTÚ580 
510  POKE I + J +22*V  , 45 
515  P0KEI+J+22*V,32 
520  NEXTK 

525  POKER,  0 :  POKEE,  15  ■  GOTOl 15 

550  PÜKE I + <  J- 1 ) +22# V , 32 

551  PÚKEU , 235 

552  FURT=1 TÜ50 • NEXTT : POKEU,  0 ¡ POKER, 0 

553  G0T0115 

580  POKEU, 200 

58 1  POKE I + í  J- 1 >  +22* V , 32 

582  POKE I + J +22* V , 32 
585  FORT^l TÜ100 : NEXTT 

590  POKEU, 0 : PUN*PUN+10 ¡ POKER, 0 : OOTOl 
15 

800  0K-INT<NND<1>*7>+1 

801  IFUK=2THEN70 

802  IFOK=1THEH810 

803  IFOK=3THEM830 

804  I F0K=4THEN840 

805  I FOK=5THEN8?0 
808  IFOK-6THEN880 
807  IFQK-7THEN890 

810  PR I  NT  "ECLR3E  RED  .1 KK  E  CRSRD  3  KK  [  CRSRD3 
KK  [  CRSRD3  KK  C  CRSRU  3  KKKK  E  CR8RD  3  KK  [  CRSRD  3 
KKKKKK [ CRSRU  3  KK " 

820  PR I  NT " E 1 7CRSRD 3  KK  1 CRSRU 3  KK C  CRSRU  3 
KKKK C  CRSRB3KKK £ CRSRU  3  KK  t  CRSRU  3 K C  CRSRD  3 
KKKKK  C  CRSRU  3  KKk " • U0T095 
830  PR I NT " [ CLR  3  £  WH  T  3  K  £ CRSRD  3 K K  £  CRSRD  3 
K £  CRSRD 3  K  £  CRSRD  3 KK  £  CRSRD 3  K £  CRSRD  3  KKK 
£  CRSRU  3  KK  £  CRSRD 3  KK  £  CRSRU  3  K  £  CRSRD  3  K £  CRSRU  3 
KK  £  CRSRD  3  K £  CRSRU  3  KK " 

835  PR 1 NT " E 9CRSRD 3  K E  CRSRU  3  K  E  CRSRU  3  K  £  CRSRU  3 
KKK  £  CRSRD  3  KKK  £  CRSRU  3  KK  £  CRSRU  3  KK  £  CRSRD  3 
KKK  £  CRSRU  3  K  £  CRSRU  3  K.  £  CRSRD  3  KK  £  CRSRU  3  K 
K" : GUT095 

840  PR I NT " E  CLR  3  £  CVN 3  k £  CRSRD 3  KK £  CRSRD 3 
KK  £  CRSRD 3 KKKK £  CRSRD  3  KKKK  £  CRSRD  3  K  £  CRSRD 3 
K  E  CRSRD  3 KKK  £  CRSRU  3  K  £  CRSRU 3  K  £  CRSRD  3  K " 

845  PRINT"  E  1 3CRSRD  3  KK  KKKK  £  CRSRU  3  KKK  £  CRSRU  3 
k £  CRSRU 3  K C CRSRU  3  K C  CRSRU 3 K £  CRSRU  3  K  E CRSRD 3 
K  £  CRSRU 3  KKK  E  CRSRU  3 K E CRSRU  3 KKK " : G0T09 
5 

870  PR  I  NT 11  £  CLR  3  £  PUR  3  KK  £  CRSRD  3  KK  £  CRSRD  3 
KK  £  CRSRD  3 K £  CRSRD  3 K £  CRSRD 1 K E CRSRD  3 KK  £  CRSRD  3 
K  E  CRSRD  3 KK  E  CRSRD  3 K £  CRSRD3KKK £  CRSRD 3 K 
£  CRSRU 3  K  £  CRSkU 3  K £  CRSRU  3  K " 

875  PRINT" £1 0CRSRD 3 KKK £  CRSRU 3 K  £  CRSRU  3 
K £  CRSRU  3  KK  E  CRSRD  3  K E CRSRD 3  K  £  CRSRU 3  K £  CRSRU  3 
K £  CRSRD  3 K £  CRSRU  3 K £ CRSRU 3 KKKK I CRSRU  3 K 
K £ CRSRD 3 KKK" • G0T095 
880  PR 1  NT " £  CLR  3  £ GRN 3  £  CRSRD  3  K  £  CRSRD  3  K 
£  CRSRD  3  K  £  CRSRD  3  K  £  CRSRD 3  K E  CRSRD  3  K  £  CRSRD  3 
K  £  CRSRD 3  K  C  CRSRD  3  KKK  £  CRSRU3K £  CRSRU  3  K  E  CRSRD 3 
KKK £  CRSRD  3  K  £ CRSRD 3  K  £  CRSRD  3  K  £  CRSRU  3  K  £  CRSRU  3 
KECRSRU3K" 

885  PR I  NT “ E 1 4CRSRD 3  K  £  CRSRU  3  K  £  CRSRU  3  K 

KK  £  CRSRU 3  K  £  CRSRU  3  K  £  CRSRU J  KK £  CRSRU3K £  CRSRD 3 

K  £  CRSRD 3 K £ CRSRU  3 KKK £ CRSRU J  K  £  CRSRU  3  K  £  CRSRD  3 

K  £  CRSRD  3  KK  E CRSRU  3  KK " : GU  I  095 

898  PR I NT" f  CLR  3  E  VEL 3 K f CRbRD  3 K  £  CRSRD  3 

K £  CRSRD 3 K £  CRSRD  3  K £  CRSRD  3  K £  CRSRD 3  £  CRSRL 3 

KK £ CRSRU 3 KKK E  CRSRD 3 K E  CRSRD  3 K £  CRSRD  ] K 

KKK  £  CRSRU  3  KKK f  CRSRD  3 KK " 

895  PR I NT " E 1 4CRSRD  3 K C  CRSRU  3  K £  CRSRU 3  K 
£ CRSRU  3 K £ CRSRU 3  KKK £ CRSRD  1 K £ CRSRD  3  KK  E  CRSRU  3 
KKKK £  CRSRU 3  K £  CRSRD 3KKK £  CRSRU 3 K £  CRSRD  3 
KKE CRSRU 3KE CRSRU 3K"  •'  GÜTÜ95 

1 000  PQKE36879 ,61 : PÚKE36374 , 1 80 : PR I N 
T" EH011J  EBLU3 £  1 0CRSRD  J  E  6CRSRR  3  PUNTOS : 

"PUN 

1001  FORT* 1 TO3000 • NEXT ■ PüKE3b874 ,01 
FSU=0THENEND 

1002  GOTO70 

20000  DATftó, 0,0/0, 0,0,0, 15,0,0,0,0,0 


0-0, 192,225 

2000 1  DR1R0 , 0 , 0, 0, 0 , 0, 240 
84, 143,31,48,64, 128,255, 1! 
,0,0,0 

20002  Dfil «255,255, 255, 255, 
255 ,255,255, 255 ,255,3,1,0, 
4.255,130, 176 

20003  BHTH224 ,192,0,0,0, 21 


El  juego  consiste  en  ir  retirando  fichas  de  varios  montones,  de 
manera  que  en  cada  jugada  es  posible  tomar  una,  dos  o  incluso 
todas  las  de  uno  de  ellos.  Gana  el  jugador  que  retira  la/s 
última/s  ficha/s. 

El  armazón  del  programa  lo  forman  unas  pocas  instrucciones 
más. 

Los  dibujos  se  realizan  con  gráficos  de  baja  resolución 
(figura  2). 

El  resto  de  líneas  son  el  adorno  de  todo  programa  que,  como 
éste,  pretenda  ser  lúdico. 

Las  instrucciones  50-70  y  la  subrutina  10100  definen  valores 
que  se  mantienen  constantes  a  lo  largo  del  programa  para 
determinadas  variables  basic  destinadas  a  rótulos,  sonidos 
musicales,  colores,  posicionamiento  en  pantalla,  etc. 

Las  instrucciones  entre  la  100  y  la  240  están  destinadas  a 
visualizar  el  rótulo  de  presentación  deslizándolo  de  abajo  hacia 
arriba  dividiendo  cada  línea  en  dos  partes,  cada  una  de  un 
color,  y  produciendo  simultáneamente  una  música  aleatoria 
restringida  a  7  notas. 

Una  vez  valorada  la  posición  que  deja  el  jugador,  se  emite  un 
soniauete  distinto  en  función  de  que  la  jugada  realizada  por  el 
jugador  sea  buena  y  capaz  de  conducirle  a  la  victoria  (líneas  de 
programa  1 100-1 140).  El  sonido  será  otro  más  corto  si  no  se 
produce  la  condición  necesaria  pero  no  suficiente  señalada  en 
el  punto  anterior  (líneas  910-850) 


Al  finalizar  el  juego  se  repiten  las  melodías  a  las  que  se  refiere 
el  párrafo  anterior  interpretando  una  u  otra  en  función  del 
resultado  de  la  partida.  Podría  y  debería  haberse  empleado 
para  este  fin  sendas  subrutinas,  pero  la  sencillez  de  las 
instrucciones  hacía  más  fácil  su  duplicación. 

Para  seguir  el  programa  es  aconsejable  tener  a  la  vista  el 
siguiente  cuadro  de  variables: 

SONIDO 

FO  Forma  de  onda 

AF(I)  Alta  frecuencia  nota  I 

BF(I)  Baja  frecuencia  nota  I 

ROTULO 

L$(I)  Contenido  línea  I  del  rótulo.  Hay  nueve  líneas. 

POS1CIONAMIENTO 

HT$  Horizontal 

VT$  Vertical.  Este  se  utiliza  poco  al  ser  más  eficiente  el 
empleo  de  TAB 

COLORES 

CL$  Gama  de  colores  utilizados  (6). 

OC$  Color  para  la  segunda  parte  de  las  dos  en  que  se 
divide  cada  línea  del  rótulo  de  presentación. 

JUEGO 

BIT  Orden  del  bit  examinado  (0, 1,2,3) 

ESTADO  Valor  del  bit  examinado  (0,1) 

SJ  Interruptor  de  juego.  Toma  el  valor  1  si  juega  la 

máquina,  0  si  corresponde  jugar  al  operador. 
COMUNICACION  CON  OPERADOR 
RES  Respuestas  del  operador  en  sentencias  INPUT. 

K$  Tecla  pulsada  por  operador  cuando  está 

ejecutándose  una  sentencia  GET. 

CONTADORES  DE  BUCLES,  MONTONES,  POSICIONES, 
ETC. 

1,  J,  K,  L,  M,  sin  que  tengan  una  utilización  constante  a  lo 
largo  del  programa. 

El  número  de  posiciones  iniciales  distintas  es  de 

2.  164  =  131.072. 


10  DEF  FN  NB'1X3»( (2TXANDF<  13)  -K21XA 
NDFC23  3  +  < 2 TXANDF (333  +  (2fXANDF<43 

33ZÍ2TX3 

20  DEF  FN  PB(X3»  FN  NB(X 3-2*1 NT (<FN 
NBOO  V2> 

30  DEF  FN  VJ<X>-  FN  PB<03  OR  FN  PB<1 
3  OR  FN  PB(23  OR  FN  PB<33 
50  VTí* " [  40CRSRR 3 " 

60  HT** " C  HQM ] í 25CRSRD  3 " 

70  CL#*" CBLK3  CWHT3 [PUR3 [GRN3 [VEL3 " • T 
I *■ " 000000 " • GOSUB  10100 
100  PRINT" [CLR3 " : FOR  1-23  TO  -9  STEP 
-1 

110  FOR  J-0TO10 

120  IF((J+IK1)ÜR<CJ+I»24)THEN  230 

130  PRINTLEFT*(HT*, J+I >J 

140  K-INT < < 1+LEN(L#<  J 3 ) )#RND<0) ) 

150  PRINTMID*<CL**RND(03*5+1* 13i 
160  0C**  MID#(CL**RND(03*5+1 * 1 ) 

170  PRINTLEFT*(L*(J3,K3  0C#MID*(L#(J 
>*K+1*403 

160  N-INT(1+7*RND<033 
190  POKE  54276*  FÜ 

200  POKE  54273*  AFCN3 : POKE  54272* BFCN 


210  POKE  54276, F0-1 

220  PRINT  LEFT # ( HT#  *  24  3 " C  RVSON  3 " STR# 

( 48- VAL  <  T 1 # 3 3  +  "  C  SPC  3 1 RVSOFF  ]"* 

230  NEXT  J,I 
240  PRINT" CBLK] " 

400  FOR  J=1  TO  4 : F< J3-1+INT ( 15¡#RND(0 
3  )  '  NEXTJ 

300  PRINT" CCLR3 [CRSRD3ELCSPC3JUEGOCSPC3 
LO [ SPC  3  GANA [ SPC 3  QU I EN [ SPC  3  QU I TR  C  SPC  3 
LR  f  SPC  3  ULT I MR  f  2SPC  3  F I CHR . " 

510  PR I NT " C  CRSRD  3 PUEDEN C SPC 3 QUITARSE 


í SPC  3 UNA [ SPC  3  VRR I RS  C  SPC  3  0  C SPC  3  TODAS  C SPC  3 
LAS  [  2SPC  3  F I  CHAS  C  SPC  3  DE  í  SPC  3  UN  í  SPC  3  M0 
NTON.  " 

520  PR I NT " [ CRSRD 3 DEBE C SPC 3ELEGI R [ SPC3 
TURNO  C  SPC  3  DE  í SPC  3  JUEGO  C SPC  3  PARA [ SPC  3 
EMPEZAR  L  SPC  3UDCSPC30L  SPC  3  LA  [  SPC  3  MRQU 
INR.  " 

530  PR I  NT " C  CRSRD 3 LOS C SPC 3 MONTONES [ SPC 3 
SE  C  SPC  3  GENERAN [ SPC  3  RLE ATQR I AMENTE . " 

540  PR I NT " C  CRSRD  3 PARA 1 SPC  3  JUGAR C2SPC3 
DEBE  C  SPC  3 1 ND I  CAR [ 2SPC  3  EL  C  SPC  3  NUMERO  C  2SPC 3 
DE  f  SPC  3  MONTON  l  SPC  3  DEL  [  SPC  3  QUE  í  SPC  3  QU 
IERECSPC3RETI "  J 

550  PR I NT " R RR [ 2SPC  3  F I CHAS  C  SPC  3  V [ SPC  3 
EL [ SPC  3  NUMERO C SPC  3  DE [ SPC  3  ESTRS . " 

560  PR I  NT " [ CRSRD 3 QUE C SPC 3  TENOR [ SPC 3 S 
UERTE [ SPC  3  Vf  SPC  3  QUE  t SPC  3  APRENDA [ SPC  3 
PRONTO [ SPC 3 R[ SPC 3 SER CSPC 3 EL [SPC 3 GANA 
DÜR.  " 

570  PR I NT " [ 4CRSRD 3 [ WHT  3  PARA [ SPC  3  COHT 
I NIJRR  [  SPC  3  PULSAR  C  SPC  3  UNA  [  SPC  3  TECLA  " 

580  GET  K*  IF  " " THEN  580 
590  PRINT" CCLR3CWHT3" 

600  PR INTLEFT*  <  HT*  *  23  > " C  BLK  3  QU I EN [ SPC  3 
JUEGA  C  SPC  3  PR I MERO [ SPC  3  MAQU I  NA/HUMANO 
" •  INPUT  RE* 

610  IF  RE$- "HUMANO" THEN  SJ"0 : GOTO  70 
0 

620  IF  RE*» "MAQUINA "THEN  SJ-UGOTO  7 
00 

600  PR I NTLEFT* ( HT* , 20  > " RESPUESTA [ SPC  3 
NO  C  SPC  3 VAL  IDA : [ SPC  3  MAQU I NAZHUMANO " 

640  FORI»1TO1000 : NEXTI : GOTO600 
700  PRINT  " [ CL.R 3 C BLK 3 f CRSRD 3"LEFT*CV 
T», 16) " [RVS0N3 [SPC3*[SPC3NIM[SPC3*[SPC3 
[ RVSOFF 3 "LEFT* < HT* *  203  ; 

710  PRINT  "CWHT 3 "TAB(3> " LOCOMMI 3 " 1AB 
( 133 " C3C0MMI 3 "TABC233 " C3C0MMI 3 "TABC3 
33  "C3C0MMI 3" 

720  PRINT"  I  CRSRD3  CBLK3 "TAB(33F( 1 3  TH 
Bfl33F<2>  TAB<233F<33  TAB<333F(43 
730  FOR  J-l  TO  4 : IF  F(J3»0  THEN  770 
740  FOR  1*1  TO  F( J) 

750  PRINT  LEFT*CHT**  20-1 3 SPC í 4+10* (J 
-13  3LEFT*(CLS, J) " CSHIFTQ3 " 

760  NEXT  I 
770  NEXT  J 
800  IF  SJ-1THEN  900 

810  PR I NTLEFT* ( HT*  *  23 3 " DE [ SPC 3 DONDE [ SPC  3 
QUITASCSPCJFICHASCSPC] C 1*2*3*43  C2SPC3 
" : INPUT  RE* 

820  IF  LEFT*(RE** 13C"1"0R  LEFTíCRE** 

1 3>"4"THEN  810 

830  J*VAL(RE»3 ¡ IF  FCJ3<1THEN  PRINTLE 
F  T*  <  HT*  *  23  3  "  NO  L'  SPC  3  HHV  [  SPC  3  F I  CHAS  C 1 0SPC  3 
" = G0T0836 

840  PR I NTLEFT* ( HT* *  23 3 " CUANTAS C2SPC3 
QUITASC 13SPC3 " : INPUT  RE* 

850  I FRE*< "  1 " THENPR I NTLEFT* HT# *  23 3  " 

HAV [ SPC  3  QUE  CSPC3QUITARCSPC3ALCSPC3ME 

NOS  C  SPC  3  UNA  C7SPC3 " : GOTO  895 

860  IF  VAL  < RE#  3  >F ( J  3  THENPR I NTLEFT  *  <  H 

T#*  233"NOCSPC3HAV[SPC3TANTAS[SPC3ENCSPC3 

MONTON"  J : GOTO  895 

870  F(J3»F(J3 -VAL ( RE* > 

880  IF  <F< 1 3  OR  FC230R  F<33  OR  F(43 

3  -  0  THEN  1300 

890  SJ"1-SJ : GOTO  700 

893  FOR  K»1T0  500: NEXT  K:G0T0  840 

896  FOR  K-1T0  500 : NEXT  K:Q0T0  810 

900  IF  FN  VJ<03»0  THEN  1100 

910  BIT*3: F0RJ*1 T02 : FÜRI*1T02 

920  POKE  54276* FO 

930  POKE  54273 *  AF < I 3 : POKE  34272* BF(I 
3 

940  POKE  34276 *FO-l 

930  NEXTI :F0RI*1T0256:NEXTI* J 

960  IF  FN  PB(BIT3*0THEN  BIT-BIT-1  •’ 00 

TO960 

970  J»1 
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980  IF<FCJ>AND2tBIT>«0  THEN  J»J+1¡G0 
70980 

990  PC J)»(F( JiANDC 15-2tBIT) ) 

10W0  IF  BIT  <"0  THEN  880 
1010  BIT-BIT-1 ¡IF  FN  PBCBIT>"0THEN10 
00 

1020  ESTAD0»F( JJRNDC2TBIT)  ¡  IF  ESTHDO 
-0  THEN  F(J)"(F(J)0R(2TBIT) 3 >  GOTO  1 
000 

1030  GOTO  990 

1100  FORK=0TO1 ¡FOR  L-1T05 ¡ J-flBSCL-K* 

5)  +  l 

1110  POKE  54276/ FO 

1120  POKE  54273/  FIFÍ  J)  POKE  54272/  BFC 
J) 

1130  POKE  54276/ FO-1  F0RI»1T0  32 
1140  NEXT  I/L/K 

1200  J»INT<  1+4ÍRNDC0) )  ;  IF  F<  JXITHEN 
1100 

1210  F<  J )■ I NT  C RND '■  GOTO  880 

1300  IF  SJ»0  THEN  1380 

1310  PRINT  HTí " JUEGO [ SPC JVC SPC ] G8N0 " 

1320  FQRJ»1T05 • F0RI»1T02 
1330  POKE  54276/ FO 

1340  POKE  54273 ,  HF(  I)  :  POKE  54272, BFC 

I) 

1350  POKE  54276/ FO-1 

1360  NEXTI : FOR I ■ 1 T0256 ; NEXT I  ,  J 

1370  GOTO  1440 

1380  PRINT  HTÍ "NOCSPCTESTACSPCTMRLCSPC] 

.  . .  C  2SPC ] HRS  C  2SPC ] GHNFlDO C SPC 3  " 

1390  FOR  M®1  TO  4 • FORK»0TO1 ; FOR  L-1T 
05 : J»HBS<K45-L)+1 
1400  POKE  54276/ FO 

1410  POKE  34273, RFC J> ¡POKE  54272/BFC 

J) 

.1420  POKE  54276/ FO-1 ¡ FOR I-1T032 
1430  NEXT  I/L/K/M 

1440  I NPOT " DESER [ SPC ]  JUGRR [ SPC ] OTRA [ SPC  3 

VE2CSPCIS/N" / REÍ 

1450  IF  REÍ» "S" THEN  400 

1460  IF  REí»"N"THEN  END 

1470  GOTO  1440 

9999  STOP 

10100  Lí  C0>»"  1 4SPCK2SHIFTQK7SPCK2SHIFTQ] 
C  4SPC  K  2SH I FTQ  K  4SPC  K  2SH I FTQ  K 6SPC  3 
C2SHIFT0] " 

1 0 1 20  Lí  <1 ) ■ " [  4SPC ] C  3SH I FTQ  H bSPC  3 [  2SH I  FTQ] 
[  4SPC  K  28H I  FTQ  K4SPCK3SH  IFTQK  4SPC  3 
C3SHIFTQ] " 

10140  Lí (2 ) ■  "  1 4SPC 3  C 4SH IFTQK 58PC 3  C 2SH IFTQ  ] 
[ 4SPC ] C  2SH I FTQ  J  C 4SPC  ] C  48H I FTQ  K  2SPC ] 

[4SH  IFTQK 

10160  Lí  <  3 )  •» "  [  4SPC  ]  1 2SH  IFTQK  SPC  3  C  2S'H  I  FTQ] 

1 4SPC  K2SH  IFTQK  4SPC  K2SHIFTQK  4SPC  3 
í  2SH  IFTQK  SPC  I C  4SH  IFTQK  SPC  ]  [  2SHI  FTQ] 

10180  L*C4)-"[4SPCK2SHIFTQK2SPCK2SHIFTQJ 
C3SPCK2SH  IFTQK  4SPCK2SHIFTQK4SPCD 
[  2SH I  FTQK  2SPCK  2SH I  FTQK  2SPCK2SH  IFTQ] 

10200  Lí C51«" I4SPCK2SH IFTQK 3SPCK2SHI FTQ] 
L2SPCK2SHIFTQK4SPC]  I2SHIFTQK4SPC] 

I 2SH I FTP ] [ 6SPC ] I 2SH I FTQ ] " 

1 0220  Lí  <  6 ) ■ " [ 4SPC ] C  2SH I FTQK  5SPC ] C  4SH I FTQ ] 
C4SPCK2SHIFTQ]  C4SPCK2SHIFTQ]  C6SPC] 
I2SHIFTQ]  " 

10240  Lí C7)«"  I4SPCJ  L2SHIFTQK6SPC3  C3SHIFTQ] 
C  4SPC ] [ 2SH I FTQ  K  4SPC  3 1 2SH I FTQ ] C  6SPC ] 
C2SHIFTQ]" 

10260  Lí C 8 ) ■ " 1 4SPC ] C 2SH I FTQK 7SPC K2SHIFTQ] 
C  4SPC  K  2SH I FTQ  K  4SPC  K  2SH I FTQ  K  6SPC ] 
C2SHIFTQ] " 

10280  LíC9)»"C35SPC]" 

10300  FOR  W  >=54272  TO  54296  ¡  POKEW/  0  ¡  N 
EXT 

10310  F0*82 ; POKE  54296/15 
10320  POKE  54277/ 9 ¡ P0KE24278/ 240 
10330  POKE  54275,0 


10340  POKE  54274,255 
10350  RFC1)=»6¡BF<1)*147 
10360  RFC21*10 ¡ BFC2>*205 
10370  RF<3)»11  : BFC3)«=1 14 
10360  RFC4)"12 ¡ BFC4i»216 
10390  fiF<5)»16¡BFC3>*47 
10400  RFC6)*>14  ¡  BFÍ6)>=1  07 
10410  AFC?)=>8  BFC 7 ) *23 
10420  RETURN 


Fórmulas  matemáticas 


José  Jones  Vergés 
C/San  Bruno,  195  Bajos 
Badalona  (Barcelona) 
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Este  programa  que  os  envío  es  para  el  VIC-20;  su  aplicación 
esta  hecha  para  las  matemáticas  de  Ia  y  2S  de  BUP.  El 
programa  da  los  títulos  de  algunas  fórmulas  matemáticas, 
apretando  su  tecla  correspondiente,  el  programa  pedirá  las 
variables,  que  al  ser  dadas  estas,  el  ordenador  dará  el 
resultado. 


I  REM ¡ PROGRAMA  FORMULAS  MATEMATICAS 
10  P0KE36879 , 8 

II  PRINTKCLRK 

12  PRINT 

13  PRINT 

14  PRINT 

15  PRINT 

16  PRINT 

20  PR I NT " [ 4SPC ] [ R VSQN  K  RED  K 1 3CÜMM+ ] 

30  PRINT" [4SPC1 L RVSON J [ RED I i CÚMM+ ] I SPC 3 
PROGRAMA [ 2SPC  K COMM+ ] " 

40  PR I NT " 1 4 SPC ] [ RVSON K  RED K COMM+ 3 1 SPC 3 
REAL  1 2HD0 1 SPC ] I COMM+ 3 " 

50  PR I  NI “ 1 4SPC ] í RVSON i L RE D  K COMM+ ] I SPC  J 

POR  C  SPC  J - C  2SPC 3 [ CÜMM+ 3 " 

60  PR I NT " C4SPC J [RVSON K RED] [ CÜMM+ ] [ SPC ] 
JOE [ SPC ] JONES [ SPC  J  r  COMM+ J " 

70  PR I NT " [4 SPC J [ RVSON J [ RED] l COMM+ ] [ 4 SPC 3 
<C  >  C 4SPC ] [ COMM+ ] " 


80  PR I HT “ C 4SPC ] C RVbÜN 3 C RED] £1 3C0MM+  3 

90  FDRT=1 T01980 • NEXT : PRINT " CCLR3 " 

100  PÜKE36878, 15 
llw  FORL-1TÜ180 

120  PÜKE36876,  I  NT  (.  RND  <  1 94Ü  28 ) + 1 28 

130.  FORM=1TO10 

140  NEXTM 

150  NEXTL 

180  P0KE36876, 0 

170  P0KE36878j 0 

200  Pft I NT '* [ 3SPC 3 C RVSÜN 3  1 YEL 3ESC0JERCSPC 3 
UNBCSPC3LETRR" 

201  PRINT 

210  PR 1 NT " [ SPC  3  C RVSÜN3AC R VSOFF J  *  t  RVSOF  P 3 
C CYN ] C SPC  3  ECUHC 1 ÜN  C  SPC 3  DE  1 SPC  3 ' 2  '  C  6SPC 3 
GRADO  " 

213  PRINT 

220  PR I NT “ C  SPC  3  L RVSÜN  J  £ L  RVSOP P  3  * l RVSUFF  3 
C  CYN 3  C  SPC  3  D I STANC I H I SPC  3  ENTRE  C  6SPC  3  D 
ÜSC SPC 3 PUNÍ OS" 

223  PRINT 

230  PR I NT " C  SPC  3  £ RVSÜN  3  C  t R VSÜFF  3  *  C R VSOFF 3 
C  CYN  3  C  SPC  3  VER T I  CE  C  SPC  3  DE  C  SPC  3  LJNH C7SPC3 
PHRHBÜLH" 

235  PRINT 

240  PR  I  NT  "  I  SPC  3 1  RVSÜN  3  Ii  C  R VSÜFF  3  *  C  RVSOFF  3 
L  CYN  3  C  SPC  3  PRÜDRES 1  UNES 1 9SPC 3  HR I TMET I 
CHS  " 

,245  PRINT 

250  PR I NT " l SPC 3 1 RVSÜN 3 E I RVSÜFF 3 * I RVSOFF 3 
C  C  YN  3 1  SPC  3  PRÜÜRES I ONES 1 9SPC  3  üEÜIIE  T  R I 
CBS" 

255  PRINT 

260  PR I NT " C  SPC  3  C RVSÜN  3  F  C  RVSOF F 3  *  C RVSOFF 3 
C  C YN  3  C  SPC  3  L I STBDÜ [ 23PC  3  DEL  C  9SPC  3  PRÜG 
RAMHC27SPC3" 

270  GETR* • IFR*=" "THEN270 
280  I FRí = " H " THEN350 
29Ü  I FH*= " B " THEN500 
300  I  Ffi$ =  "C"  THEN630 
31Ü  I PH$* " D " T  HEN  760 
320  lFR$a"E"THEN1200 
330  1FHÍ="F"THEN16ÜU 
340  GOTÜ270 
350  PRINT" CCLR 3" 

355  PR I NT “ C SPC 3 ENTRHR C SPC 3 VBR I HBLES C SPC 3 
H,B,C" 

360  INPUTfi 
370  INPUTB 
380  INPUTC 
390  S*SQRtB#B~4#R*C> 

400  X*  -B+S  /2*R 
410  Y=  -B-S  72*H 

420  PR 1 NT " C  SPC 3LÜS C SPC 3 RESUL T BDUS C  SPC 3 
SUN :  " 

423  PRINT 

424  PRINT 
430  PRINT; X 
440  PRINT; Y 

445  FÜR T* 1 T 09999 : NEXT 
450  PRINT" CCLR 3" 

460  GUI Ü2Ü0 
500  PRINT" CCLR 3" 

5 1 0  PR I NT " ENT  RBR  C  SPC 3  VBR 1 HBLES  C  SPC  3  X 
2  j  X 1  /  V2 1 V 1  " 

520  INPUTX2 
530  INPUrXl 
540  INPUTY2 
550  1NPUTY1 
560  PRINT : PRINT 

570  D=SUR(  CX2-X1 )  T2+ÍV.2-Y1 )  f¿> 

580  PR I NT " C  SPC  3  EL  C  SPC 3  RESULTADO C  SPC  3 
ES:  " 

590  PRINTD 

610  F ORT= 1 TO 9990 : NEXT : PR I NT " CCLR 3 " 

620  GOTO200 
630  PRINT" CCLR 3" 

640  PR I NT " C  SPC  3  ENT  RBR C SPC 3  VBR I HBLES C  SPC  3 
B  •  Bj  C" 


650  INPUTB 
660  INPUTB 
670  INPUTC 

680  PRINT: PRINT  PRINT 

690  Vl=-B/2*fl 

700  V2»4*A*C-BT2/4*H 

710  PR I NT " C SPC  J  LOS  L  SPC  3  RESULTHDUS C  SPC  J 

SON :  " 

720  PRINT VI 
730  PR1NTV2 

740  FURT = 1 T 09999 : NEXT : PR I NT " C  CLR 3 " 

750  UOTÜ200 
760  PRINT" CCLR 3" 

770  PRINT : PRINT : PRINT ¡ PRINT 

780  PRINT" C SPC 3 ESCÜ JER C SPC 3 FORMULA " 

785  PRINT: PRINT -PR INI 

790  PR I NT " C  2SPC  3  C  RVSÜN 3 1 C  RVSOFF  3  *  C  RVSOFF  3 
C  CYN  3  HBL  LBRC  SPC  3 ' HN  '  " 

795  PRINT 

800  PRINT" r ¿SPC 3 C RVSÜN 3 2 C RVSOFF 3* [RVSOFF J 
C  CYN  3  HBLLBR  C  SPC  3  L.B  C  SPC  3  SUMB  " 

8Ü5  PRINT 

8 1 0  PR I NT " C 2SPC 3  C  RVSÜN 3  3 C  RVSOP F  3  *  C RVSÜFF 3 
C  CYN  3  C  SPC  3  VOLVER  C  SPC  3  R  C  SPC 3  S I T  Ufl- C  6SPC 3 
CI0NCSPC3 INICIAL" 

820  ÜETBÍ : IPB4=" " THEN820 
830  I FHÍ® " 1 " THEN860 
840  IFA*»"2"THEN960 
850  I FA<* " 3 " THEN8550 
860  PRINT" CCLR 3" 

870  PRINT " ENTRAR C SPC J VBR I BBLES C SPC 3 B 
1,N,D" 

880  INPUTB 1 
890  INPUTN 
900  INPUTD 

910  AN»A1+<N-1)#D 

911  PRINT: PRINT  PRINT 

920  PR  I  NT  "  C  ¿SPC  3  EL  C  SPC  3  RESUL  TBDÜ  C  SPC  3 
ES:  " 

930  PRINTRN 

940  FÚRT»1T09999 : NEXT : PRINT "CCLR 3 " 

950  GOTÜ760 
960  PRINT" CCLR3" 

970  PR I NT " ENTRAR  C  SPC  3  VBR I BBLES  C  SPC 3  B 
1,BN,N" 

980  INPUTB 1 

990  IMPUTAN 

1000  INPUTN 

1010  S=(.B1+BN/2)*N 

1020  PRINT  PRINT: PRINT 

1030  PRINT"ELCSPC3REbULTRDÜCSPCJES : " 

1040  PR1NTS 

1 050  FORT= 1 T09999 : NEXT : PR 1 NT " C CLR 3 " 

1060  OOTO760 
1200  PRINT "CCLR 3" 

1210  PRINT : PRINT : PRIN 1 : PRINT 
1 220  PR  I  NT  "  ESCÜ  JER  C  SPC  3  F  ÚRI1UL.H" 

1230  PRINT: PRINT  PRINT 

1 240  PR I NT " C  2SPC 3  C  RVSl iN 3  4  C  RVSOFF 3  W  C  RVSOFF  3 
C  CYN  3  C  SPC  3  HALLAR  C  SPC  3 ' HN ' " 

1245  PRINT 

1250  PR I NT " C 2SPC  3  C RVSÜN 1 5 C RVSÜFF 3 * C RVSOF F  3 
C  CYN 1 C  SPC  3  HBLLBR  C  SPC  3  SUMB " 

1255  PRINT 

1 260  PR I NT " C 2SPC 3  C  RVSÜN 3  6  C  RVSOFF  3  *  C  RVSÜFF 3 
C  CYN  3  C  SPC 3  VOLVER  C  SPC  3BC  SPC  3  S I  TUR- C  6SPC  3 
CIÚNCSPC3 INICIAL" 

1265  PRINT 

1270  GETBi : IFH$=" "THEN1270 
1280  IPBf ="4"THEN1305 
1290  IFH*="5"THEN14ü0 
1300  IPA#="6"THEN8555 
1305  PRINT" CCLR] " 

1310  PR I NT 1 "  C SPC 3  ENTRAR  C  SPC 3  VBR I BBLES 
CSPC3Hl,R,N" 

1320  INPUTB 1 
1330  INPUTR 
1340  INPUTN 
1350  AN*Hl*Rt<N~l> 


1355  PRINT : PKIHT : PRINT 

1360  PRINT"EL£SPL']RESULTRBÜ£SPC]ES  •  " 

1370  PRINTRN 

1 3S0  FORT = 1 T09999 ■ NEXT : PRINT" £ CLR ] " 

1390  GOTO 1230 
1400  PRINT" [CLR] " 

1410  PR I NT " [ SPC ] ENTRRR [ SPC ] VfiR I  BLES [ SPC ] 
HlLRjRl" 

1420  INPUTHN 

1430  INPUTR 

1440  INPUTR 1 

1450  s*<:rn#r-hi>/r-i 

1455  PRINT : PRINT ; PRINT 

1460  PRINT "ELCSPCJRESULThDOCSPCDES • " 

1470  PRINTS 

1480  F  ÜRT= 1 TQ9999 : NEX  T • PR I NT " £  CLR ] " 

1530  GOTO 1230 
1600  PRINT"£CLRJ " 

1620  LIST 

1680  PRINT: PRINT  PRINT 
8550  PRINT" [CLR] "  GÜ1Ü2U0 
8555  PRINT" [CLR]"  GOTÜ200 


Este  programa  lo  escribí  para  simular  los  giros  del  cubo  de 
Rubik  en  la  pantalla  del  ordenador. 

No  os  asustéis  por  el  hecho  de  que  el  título  está  escrito  en 
inglés,  la  lengua  no  interviene  para  nada  ya  que  las 
instrucciones  para  las  teclas  que  realizan  el  giro  de  cada 
sección  del  cubo  viene  explicado  con  gráficos  con  flechitas  en 
la  parte  superior  de  la  pantalla  una  vez  creados  los  caracteres 
necesarios. 

Nada  más  comenzar  el  programa  aparece  un  mensaje  que  nos 
pide  paciencia  debido  a  que  el  ordenador  está  creando 
caracteres. 

Posteriormente  se  apaga  la  pantalla  durante  algunos  segundos 
tras  lo  cual  se  ilumina  con  el  cubo  en  el  centro  dibujado  en 
tres  dimensiones  en  el  centro. 

Las  caras  se  llenan  de  sus  respectivos  colores  (los  gráficos  son 


multicolores).  Los  colores  son:  rojo,  blanco,  azul,  verde, 
amarillo  y  violeta. 

Ahora  el  programa  está  listo  para  funcionar,  propiamente 
dicho. 

Hay  14  teclas  que  comandan  14  giros  distintos.  Aparte  de  las 
14  teclas  anteriormente  citadas,  está  la  “S”  que  devuelve  el 
cubo  a  su  forma  original,  es  decir,  una  cara  de  cada  color. 

El  programa  está  basado  sobre  los  ARRAYS  que,  como  se 
puede  observar  son  numerosos  y  sobre  el  hecho  de  que  ningún 
“cubito”  que  forma  el  cubo  se  mueve,  sólo  cambian  de  color. 
A  pesar  de  que  el  programa  hace  uso  de  abundantes  trucos 
para  acelerar  el  BASIC,  su  funcionamiento  sigue  siendo  lento, 
pero  no  lo  suficiente  para  que  sea  tedioso,  la  “pega”  es  que 
hay  un  cierto  desfase  entre  el  apretón  de  la  tecla  y  el  giro 
realizado  en  el  cubo. 


2  CLR 

5  DIMT<6/3j3)jP(6j3j3)jF<5)jTT(4)jXT 
(3) i YT<3) 

10  GOTO280 
20  F0RG*1T04 
30  TT (G)=F(G+1 ) 

40  NEXT 
50  F0RG-1TÜ4 

60  F0RB=1T03 : IFG*1THENIFKY>6THENIFKV 
<13  THENLM*4-SK : LYn*4~VKB) : L2»XKD) : 
GOTQ70 

62  I FG-2  THEN I FKY>6THEN I FKV< 1 3THENL2- 
4-SK : LVM»4-YT(D> : LM-XTÍD) : GÜTO70 
65  LM=XT(D) : LVM“YT (D)  : L2=XT CIO 
70  T  <  TT  ( G  )  j  LM ..  L YM  )  =P  t  F  <  G  >  >  L2  <  YT  <  D  )  ) 

80  NEXTD/G 

30  IFRX“0THENRETURN 

100  FGRB31 TÜ3 

110  F0RC*1T03 

120  IFBI=0GOTÜ150 

130  T(RX/C<B>bR(.RX/4-BjC) 

140  NEXTCj B : RETURN 

150  TÍRX/  C<  B)“P(ft>L  B/  4-0 

160  NEXTCj B : RETURN 

170  FÜRG-1T04 

180  TT(G)-F(G+1> 

180  NEXTG 

200  FÜRG»1T03: IFKV-13GOTG230 
205  T(TT<l)j  I1.,GÍ=P'  F(1Íj4-Gj  II  > 

210  T<TT<2)jG/ I2)=PtFC2>< IIjG) 

215  TCTK3),  I2jG)«PCF(3),4-Gj  12) 

220  T<TT<4)jGjI1>»PCFÍ4>j I2jG) 

225  NEXT : GÜSUB 100: RE  fURN 

230  T<TT<1),Gj 1 2 > »P í F < 1 ) j 1 2 j 4-G ) 

235  T(TT<2) < I1/G)*P(F(2)jGj 12) 

240  T [ TTÍ3) j  G < 1 1 ) =P ( F i 3 ) j 1 1 j  4-G ) 

245  Tt TTÍ4) <  I2j G)"P< Ft'4) < Gj  1 1 ) 

250  NEXT :GD8UB100: RETURN 

280  PRINTCHRf C 147) : V»53248 : PQKEV+32j 

7 : P0KEV+33j  2 

290  PR  I NTTRB  <  1 2 ) "  [  7CRSRB  ]  £  BLU  ]  **♦  [  C0Í1M7  ] 
PLERSE £  SPC  J WR I T  £  BLU ] " 

295  PR I NTTRB i  8 ) " £  2CRSRD ] £ C0MM7 ] CR 
ERTING[SPC]CHRRHCTERS£BLU]***" 

300  FORG-0T 02000 : NEXT 

310  P0KE53265 j  PEEK í 53265 )RNB239 

315  P0KE53272j <  PEEK  1 53272 ) RNB240 ) + 1 2 

320  PRINTCHR#< 142) 

325  P0KE52 > 48 : P0KE56 , 48 

330  PÜKE56334 ,  PEEk  (  56334 )  RND254 

335  PÜKE 1 , PEER  <1 ) RNB25 1 

340  FOR I  »0TO  1 023 :  PGKE 1 2288+ 1  j  PEER  (  V+ 

I ) : NEXT 

380  PÜKE 1 1 PEEK  < 1 >  0R4 

385  PÜKE56334 ¡ PEEk  1 56334 ) ÜR 1 

387  F0RI*12936T 012991: REflBCN : POKE I <  C 

N :  NEXT 

390  FOR I = 1 2992T0 1 3 1 1 1 STEP2 : RERDCN : PO 
KE I ,  CN : POKE I  + 1 j  CN : NEXT 


400  DHTH0/ 126, 126/ 126/ 126/ 126/  126/0/ 

159/ 159/ 155, 153, 128/ 128/249/251 
410  DRTH249/249/21 7, 153/1,1/159/223/ 
231/195, 129/231/231/231,231,231 
412  DHTR231, 231/231,231/231/ 129/ 195/ 
231,255/223/159/0,0/ 159,223,255 
414  DHTR255, 251 , 249, 0, 0, 249, 251 , 255 
420  DRTH0, 0, 0, 195/253,245/212/85/85, 

127, 127, 127 

430  DRTR 1 27 ,  255 , 255 , 83 , 253 , 245 , 2 1 3 , 8 
4, 127, 127, 127,85 

440  DRTR85 , 253 , 253 , 253 , 253 , 253 , 253 / 0 
5/84/64/0,0 

45tí  DHTR95, 127, 127, 127 , 127, 125, 125,8 

5/64/64,0,0,64/64/64/64 

460  DRTR0, 0, 0  /  85, 64, 64, 0,  0  /  9, 10-  14, 1 

5/12,13 

470  F0RI-1T06 

460  REHDCOL 

490  F  ORR» 1 T03 ; FORB» 1 T03 

500  T<I,fl,B>»COL:NEXTB,R, I 

510  PÜKEV+33, 3 • POKEV+35, 0 • POKEV+34, 0 

520  PRINTCHR* (147)  •  CRM*V+2048 

530  PÜKE53265 , PEER  C  53265 )OR 1 6 

540  POKE53270 / PEEK  <  53270 ) OR 1 6 

550  PR I  NT " £  HOM  3  £  BLU  3 1 2SPC H SH I FTQ ] £ SH I FTW 3 

[SHIFTQ3  £2SPC3  £3sHIF  TÚ  J  [2SPCH3SHIF  TQJ 

[2SPC3  £SHIFTQJ£SHIFTV3  £SHIFTQ3£2SPC3 

£ 38HI FTÜ  3  £  2SPC  3  £ 3SHI FT03  í 23PC  3C3SHIFTQ3 

560  PRINT" .  =£33HIFTÜ3/=£SHIFTG3  £SHIFTW3 
£SHIFTQ30»£3SHIFTQ31»[3SHIFTQ32=CSHIFTQ3 
CSHIFTV3  £SHIFTQ33*[3SHIFTÜJ4=£SHIFTT3 
[2SHIFTG3 " 

570  PR I NT " C 2SPC ] [ 3SH I FTQ 3 C  2SPC 3  £  3SH I FTÜ ] 
[2SPC3  [SHIFTÜ3  [SHIFTW3  [SHIFTÜ3  £2SF'C3 
[3SHIFTQ3  £2SPC3  £ 3SHIFTQ3  C28PC3 [SHIFTQ3 
£ SH I FTV  3  C SH I FTQ  3 £ 2SPC  3  £ 3SH 1 FTQ  3 " 

580  PR I NT " C CRSRD 3  £  2SPC 3  T  3SHIFTQ  3  C 2SPC  3 
[33HIFTQ3 [2SPÜJ [3SHIFTQ3  E2SPC3 1 3SHIFTQ3 
£  2SPC  3  £  3SH I FTU  3  E 2SPC 3  C  3SH I FTQ  3  £ 2SPC  3 
C33HIF ÍU3" 

590  PRINT "5*£SHIFTQ3  ESHIFTT J [SHIFTQ3 
6-C2SHIFTQ3CSHIFTT37-CSHIFTU3C2SHIFTQ3 
8=£SHIFTÜ3  CSHIFTU3  £SHIFTQ39C£2SHIFTQ3 
[SHIFTU 3 ;  =  ESHIFTÜ3£SHIFTS3  C8HIFTQ3 / ■ 
CSHIFTQ3CSHIFTR3CSHIFTQ3" 

600  PR I NT " £ 2SPC 3  £ 3SH I FT  Q 3  £ 2SPC 3  £  3SH I FTQ 3 
[ 2SPC 3  £  3SH I FTÜ  3  £ 2SPC  3  £  3SH I F  TQ  3  £ 2SPC 3 
£  3SH I FT  Q  3  E  2SPC  3  E  3SH I F  £Q  3  £  2SPC  3  £  3SH I FTQ  3 

990  PR I NTTHB  < 1 8) " £ COMM 1 3  £  6CÜMMG 3 " 

1000  PR  I  NTTHB  (.  9  >  "  £  BLU  3LEFT  C  4SPC  3  £  CÜMM4  3 
ESHIFTV3 [SHIFT+3  £ SHI FTV 3 [SHIFT+3  £ SHI FTY3 
£  SH  I FT+  3  £  COMM-  3  £  COMMfi  3  £  SPC  3  £  SH  I  FTZ  3  ir 
ESHIFTZIirESHIFTZIrr" 

1010  PRINTTRB(9) " EBL.U3SIBEC3SPC3  ECÚMM4J 
ISHIFTY3  £ SHIFT+3 £SHI FTV 3 [SHIFT+3  £SHI FTV 3 
£  SH IFT+ 3  £  COMM- 3  £  CÚMMK3 £ COMMfi 3  £  SPC  3  £  SHI FT- 3 
£  COMM*  3  £  SH I FT- 3  £  COMM*  3  £  SH I FT- 3  £  COMM*  3 
“ : REM+CHHNGE  SHIFT  B 

1 020  PR I NTTHB  <  9  > " £  BLU  3  V I EW  £  2SPC  3  C C0MM4 3 
[SHIFT V3 [SHIFT+3 CSHIFTV3 [SHIFT+3 CSHIFTV3 
£  SH I FT+ 3  £  COMM- 3  £  COMMK 3  £  COMM I 3  £  COMMfi 3 
£SPC3[SHIFTZ3ir£SHIFTZ3ir£SHIFT23tr" 

1080  PRI NTTHB (8>  "  £SHIFTZ3ir£SHIFTZ3ir£SHIFTZ3 
ir  C  SPC  3£SHIFTZ3ir£SHIFTZ3fr£SHIFTZ3ir£  COMMK  3 
£  COMM I 3  £  COMMK  3  £  COMMfi  3  £  SPC  3  £  SH I FT- 3  £  COMM*  3 
£  SH I FT - 3  £ COMM*  3  £  SH 1 FT- 3 [ COMM*  3 " 

1040  PRINTTHB(S) "[SHIFT- 3 [COMM* 3 [SHIFT- 3 
£  COMM* 3  £  SH I FT- 3  £  COMM*  3  C  SPC  3  £  SH I FT- 3  £  COMM*  3 
£  SH I FT- 3  C COMM*  3  £  SH I FT- 3  £  COMM*  3  £  COMM I 3 
£  COMMK  3  £  COMM  1 3  [  COMMfi  3  £  SPC  3  £  SH  I FTZ  3  ir  £  SH  I FTZ  3 
ir£SHIFT23irM 

1050  PRINTTHBC8) " £SHIFTZ3ir[SHIFTZ3ir£SHIFTZ3 
ir  £  SPC  3  £  SH  I  FTZ  3  ir  E  SH  I  FTZ  3  ir  £  SH  I  FTZ  3  ir  £  COMMK  3 
£  COMM I 3  £  COMMK  3  £  COMMfi  3  £  SPC  3  £  SH I FT- 3  £  COMM*  3 
£  SH I FT- 3  £  COMM* 3  £  SH I FT- 3  £  COMM*  3 " 


1060  PRI NTTHB (8> " [SHIFT-3 [COMM* 3 [SHIFT- 3 
£  COMM*  3  £  SH I FT- 3  £  COMM* 3  £  SPC  3  £  SH I FT- 3  £ COMM*  3 
£  SH I FT- 3  £  COMM*  3  £  SH I FT- 3  £  COMM*  3  £  COMM I 3 
£  COMMK 3  £  COMM I 3  £  COMMT 3 " 

1070  PRINTTHBC83  "£  SHI  FTZ  3  ir  £  SHI  FTZ  3  ir  £SH1  FTZ  3 
ir  £  SPC  3  £  SH  IFTZ  3  ir  £  SH  1  FTZ  3  ir  £  SH  I  FTZ  3  ir  £  COMMK  3 
C COMM I 3  £  COMM+ 3  £  3SPC 3  £  BLU  3  REHR " 

1080  PR I NTTHB < 8  > " C  SH I FT- 3  L COMM*  3  £  SH I FT- 3 
£  COMM* 3  CSHI  FT- 3  [COMM*  3  [  SPC  3  £  SHIFT-  3  £  COMM*  3 
C  SH I FT- 3  £ COMM*  3  C  SH I FT- 3  £ COMM*  3  £  COMM 1 3 
£  COMM+ 3  C  4SPC  3  £  BLU  J  V I EW " 

1085  PRINT 

1 090  FOR I  »0TO2  ••  PR I  NTTHB  U  5 )  "  £  SH I  FTZ  3 
ir£SHIFTZ3ir£SHIFTZ3ir" :  PRINTTHBC 15)  "£ SHIFT-3 
£  COMM*  3  £  SH I FT- 3  £  COMM*  3  £  SH I FT- 3 [COMM* 3 
" : NEXT 

1100  PR I NTTHB  < 3 ) " C 4CRSRU I  £  BLU  3  BÜTTOM 
[SPC3VIEW" 

1110  F0RSB-1T06 

1120  F0RV«1T03 : FQRX*1T03 : P(SD/X, Y)»T 
(SD/X/.V)  : NEXTX, V,SD 
1150  GOTO1220 

1 1 70  FORO-PRTOPBSTEPSH ■ Y»V+ I V 

1180  F0RX-2TÜ6STEP2 

1190  P0KECRM+0+(X-2;/T(SD/X22/ INT(Y) 

> 

1200  POKECRM+G+  £ X-2 > + 1 / T ( SD , X/2 , INTC 
V)) 

1210  NEXTX,  G  :  RETIJRN 
1 220  SD= 1 ■ PR»338 : PB=4 1 6 ■ SH*39 : I V» 1 ; V 
“0 ■ GOSUB1170 

1230  SD=6  :  PH=>448  :  PB=648  ;  S8*40  :  IV».  5  ; 

V». 5 ■ GOSUB1 170 

1240  SD=2  ■  PH=455 ¡  PB»655  ¡  SH*40 :  I  V= .  5  ¡ 

V-.5  GOSUB1170 

1250  SD»5 : PH»346 : PB=546 : SH»40 : I V». 5 ; 

V». 5 ; GOSUB1 170 

1260  SD»4 :  PFl»735 :  PB»935 :  SH*40  •  I V» .  5  • 

V». 5 • GÜSUB1 170 

1270  PG-461 

1280  F0RX=1T03 : V»0 

1290  F0RG»PGT0PG-78STEP-39 • V»V+1 

1300  POKECRM+G, T(3, V, X) 

1310  PGKECRM+G+40, T<3, V, X) 

1320  NEXT 

1 330  PG»PG+80 : NEXT '• POKECRM+662 , 8 

1350  GETH*’ IFH*»""THEN1350 

1360  I FHíO 11 S" GOTO  1400 

1365  F0RV=1T03 : FORX» 1 T03 : T (1 , X / V ) »9 

1367  Pa,X,Y)»9 

1370  T(2/X/V)»10P<2/X/V)»10 

1372  T(3/X/V3=14  P<3,X,V)»14 

1374  T<4,X,Y>»15P<4,X,Y>»Í5 

1376  T(5/X/V)»12P(5/X,V)»12 

1378  Tt6/X/V)»13:P<6,X/V>»13 

1380  NEXTX, V : GOTO1220 

1400  KV»HSC (fii'j -45  :  REM  PRINT"  [BLK3  £HOM3 

1400" 

1410  IFKVC4THENIFKV>0GOTO1500 
1 420  I FK VC7THEN I FKV>3G0T0 1 520 
1430  IFKYC10THENI FK V>6GOTO 1 700 
1440  IFKV< 1 3THEN I FKV>9G0T01 720 
1450  I FKV» 1 3THEN 1 900 
1460  I FKV* 14THEN 1920 
1470  GOTO 1350 

1500  Fí 1 )=2 : F(2)»3 : F(3)=5 ; Fí 4)»6 ¡ F(5 
) »2 : REM-PR I NT " £  BLK  3  £  HOM  31500" 

1510  GOTO 1600 

1520  F<l)»5:F<2)»3;F(3)»2:F(4)*ó:F<5 
)=5 

1600  IFKV>3THENSK=KV-3 : GOTO1620 
1610  SK»KV 
1620  F0RG=1T03 
1630  VT(G>»SK : XT <G)«G : NEXT 
1640  ONKVGÜTO1650, 1655, 1660, 1665/ 167 
0 

1645  HX»4;DI»1 :GOSUB20  GOTO1110 
1650  HX= 1 = D I  * 1 : GOSUB20 ■ GOTO 1110 
1 655  HX=0 : OOSUB20 : GOTO 1 1 1 0 
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1660  RX=4  :  DI®0 :  GOSUB20 :  GÜT01 110 
1665  «X«l :  D>0 :  GQSUB20  =  G0T01 1 10 
1670  HX®0 • GOSUB20 : G0TD1 110 
1700  F<  1  )  =  1  :F(2)«5;FO)»4:F(4)'2:F(5 
)  =  1 

1710  GOTG1730 

1720  F(1)*=4:F(2)*5:F(3)=1 ■ F(4)*2 :F(5 
>■4 

1730  K.l=KV-6 

1600  I FK 1 >3THENSK=K 1-3 : GOTO l 820 
1810  SK-K1 
1820  FORO® 1 T03 
1830  XT<G)*SK  •'  VT<G>-G :  NEXT 
1840  OHK1GOTO1850, 1855. 1860. 1865. 187 
0 

1845  RX=3 :  DI  =  1  :GOSUB20: GOTOl 110 
1850  hx*8  DI-1  GOsUB^u  OÜTÚ1110 
1855  RX=0  GOSUB20  :  GOTOl  110 
1 860  RX=3 : D I =0 • GOSUB20 ■ GOTO 1 1 1 0 
1665  RX-6  B1*0  üU-.Ml-.  o  L.ululllu 
1870  RX=0 • GQSUB20 ¡ GOTOl 110 
1900  F<1)®6:F(2)®1  :Ft3)®3:Ft4>|®4;F(5 
)=6 

1910  RX®2 : I 1 ® 1 : I 2®3 : D I *0 ■ GOSUB 1 70 : GO 
TO1110 

1920  F<  1  >=»1  :FÍ2)»6:F(3)=4:F(4)i3:F(5 
>«1 

1930  RX=2:  Il*3: I2®1  ;BI«1 : GOSUB  170  =  GO 
TO 1110 


Este  programa  demuestra  que  las  matemáticas  nunca  fallan  y 
lo  demuestra  acertando  la  carta  pensada  después  de  varios 
pasos,  el  último  paso  es  una  pregunta  que  tendrás  que 
responder  con  una  cifra  de  dos  o  tres  números,  según  la  carta 
pensada. 

Explicación  del  programa: 

10  Variables  para  POKE 

30-  90  Presentación  del  programa.  Las  líneas  60  y  80  gosub  ; 
subrutina  de  movimiento  de  la  pantalla  y  efecto 
sonoro. 


100-250  Mensajes  para  hacer  las  operaciones  correspondientes 
de  la  carta  pensada. 

254-360  Representación  de  la  carta. 

370-600  Opinión  para  empezar  otra  vez  el  programa  o 
finalizar. 


1  REM  JUEGO  MRTEMRTICÜ 

2  REM  J. L. MRRCHENR 

10  8=36878 :  B=36874  :  C *>36879 
30  POKEC . 76 : PR I NT " C  BLK  3 " 

40  PR I NT " [ CLR 3 " '• P0KE36865 . 140 

50  PR I NT " C 1 0CRSRD 3 [ 4SPC 3 M C SPC 3 A [ SPC 3 

GISPC30CSPC3VCSPC3ICSPC3CC2SPC3 " 

60  GOSUB 1999 

61  P0KE36875. 200 

62  FÜRT=1TO300 : P0KE36878. 15 : P0KE3687 
4 . 255 : P0KE36878 . 0 ; NEXT 

65  PRINT"CCLR3" 'P0KE36865. 140 
70  PR I NT " £  8CRSRD  3 [ 9SPC ] POR " 

75  PR  I N  T "  [  3CRSRD  3  [  SPC  3  JOSE  [  SPC:  3  LU I S  £  SPC  3 
MRRCHENR C  SPC  3  G . “ 

80  GOSUB 1999 

90  FORT®  1 TO300 ¡ POKER , 15 ¡POKEB. 128 -P0 
KEfl. 0 : NEXT 

100  PRINT" [CLR] " : P0KE36879 . 6 1 

110  PR I NT " [ 1 0CRSRD ] [ 3SPC ] P I ENSRC  SPC ] 

UNR £ SPC 3 CRRTR" ¡FORT® 1TO20 

114  POKER.  15 : F0RI*1T075 : P0KEB. 158:P0 

KE8. 0 : NEXTI : NEXT 

1 20  PR I NT " £  CLR  3  £  6CRSRD  3 [ SPC  3  MUL  T I PL I 
CR  £  SPC  3  EL  £  SPC  3 NUMERO [ SPC ] " 

1 30  PR I NT " BE  C  SPC ] B I CH8 [ SPC ] CRRTR  C SPC ] 

POR CSPC] DOS" 

133  PR I NT " [ CRSRD ] [ 4SPC ] L  RVSGN ] [ 4SPC J 
VRLORES [ 4SPC ] " 

1 36  PR I NT " [ SPC ] [ 20COMM8 ] " 

140  PRINT" [2CRSRD] ÍBLU] [SPC] RS=1 . SOT 
fi®ll.DRMR=12" 

145  PR  I  NT  "  [  2CRSRB  ]  [  8SPC  .1 REV®  1 3 
150  FORT®  1 TO30 :  POKER .  15 ¡  FÜRI*=lTOó0  :  P 
OKEB. 158 : POKER. 0 : NEXTI : NEXT 
1 60  PR I NT " [ CLR ] [ 6CRSRD ] [ BLK ] [ 5SPC ] SU 
MRLE t SPC] TRES [3SPC]" 

165  FORT**1TO10 ; PÜKE36878.  15:FÜRI®1T0 
4ü  ■■  POKEB  .158:  POKER .  tí  ■  NEXT  I  :  NEXT 
1 70  PR I NT " [ 3CRSRB ] MULT I PL I CRL0 [ SPC ] P 
0R[ SPC] CINCO" 

175  FORT®1TO100 '■  POKER.  15 ■' FORI-1TQ20 : 
POKEB. 255 : POKER. 0 : NEXTI : NEXT 
1 80  PR I NT " [ CLR ] [ 2CRSRD3 C SPC ] SEGUN [ SPC ] 

EL [ SPC ] PRLO [ SPC ] DE [ SPC ] LR [ SPC ] " 

1 90  PR I NT " [ CRSRD ] C  SPC ] CRRTR . LE [ SPC ] S 
UMRRRSCSPC]  •'  " 

200  PR 1 NT " [ 3CRSRD ] [ BLU 1 1 [ BLK ] [ CRSRR ] 

/S I [ SPC ] ES [ SPC ] DE [ SPC ] CORhZONES " 

210  PRINT" [CRSRD] [BLU32EBLK3 [CRSRR]/  ' 

S I [ SPC ] ES [ SPC ] DE [ SPC ] ROMBOS " 

220  PRINT"! CRSRD  3 [ BLU ] 3 [ BLK  3  £ CRSRR ] / 

S I [ SPC  3  ES [ SPC  3  DE [ SPC ] TREBOLES " 

230  PR I NT " [ CRSRD  3 [ BLU ] 4  C  BLK ] [ CRSRR ] / 

S I [ SPC  3  ES [ SPC ] DE [ SPC ] P I CUES  " 

235  FORT-1TO200: POKER. 15FORI®1TO10: 
POKEB. 158 : POKER. 0 ¡ NEXT I : NEXT 
240  PR I NT " [ CLR ] [ 4CRSRD 3 £ SPC ] RHÜRR [ SPC ] 
RESTRLE  C  SPC  3  QU I NCE “ 

245  PRINT" £2CRSRD3®-*®=®®®®®==»==*®= 

250  I NPUT "[ 3CRSRD  3  QUE [ SPC  3  NUMERO [ SPC ] 
TE£SPC3DH";R* 

254  PRINT" CCLR]":PÜKE36863. 140: POKEC 
. 8 : PRINT" [WHT] “ 

255  PR I NT " [ GRN 3  £  3SPC ] LR [ SPC ] CRRTR [ SPC  3 
ESÍSPC3ELÍSPC3"; 

256  LETU*=LEN'.'fi*> 

257  IFU-3THEN265 

258  1FU“2THEN260 

260  PRINTLEFT$<R$. 1 ) 

261  GOTO270 

265  PR I NTLEFTí  t  Ri . 2  J 
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278  PR  1 NT " E CRSRD3 E  3SPC 3 DEESPC ] " i 
260  IFRIGHT$<HÍ. 1 )  =s  "  1 "  T HENPR I NT " CORA 
ZONESE 12SPC3 " 

290  IFRIGHTÍCN*. 1 >="2"THEHPRINT"R0MB 
OS" 

300  lFRIGHT*tH*. 1 >«"3"THENPRINT"TREB 
OLES" 

310  IFRIGHTFENÍ. 1 )="4"THENPRINT"PIQU 
ES" 

320  PRINT" E4CRSRB3 " 

330  PR I NT " E  WHT  3  E 3SPC ] C  COMMN ] [ RVSON 3  E  3SPC  3 
E  RVSOFF  3  C  CÜf'IHH  3 " 

331  U*LEN(R*):IFU-2THEN334 

332  IFU=3THEN336 

334  G!$»LEFT*<ñ*.  1> 

335  OÜTQ340 

336  Q$=LEFT*tP#,2) 

340  IFCl$»"  10"THENQí“"0" 

341  IFQ<a" 1 1 “THENQÍ=" J" 

342  IFCl$«"  12"THLNÜÍ»"Q" 

343  IFQí*"  13"THEN04:«"K" 

344  IFQ$=" 1 "THENQí*"R" 

349  PR  I  NT "  E  8SPC  3 1  CÚflMN  3  E  RVSON  3  "  Qí  "  1  RVSON  3 
E  2SPC  3  E  RVSOFF  3  E  COMI1H  3  " 

350  PRI NT " E  8SPC 3  C  COHMN 3  E  RVSON  3  £  3SPC 3 
£  RVSOFF  3  £  CÜI1MH  3  " 

351  IFRIGHTKFH. 1 >=" 1 "THENPRINT"£8SPC3 

£  CONFIN  3  £  RVSON  3  £  SPC  3  £  SH I F  ( S  3  £  SPC  3  £  RVSOFF  3 
ECOMMH3  " 

352  IFRIGHTí  (Fl$. 1 3*"2"THENPRINT" £8SPC3 

£  CÜMMN  3  £  RVSON  3  £  SPC  3  C  SH 1 FTZ  3  £  SPC  3  £ RVSOFF  3 
£  CONFIN  3" 

353  I FR I ÜHT*  <  Rí . 1 ) ■ " 3 " T HENPR I NT " £  BSPC  3 

£  CONFIN  3  E  RVSON  3  E  SPC  3  E  SH I FTX  3  E  SPC  3  £  RVSOFF  3 
£  CONFIN  3" 

354  I FR I GHT *  <  R$  j 1 ) * " 4 " THENPR I NT " E  8SPC  3 

£  CONNN  3  E  RVSON  3  E  SPC  3  £  SH  I FTR  3  £  SPC  3  £  RVSOFF  3 
ECONNH3 " 

355  PR I  NT " £ 8SPC 3  £  CONNN  3  £  RVSON  3  £  3SPC 3 
£  RVSOFF  3  £  COMMH  3 " 

356  PR I  NT " E  8SPC  3  £  CONNN  3  E  RVSON 3  £ 2SPC 3 
"  Q$  "  E  RVSOFF  3  £  CÜMMH  3  " 

357  PR  I  NT  "  E  8SPC  3  E  CONFIN  3  £  RVSON  3  E  3SPC  3 
£  RVSOFF  3  £  CONMN  3 " 

360  GÜSUB1999 

370  FORTUITO 100  POKER. 15 • FORI-1 T05 : P 
OKEB. 15 : POKER. 0 : NEXTI : NEXT 
390  f'RíNT"  E  2CRSRD  3  E  GRN  3  £  SPC  3  QU I  ERES  E  SPC  3 
GUE  £  SPC  3  RD I V 1 NE  E  SPC  3  " 

400  PR I NT " £  CRSRB 3  £  SPC  3  OTRR  £  SPC  3  CflRTR 
C$ 

410  GETflí : IFRí=" "TNEN410 
420  I FR** " S " THENRON 
430  I FR*“ " N " TNEN500 
440  GOTO410 

500  PRINT" ECLR3"  P0KE36865. 140 
505  PRINT" E6CRSRB3 " 

510  PRINT"! RVSON  3  E22SPC3  E RVSOFF  3 " ; 

520  PR I NT " E  RVSON  3  £  SPC  3  £  RVSOFF  3  £  3SPC 3 
E  RVSON  3  £  SPC  3  L  RVSOFF  3  C  3SPC 3  ERVSON3E2SPC3 
£  RVSOFF  3  E  SPC  3  E  RVSON  3  E  SPC  3  £  RVSOFF  3  E  3SPC 3 
£  RVSON  3  £  SPC  3  £  RVSOFF  3  £  3SPC 3  £  RVSON  3  £  3SPC 3 
E RVSOFF 3 " i 

530  PR I N  í " £  RVSON  3  £  SPC  3  £  RVSOFF  3  £  SPC  3  £  RVSON  3 
E  SPC  3  £  RVSOFF  3  E  SPC  3  £  RVSON  3  E  SPC  3  £  RVSOFF  3 
£  SPC  3  E  RVSON  3  E  SPC  3  £  RVSOFF  3  £  2SPC  3  £  RVSON  3 
£  SPC  3  £  RVSOFF  3  E  SPC  3  £ RVSON  3  £  SPC  3  E  RVSOF F  3 
£  SPC  3  C  RVSON  3  £  SPC  3  £  RVSOFF 3  E  SPC  3  E  RVSON  3 
£  SPC  3  £  RVSOFF  3  £  SPC  3  E  RVSON  3  £  5SPC 3  £  RVSOFF  3 

540  PR I NT " E  RVSON  3  £  SPC  3  £  RVSOFF  3  E  3SPC  3 
£  RVSON  3  £  SPC 3  £  RVSOFF 3  E  SPC  3  £ RVSON  3  £  2SPC 3 
£  RVSOFF  3  E  SPC  3  £  RVSON  3  £  SPC  3  £  RVSOFF  3  £  SPC  3 
£  RVSON  3  £  SPC  3  £  RVSOFF  3  £  SPC  3  E  RVSON  3  £  SPC  3 
£  RVSOFF  3  £  SPC  3  £  RVSON  3  £  SPC  3  £  RVSOFF  3  £  3SPC 3 
£ RVSON 3  E3SPC3E RVSOFF 3 " . 

550  PRINT"! RVSON  3  £  SPC  3  £  RVSOFF 3  £  SPC  3  £  RVSON  3 
£  SPC  3  £  RVSOFF  3  E  SPC  3  £  RVSON  3  E  SPC  3  E  RVSOFF  3 
£  SPC  3  £  RVSON  3  £  2SPC  3  £  RVSOFF  3  E  SPC  3  E  RVSON  3 


£  SPC  3  £  RVSOF  F  3  E  SPC  3  E  RVSON 3  £  SPC  3  £  RVSOFF  3 
£  SPC  3  £  RVSON  3  £  SPC  3  E  RVSOFF 3  £  SPC  3  E  RVSON  3 
£  3SPC 3  £  RVSOFF  3  £  SPC  3  E  RVSON 3  £  3SPC  3  £ RVSOFF  3 

560  PR I NT " E  RVSON  3  E  SPC  3  E  RVSOFF  3  £  SPC  3  E  RVSON  3 
£  SPC  3  E  RVSOFF  3  E  SPC  3  £  RVSON 3  E  SPC  3  £  RVSOFF  3 
£  SPC  3  £  RVSON 3  E  SPC  3  £  RVSOFF  3  E  2SPC  3  E  RVSON  3 
£  SPC  3  E  RVSOFF  3  E  SPC  3  E  RVSON  3  £  SPC  3  E  RVSOFF  3 
E  SPC  3  E  RVSON  3  £  SPC  3  E  RVSOFF  3  £  SPC  3  E  RVSON  3 
£  3SPC 3  £  RVSOFF  3  £  SPC  3  E  RVSON  3E4SPC3 E  RVSOFF 3 

570  PR  I  NT  "  E  SPC  3  £  RVSON  3  £  SPC  3  £  RVSOFF  3  £  SPC  3 
£  RVSON  3  E  SPC  3  £  RVSOFF  3  £  3SPC  3  E  R  VbÜN  3  £  2SPC  3 
E  RVSOFF  3  E  SPC  3  £  RVSON  3  £  SPC  3  £  RVSOFF  3  £  3SPC  3 
£  RVSON  3  E  SPC  3  E  RVSOFF 3  E  3SPC  3  £  RVSON  3  £  SPC  3 
£  RVSOFF  3  E  SPC  3  £  RVSON  3  £  SPC  3  E  RVSOFF  3  " ; 

580  PRINT"! RVSON  3  £  22SPC  3  E  RVSOFF 3 " 

600  G0SUB1999 

1998  END 

1999  P0KE36878. 15 

2000  FOR I * 1 40TÜ40STEP-0 . 5 : PÜKE 36874 , 

I + 1 1 5 : PÜKE36865 . I : NEXT 

2100  P0KE36878. 0 
2200  RETURN 


Laberinto 


Os  adjunto  un  programa  llamado  “LABERINTO”,  que  yo  he 

inventado. 

Voy  a  comentaros  las  partes  del  programa: 

0-  10  Inicio  de  variables,  gosub  para  la  presentación  y  nivel 
de  dificultad. 

15-  75  Dibuja  aleatoriamente  el  laberinto  y  los  componentes 
del  juego,  pone  a  cero  el  tiempo  y  pide  un 
movimiento. 

77-105  Asigna  movimientos  a  las  funciones,  cuida  que  la 
pelota  no  se  vaya  de  la  pantalla  y  dibuja  los 
movimientos. 

132-155  Caso  de  que  ganes. 

190-240  Presentación  del  juego  y  posibles  movimientos. 

245-270  Choque  con  un  muro. 

290-310  Caso  de  que  pierdas. 

312-330  Opción  para  jugar  de  nuevo. 
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340-350  Si  se  alcanza  un  nuevo  récord. 

400-410  Sonido  de  los  movimientos. 

415-435  Aquí  he  puesto  unas  especificaciones  para  el  listado, 
que  se  pueden  suprimir. 

Las  vidas  de  que  dispones  para  el  juego  van  en  relación  con  el 
nivel  de  dificultad,  el  doble  de  vidas  del  nivel  escogido,  las 
cuales  están  representadas  en  la  parte  superior  derecha  de  la 
pantalla,  y  cada  vez  que  se  choca  con  un  muro  se  pierde  una 
de  ellas. 

El  objeto  del  juego  es  llegar  con  tu  pelota  negra  hasta  el 
corazón  rojo  situado  en  el  otro  extremo,  chocando  las  mínimas 
veces  y  en  el  menor  tiempo  posible. 


0  D-6Ü 

1  REM***************************** 


2  REM*  * 

3  REI-I*  LABERINTO :  JORGE  LOZANO  * 

4  REM*  * 

5  REM*  JUNIO- 1984  * 

6  REM*  * 


7  REM***************************** 

8  GQSUB200 

9  I NPUT  "  C  2CRSRD  3  [  SPC  !  N I VEL  [  SPC' !  DE  [  SPC  1 
D I F I CULTADC  SPC ! ( 1 -9 ) " ; P : I FP< 1 0RP>9TH 
EN8 

1 0  V-54272 = S- 1 064 : Z-S+V : W=0 : K-0 : C»20 
23 : X-P*2 ; L-X : PR I NT " [ CLR ! " 

13  REM****  DIBUJO  DE  LA  PANTALLA  *** 

20  PR I NT " l HOM I [ BLU I C RVSON 1 LABER I NTO I SPC ] 
-ÍSPC1NIVEL: "P 

25  F0RL I  -LT01 STEP- 1  :  POKES-L  1,90:  rokE 
Z-L I , 6 : NEXT : POKES-X- 1,190 
30  F0RJ»1T075*P 
35  M-INT <RND< 1 >*958) 

40  IFM-0THENM-1 
43  I FPEEK  <  S+M  )  - 1 60THEN35 
50  POKES+M, 160 : P0KEZ+M,  5 
55  NEXT 

60  P0KEC , 83 I P0KEZ+959 ,  2  ¡  T I  *•  " 000000 " 

65  I FPEEK  <  S+W )  - 1 60THENGOSUB250 

70  POKEStW, 81 ¡ PQKEZ+W, 0 

75  GETA* ; IFA*=" "THEN75 

77  REM****  ASIGNACION  DE  FUNCIONES  * 

80  I F Aí = " l F3 ! " THENPOKES+W , 43 : POKEZ+W 

, 4 : W-W-l : K-K+l : GÜSUB400 

85  IFAÍ-" [F6! "THENPOKES+W, 43 : POKEZ+W 

,  4  :  W-W+39 :  K-K+ 1  ¡  GOSUB400 

90  I FAÍ - 1 "  [ F7  3 " THENPOKES+W , 43 : POKEZ+W 

,  4  ;  W-W+l  :  K-K+l  'GQSUB400 

95  I FA*= " [ F8 ! " THENPOKES+W , 43 : POKEZ+W 

, 4 : W-W+41 : K-K+l ¡ GOSUB400 

100  I FAÍ- " £  F 1 ! " THENPOKES+W , 43 : P0KEZ+ 

W,  4  :  W-W-40  :  K-K+l  •  GÜSUB400 

105  I F A*- " C  F2 ] " THENPOKES+W , 43 : P0KEZ+ 

W ,  4 : W-W-4 1 : K-K+ 1 : GOSUB400 

110  1 FA*- " C  F3 1 " THENPOKES+W, 43 : PÜKEZ+ 

W, 4 : W-W+40 : K-K+l : GOSUB400 
1 15  IFA*=>"  [F4!  "THENPOKES+W,  43  :  P0KEZ+ 

W,  4  :  W-W-39  •'  K-K+l  ¡  GÜSUB400 
117  ÍFAÍ-" [HOMI "THEN1 
120  I FC<S+WTHENW=W-40 
125  IFC-S+WTHEN135 
127  I FS>S+WTHENW-W+40 
130  G0T065 

132  REM*****  GANAS  ***** 

135  PR  I  NT "  [  CLR  !  [  RVSON  3  [  CRSRDH CRSRR I 
T [ CRSRD ! UC  CRSRR  U CRSRU  3G  C  CRSRD I AC CRSRD ] 

N [ CRSRD ! A [ CRSRD ! S [  CRSRD 1 1 [CRSRD! ! [CRSRD! 

140  PRINT" [CRSRD! [SPC! TIEMPO: [3PCI"M 
IBÍCTIÍ , 4, 1) " [SPC3MINÍSPC3 "RIGHT$(TI 
$, 2) " ÍSPC1SEG" 

145  I FD>T I X60THENGOSUB350 
1 50  PR I NT " [ CRSRD 1 [ SPC 1 HAS [ SPC ! CHOCAD 
0 " X-L " VECES " ■ PR I NT " [ CRSRD 1 [ SPC ! MO V I M 
IENT0S : " i K 


1 55  PR I NT " [ CRSRD ! [ SPC ! T I EMP0 [ SPC ! REC 

0RD : "D"SEG" : G0SUB315 

190  REM*****  PRESENTACION  ***** 

200  PRINT" [CLR! " :POKE650, 255: P0KE532 
80,5: P0KE5328 1 , 1 

202  PRINT" [ CLR 1 [ 2CRSRD 1 [ 2SPC ! LABER IN 
TO" 

205  PR I NT " POR [ SPC !J. LOZANO" 

210  PR I NT " [ SPC  K  C ) 6- 1 984 " 

2 1 5  PR I NT " [ 2CRSRD ! [ 1 1 SPC ! M0 V I M I ENTOS 

220  PR I NT  » [ 2CRSRD 1 C 9SPC !F2[ 4SPC ! F 1 [ 4SPC ! 
F4" 

225  PR I NT " [ 2CRSRD 1 [ 9SPC1F5 [ 4SPC ! ** [ 4SPC 1 
F7" 

230  PR I NT " [ 2CRSRD ! [ 9SPC ! F6 [ 4SPC 1 F3 [ 4SPC ! 

F8" 

235  PR I NT " [ 2CRSRD ! [ SPC ] [ HOME  1 [ SPC ! VU 
ELTA [ SPC ! A [ SPC ! EMPEZAR " 

240  RETURN 

245  REM****  CHOQUE  CON  UN  MURO  **** 

250  F0RZZ-1T025 : POKE53280, ZZ : P0KE532 
81,  ZZ 

255  PÚKEV+24 , 1 5 : POKE V+4 ,  1 7 : P0KE V+5 , 1 
90 : POKE V+6, 248 : POKEV+1 , 17 : P0KEV, 37 
260  POKEV+24 , 0 : NEXTZZ : POKE53280 , 5 : P0 
KE53281 , 1 

265  L-L-l :POKE1063-L, 190POKE1063+V- 
L,0: IFL-0THEN300 
270  RETURN 

290  REM*****  PIERDES  ***** 

300  PR I NT " [ CLR ! [ 2CR3RD! [ RVSON ! [ 7CRSRR ! 

H [ CRSRD ! [ CRSRL 1 A [ CRSRD 1ICRSRLISI2CRSRD! 

[ CRSRL ! P [ CRSRD ! [ CRSRL 1 E [ CRSRD 1 [ CRSRL ! 

R [ CRSRD 1 [ CRSRL ! D [ CRSRD ! [ CRSRL ! I [ CRSRD ! 

[ CRSRL 1 D [ CRSRD 1 [ CRSRL 1 0 [ CRSRD 1 [ CRSRL ] 

I [CRSRD !í CRSRL!!" 

305  PR I NT " [ CRSRD ! [ SPC ! HAS [ SPC ! CHOCAD 
0”X" VECES" 

310  PRINT" [CRSRD! [SPC!EN[SPC!"MID<:(T 
I*, 3, 2) “ [SPC!MIN[SPC! "RIGHTítTI*, 2) " 
ÍSPCÍSEG" 

312  REM****  OPCION  DE  NUEVO  JUEGO  ** 

** 

315  PRINT" [2CRSRD![SPC1JUEGAS[SPC10T 
RAISPC! (SZN) " 

320  GETD* • IFD$*"N"THENPRINT" [CLR! " ¡ E 
ND 

325  IFD*»"S"THEN1 
330  GOTO320 

340  REM*****  NUEVO  RECORD  ***** 

350  D-INT<TIZ60)  •' PRINT" [CRSRD! [SPC1N 
UEVO [ SPC ! T I EMPO [ SPC ! RECORD  I ! [ SPC ! " R I 
GHT*<TIÍ,2)"[SPC!SEG"  •’ RETURN 
400  REM****  SONIDO  **** 

405  POKE V+24 , 1 5 : POKE V+4 , 1 7 : POKE V+5 , 1 
90 ! POKE V+6, 248 : POKEV+1 , 17 : POKE V, 37 
4 1 0  POKEV+24 , 0 ■ RETURN 
415  REM******  ESPECIFICACIONES  ***** 

* 

417  REM******  DEL  LISTADO  ***** 

* 

420  REM** "[CLR! "-ES  [CLR! 

421  REM** "[HOM! "-ES  [HOME! 

422  REM** "(CRSRD!" -ES  [CRSRD! 

423  REM**" [CRSRU! "-ES  [CRSRU! 

424  REM**" [CRSRR! "-ES  [CRSRR! 

425  REM** "(CRSRL! "-ES  [CRSRL! 

426  REM** "[RVSON! "-ES  [RVSON! 

427  REM** “[BLU! "-ES  [BLUE! 

428  REM**" (Fl! "-ES  F1 

429  REM**" (F3!"-ES  F3 

430  REM** " [ F5 ! " -ES  F5 

431  REM** " [ F7 ! " -ES  F7 

432  REM**" (F2! "^ES  F2 

433  REM**" [F4! "-ES  F4 

434  REM**" [F6! "-ES  F6 

435  REM**" [F8! "-ES  F8 
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El  programa  va  de  química  ya  que  en  él  hay  unos  elementos 
químicos  con  los  que  se  puede  trabajar.  Al  poner  en  marcha  el 
programa  sale  una  pequeña  presentación  personal  y  luego  el 
menú,  desde  ese  punto  ya  todo  es  seguir  las  instrucciones  del 
programa.  Debido  a  causas  ajenas  a  mi  voluntad  no  he  podido 
poner  todos  los  elementos  de  la  tabla  periódica,  pero  hay  43 
que  creo  que  son  bastantes.  El  programa  usa  ampliación 
(mínima  3  K)  si  no  se  posee  ampliación  suprimiendo  algunos 
elementos  creo  que  cabrá  en  la  memoria  estándar,  el  programa 
tal  y  como  os  lo  mando  yo  ocupa  exactamente  5.467  bytes 
(una  vez  cargados  los  datos). 


1  REM  PAUL  HERNANDEZ  K. 

2  P0KE36879, 30 : PRINT" IBLU3" 

3  GOSUB5000 

5  PRINT"! CLR 3" 

10  DIMEÍC43) 

20  DIMN#(43) 

30  DIMP4Í43) 

40  D I MV  $  <  43  > 

50  FÜRT=>1T043 

60  READEÍCT),N*<T>,P:Í<T),V*(T> 
65  NEXTT 

70  DRTR  HIDROGENOS,  1 '008,  1 
80  DRTR  LITIO, L,6'94,  1 
90  DATA  SODIO, NA, 22 '99,1 
100  DRTR  POTASIO, K, 39' 10, 1 
110  DRTR  RUBUDIÜ, RB, 85-47, 1 
120  DRTR  CESIO.CS, 132-91, 1 
130  DRTR  COBRE, CU, 63-54, 1-2 
140  DRTR  PLRTR,RG, 107-87,1 
150  DRTR  ORO, RU, 196-97, 1-3 
160  DRTR  BERILIO, BE, 9-01, 2 
170  DRTR  MAGNESIO, MG, 24-31, 2 
180  DRTR  CALCIO, CR, 40'08, 2 
190  DRTR  ESTRONCIO, SR, 87-62, 2 
200  DRTR  BARIO, Bfl, 137-34,2 
210  DRTR  RADIO, RR, 226, 2 
220  DRTR  CINC, ZN, 65'37, 2 
230  DRTR  CRDMIO,CD, 112-40, 2 
240  DRTR  MERCURIO, HG, 200-59, 1-2 
250  DRTR  BORO, B, 10-81,3 


260  DRTR  ALUMINIO, RL, 26-98, 3 

270  DRTR  CROMO, CR, 51 -99, 2-3-6 

280  DRTR  MANGANESO, MN, 54-94,2-3-4-6- 

7 

290  DRTR  HIERRO, FE, 55-85, 2-3 
300  DRTR  COBALTO, CO, 58'93, 2-3 
310  DRTH  NIQUEL, NI, 58- 71, 2-3 
320  DRTR  CARBONO, C, 12'01,4 
330  DRTR  SILICIO, SI, 28-09, 4 
340  DRTR  GERMAN  1 0 , GE , 72 - 59 , 4 
350  DRTR  ESTAÑO, SN, 118-69,2-4 
360  DRTR  PLOMO, PB, 207' 19, 2-4 
370  DRTR  NITROGENO, N, 14-01,3-5 
380  DRTRFOSFORO , P , 30 ' 97 , 3-5 
390  DRTR  ARSENICO- HS. 7492, 3-5 
400  DRTR  ANTIMONIO, SB, 121-75,3-5 
410  DRTR  BISMUTO, BI, 208-98, 3-5 
420  DRTR  OXIGENO, O, 15'99,2 
430  DHTR  AZUFRE, 8,32-06, 4-6 
440  DRTR  SELENIO, SE, 78'96, 4-6 
450  DRTR  TELURO, TE, 127-60,4-6 
460  DRTR  FLUOR, F, 18-99, 1 
470  DRTR  CLORO, CL, 35'47, 1 -3-5-7 
480  DRTR  BROMO, BR, 79-91, 1 -3-5-7 
490  DRTR  IODO, I, 126-90, 1-3-5-7 
505  REM  BUSQUEDAS 

510  PRINT"! CLR 3 C  RVSÜN 3  *******  ******* 
***********  I  SPC  3  MENU  C  SPC  ]  PR I NC I  PAL  [  SPC  3 
************************* " 

515  PRINT"! 2CRSRD ] I 5SPC I ! RVSÜN ) B I RVSÜFF 3 
USQUEDHS" 

5 1 7  PR I NT " í  CRSRD  3 1 5SPC  3  í  R VSON  3  L I R VSOFF  3 
I  STAR! SPC] ELEMENTOS" 

519  PRINT"! CRSRD ] 1 5SPC ] í  R VSON 3 T I R VSOFF ] 
EST" 

521  PRINT"! CRSRD ] ! 5SPC ] ! RVSON ] F I RVSOFF ] 
IN" 

523  PR I NT " I CRSRD ] 1 5SPC 3 í  RVSON  3 V I RVSÜFF  3 
RCIRRÍSPC3 MEMORIA" 

525  GETO* ¡ I F0*= " " THEH525 
527  I F0$= " V " THEN20O00 
529  I F0$= " B " THEN550 
531  IFO*-"F"THEN10000 
533  IFÜ*-"T"THEN 15000 
535  I FOí» "L " THENGOT Ü 1 1 00 
537  G0T0525 

550  PR I NT " ! CLR 3 1 RVSON ]************** 
*****«**********!SPCJMENUISPC3****** 
************************" 

55 1  PR I NT " ! 2CRSRD  3 ! 3SPC  3  QUE ! SPC  3  DESE 
fl! SPC 3 BUSCAR " 

552  PRINT"! CRSRD  3 1 5SPC 3 1 RVSON  3  E I RVSOFF  3 
LEMENTOS" 

553  PRINT" I CRSRD 3 [5SPC3 [RVSÜN3N t RVSOFF 3 
OMENCLRTURRS" 

554  PR I NT " I CRSRD  3 1 5SPC 3 1 RVSON  3  V I RVSOFF  3 
RLENCIRS" 

555  GETü$: IFQ*-""THEN555 

556  I F 0$“ " E " THEN600 

557  I  F0*= "N " THEN700 

558  IFÜÍ*“V"THEN800 

559  G0T0555 

560  GETO* : IFO*"" "THEN560 

600  PRINT" ICLR3 í RVSON]*##****#*****# 
********* ! SPC  3  BUSQUEDA! SPC  3ELEMENT0S 
CSPC3***********************" 

605  PR I NT " ! CRSRD  3  ELEMENTO I SPC  3  R I SPC  3 
BUSCAR" 


620  IFR**Eí(T)THEN  GOTO  650 
630  NEXTT 

640  PRINT " I CLR 3 1 CRSRD 3 EL í SPC 3 ELEMENT 
0ISPC3 " ) Rii 

642  PRINT" ISPC3N0! SPC 3EXISTE" 

645  GOTO 1000 

650  PRINT"! CLR 3! CRSRD 3 ELEMENTO _ ¡" 

IR* 

660  PRINT : PRINT" NOMENCLATURA ‘ ";N*(T> 
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670  PRINT 1 PRINT "PESO [SPC 3 ATOMICO : " j  P 
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680  PRINT : PRI NT "VALENCIA1 


700  PR I  NT  "  £  CLR 3 t  RVSON  3  ************** 
********DUSQUEDA£SPC3NÚM£NCLATURAS** 

*****************«**" 

705  PR I N í" CCRSRD3 NOMENCLATURA £ SPC  3  A [ SPC 3 
BUSQRR" 

710  INPUT Ai 

715  FÜRTalT043 

720  I FRÍ^NÍ ( T ) THEN750 

730  NEXTT 

735  PR I NT  "  [ CLR 3  £ CRSRD 3EL £ SPC3ELEMENT 
O £ SPC 3 CUYA í SPC 3" 

740  PR I NT " t  CRSRD  3NQME NCLRTURR £  SPC  3 ES 

cspcjm;h* 

745  PR I  NT  "  £  CRSRD  3  NOC  SPC  3  EX I STE " 

747  GOTO 1000 

750  PRINT" [CLR 3 [CRSRD 3 ELEMENTO. . . .  " 
;Eí<T> 

755  PR I NT "[CRSRD 3NÜMENCLATURA 1  "  ¡  R$ 

760  PR I NT " [ CRSRD 3 PESO [ SPC 3RTOM ICO1 "i 
Pí<T) 

770  PRINT" [CRSRD3VALENCI AS. . . 1 "i V$<T 
) 

780  GOTO 1000 

80ü  PRINT" C CLR 3 C RVSON 3 #***#*#46****## 
*********[  SPC  3  BUSQUEDA  C  SPC  3  VRLENC I RS 
£SPC3**********************#" 

605  PR I NT " ENTRE  £  SPC  3  LA  £  SPC  3  COMB I NAC I 
ONCSPC3" 

807  PR I NT " DE[ SPC  3 VRLENC I RS  C  SPC  3  R [ SPC  3 
BUSCRR" 

810  INPUTAí 

812  PRINT" CCLR3 C3SPC3ELEMENTOSCSPC3C 
ONCSPC3 " ; Ai 

813  PR I NT " C  3SPC  3  VRLENC I RS  £  CRSRD  3 " 

815  F0RT«*1T043 

820  I FRÍ=V$  <  T > THENPR I NT " £  6SPC 3 " - Ei  C  T 
) 

830  NEXTT 
840  GOTO 1000 

1000  PRI NT " £  3CRSRD  3  £  SPC  3  DESER  £  SPC  3  MR 
S£ SPC 3 BUSQUEDAS" 

1010  PR I NT " £  CRSRD  3  £ 8SPC 3  <  S/N  ) " 

1020  GETDÍ 1 IFDí=" "TREN 1020 
1030  IFD$="S" THEN550 
1035  I FD$= "N" THEN1 5220 
1040  GOTO 1020 

1100  PR I NT " C  CLR  3  £  RVSON3  a************ 
*********", 

1110  PRINT,l[RVSON3*[SPL'3LISTR£SPC3DE 
£  SPC  3  ELEMENTOS  £  SPC  3  * " i 

1 120  print" [rvson 3 ****************** 

1130  PR I NT " £  7CRSRD  3  £  3SPC 3  PULSEE  SPC  3  U 
NRESPC3TECLRESPC3 " 

1140  GETHi 1 I FHí= " " TREN 1140 
1150  F0RT=1T043 

1160  PRI NT " [ CLR  3  £  CRSRD  3  ELEMENTO _ 1 

"¿E*(T) 

1170  PRI NT " £  CRSRD 3 NÜMENCLRTURR 1 " i  Mí < 

T> 

1180  PRINT"£CRSRD3PESÜ£SPC3RTOMICO 1 " 
¿P$<T) 

1190  PRINT" ECRSRD3VRLENCIRS... :"JV*< 

T> 

1200  PR I NT " £  4CRSRD 3  £  3SPÜ 3  PULSE  £  SPC  3  U 
Nfi£SPC3TECLR" 

1210  GETIIÍ 1  IFDí“"  "  THEN1210 
1220  NEXTT 
1230  GCJTO505 

5000  P0KE37158, 30 1 P0KE37159, 0 

5005  PR I NT " £  CLR  3  £  RVSON 3************* 

*********"; 

5010  PR  i  NT "  £  RVSON  3  ******  £  SPC  3  ÜIJ I M I  Cfi 
[SPC 3 *******" ¡ 


5020  PR I NT " £ RVSON 3****************** 
«***" 

5030  PR I NT " £  CRSRD  3  £  SPC  3  E V 1 PRUL  £  SPC  3H 
ERNRNDEZ  £  SPC  3  K . " 

5040  PR I NT " £  6CRSRD  3  £  3SPC 3  PULSE  £  SPC  3  U 
NR£ SPC 3 TECLA" 

5050  PÜKE37159j  66 

5055  GETRÍ 1 I FRí = " " THEN5055 

3060  RETURN 

1 0000  PRINT" £ CLR 3 £  1 0CRSRD 3 £ 8SPC 3 RD I O 
S£9CRSRD3 " 1 P0KE36879. 27 1  EN D 

15000  PK=1 1 PR=0 

15001  PRINT"! CLR  3 [RVSON 3  ************ 
****************** [SPC 3 TEST [SPC 3**** 
************** ***** ******* " 

15010  PR I NT " £  CRSRD  3  VO  £  SPC  3  TE  £  SPC  3  DAR 
E £ SPC 3UN£ SPC 3 ELEMENTO" 

15020  PRINT  "  Y  £  SPC  3  TU  £  SPC  3  ME  £  SPC  3  HAS  £  SPC  3 
DE  £  SPC  3  DEC I R  £  SPC  3 " 

1 5030  PR I NT  »  £  CRSRD  3  SU £  SPC  3  NÜMENCLRTU 
RR  £  SPC  3  V  £  SPC  3  SUS " 

1 5040  PR I NT " £  CRSRD  3  VRLENC I RS  £  SPC  3  S I  £  SPC  3 
R£SF'C3LH£SPC3TER-" 

1 5045  PRINT " CERA  £  SPC  3  NO  £  SPC  3  LO  £  SPC  3  H 
fiS£SPC3ACERTR-" 

1 5047  PRINT " DO  £  SPC  3  PASA  £  SPC  3  R  £  SPC  3  OT 
RR  £  SPC  3  PREGUN- " 

15048  PRINT"TR. " 

15050  PRINT"! 2CRSRD  3  £  43PC  3  PULSE  £  SPC  3 
UNA  £  SPC  3  TECLR  " 

15060  GETRÍ 1 IFRÍ*" "THEN15060 
15065  C=1 

15070  T* I NT ( RND  < 1 ) *43  > 

15080  IFT»0THENT=43 

1 5085  IFC*4 THENPR I NT " £  CLR  3  £ CRSRD  3  VA  £  SPC  3 

HAN  £  SPC  3  PASADO  £  SPC  3  TUS  £  SPC  3  TRES  £  CRSRD  3 

£ SPC 3  INTENTOS" 1 GOTO23000 

15090  PR I NT" £CLR 3 [CRSRD 3 ELEMENTO. . . 1 

";Ei<T> 

15100  INPUT" [CRSRD 3 NOMENCLATURA" ; Mí 
15110  INPUT" [CRSRD 3 VALENCIAS" i Bí 
15120  I FMí ONÍ  í  T  >GRBiOV$  (  T  )  THENPR  I N 
T"  [5CRSRD3  [6SPC3NO"  1  C«C'+1 1 G0TD15125 
15122  GOTO15130 

15125  IFMÍO  Ni  <  T  ) THENPR I NT " £  2CRSRD  3 
£  SPC  3  ES  £  SPC  3  OTRA  £  SPC  3  NOMENCLATURA " 

15127  I FBÍ O Vi <T  > THENPR I NT " £  2CRSRD 1  £  SPC  3 
ES  £  SPC  3  OTRA  £  SPC  3  VRLENC 1 A " 

15128  FORWal TÜ2500 1 NEXTW 

15129  GOTO 15085 

15130  PRINT"! 3CRSRD 3  B I EN , HAS  £ SPC  3  ACE 
RTADO" 1 PA*PA+1 

15140  PRINT  " £  3CRSRD  3  MAS  £  SPC  3  PREGUN T 
RSCSPC3 (S/N) " 

15145  GETQí1 IFGt=" "THEN15145 
15150  I F Qí" " S " THENPK>PK+ 1 1  GOTO 1 5065 
15160  IFQÍ*"N"THEN15200 
15170  GOTO15140 

1 3200  PR I NT " £  CLR  3  £  CRSRD  3  HAS  £  SPC  3  HECH 
O" j  PK) "PREGUNTAS" 

1 5205  PR I NT " £  CRSRD  3  HAS  £  SPC  3  ACERTADO . 

1 " ;  PA 

15210  PRI NT "[CRSRD 3 HAS £SPC 3 FALLADO. 1 
" , PK-PA 

1 5220  PR I NT " £  2CRSRD 3  £  SPC  3  DESEA  £  SPC  3  V 
OLVER  £  SPC  3  AL  £  SPCDMENU " 

1 5225  PR I NT " £  CRSRD  3  £  6SPC  3  <  S/N ) " 

1 5230  GETZÍ 1 I FZí* " " THEN 1 5230 
15240  I FZí= " S " THEN505 
15250  IFZÍ-"N“ THEN 10000 
15260  GOTO 152 10 

20000  PRI NT "£CLR 3 [RVSON 3 ************ 
************£ SPC 3 BORRAR  £  SPC  3  PROGRAMA 
£SPC3*********M**************" 

200 1 0  PR I NT " £  4CRSRD 3  £  2SPC 3  ESTAS  C  SPC  3 
SEGURO £ SPC X S/N)" 

20020  GETFí  1  IFFlí="  "THEN20020 
20030  I FFí* " S " THENSY864802 
20040  I FFÍ» " N " THENGOTO505 
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20050  GOTÜ20020 

23000  FORK= 1 TO 1 500 : NEXTK 

250 1 0  PR I NT " ECLR3LAE SPC 3 RESPUESTAE  SPC ] 

CORRECTACSPC3ECRSRD3ERA : " 

25020  PRINT" E2CRSRD 3 ELEMENTO _ :";E 

*(  T> 

25030  PR I NT " C  CRSRD ] NOMENCLATURA : J  N* 
<T) 

25040  PRINT" E CRSRD 3 VALENCIAS. . . 

<T) 

25050  GOTO15140 


Devora  corazones 


Vicens  Miquel  y  Juli  González  (15  años) 
C/Mig,  5 

Telf.:  (972)  46  14  83 

C-64 

Cassa  de  la  Selva  (Gerona) 

“Devora  corazones”  debe  comer  vitaminas  para  seguir 
viviendo  y  debe  evitar  unas  trampas,  además  de  plantas 
venenosas. 

Explicación  del  programa: 

40  Borra  la  pantalla:  Pone  la  pantalla  negra  y  el 
recuadro  gris. 

50  El  cursor  se  pone  verde  y  da  el  valor  0  a  varias 
variables. 

60-  170  Hace  la  presentación  del  programa  y  da 
instrucciones. 

180-  200  Espera  la  pulsación  del  espacio  para  empezar. 

220  Pregunta  el  nivel  de  dificultad. 

230  El  borde  de  la  pantalla  se  vuelve  amarillo  y  pone  el 
título  en  la  pantalla  además  del  número  de  esta. 

250-  280  Elige  la  situación  de  los  diferentes  caracteres  en 
pantalla. 

290  Coloca  la  posición  inicial  del  Hearts  Eater. 

300-  355  Espera  las  teclas  de  movimiento  y  da  valores  a  X  e 
Y  para  que  se  vaya  moviendo. 

360-  376  Mira  el  carácter  que  el  Hearts  Eater  tiene  delante  y 
según  este  sigue  adelante,  súma  puntos  o  se 
destruye. 

380  El  carácter  es  un  corazón.  Resta  1  a  la  variable  de 
los  corazones  CO,  suma  5  a  la  puntuación,  hace  un 
ruido  y  vuelve  al  300.  Si  la  puntuación  es  o  excede 
de  400,  el  Hearts  Eater  aumenta  en  1,  teniendo  así 
un  tanque  más. 


385  Hace  lo  mismo  que  la  380  excepto  en  que  se  trata 
de  una  vitamina. 

390  Si  se  han  comido  todos  los  corazones  y  todas  las 
vitaminas,  pasa  a  otra  pantalla. 

400  Dibuja  el  Hearts  Eater,  hace  un  ruido  y  lo  vuelve 
siempre  blanco. 

410  Hace  la  velocidad  y  mediante  una  resta,  esta  va 
aumentando  a  medida  que  pasa  el  tiempo. 

430  Indica  que  el  Hearts  Eater  ha  muerto. 

440  Resta  un  valor  a  la  variable  del  Hearts  Eater. 

450  Si  era  el  último  de  los  tres  Hearts  Eater  finaliza. 

480  Aumenta  el  número  de  trampas  y  plantas  venenosas 
al  pasar  a  otra  pantalla. 

490  Indica  el  fin  del  juego. 

500  Da  la  puntuación. 

501  Si  los  puntos  conseguidos  son  mayores  que  los 
anteriores  te  indica  que  has  batido  el  récord. 

503  Te  pregunta  el  nombre. 

504-  509  Hace  una  presentación  del  nombre  del  ganador  y  de 
los  puntos  conseguidos. 

510-  550  Pregunta  si  quieres  volver  a  jugar. 

600-  620  Hace  el  ruido  del  movimiento  del  Hearts  Eater. 

1000-1040  Hace  el  ruido  de  fin  de  pantalla. 


10  REM  *  HEHRTS  EATER  * 

20  J-0 

40  PRINT"! CLR 3"  ¡POKE  53281  ,  0 ¡  POKE  53 
200, 12 

50  PQKE ( 646 3 , 1 3  : CV*0 ¡  L«0  ¡ P*0 
60  PR I NT " £ CRSRD 3 " i TABC 12) "«»♦***«*»* 
»»****" 

70  PR I NTTAB  C 1 2 ) " *  E  SPC  3 HEARTS C SPC 3 EAT 
ERESPC3*" 

80  PRINTTAB023  "i#*##*#**#*#**##" 

90  PR I  NT " E CRSRD J DEBES L SPC 3 CÜMERTE 1 SPC 3 
TODOS 1 SPC  3  LOS  C  SPC  3  CORAZONES [ SPC  3 1 SH I FTS  3 

95  PR I  NT " E CRSRD  3  V  E  SPC  3  TODAS [ SPC  3L AS  E  SPC  3 
VITAMINASESPC3  ESHIFTA3 " 

1 00  PR I NT " C  CRSRD  3  E V I T ANDO  E  SPC  3  CAER  C  SPC  3 
EN  E  SPC  3  L AS  E  SPC  3  TR AMP AS  E  SPC  3  E  COMMB  3 " 

105  PR I NT " £  CRSRD  3  CHOCAR [ SPC  3  CON 1 SPC  3 
TUS  E  SPC  3  SANGR I  ENTAS  E  SPC  3  HUELLAS  E  SPC  3 
[SHIFTG3" 

110  PR I NT " C CRSRD  3  V  C  SPC  3  COMER  E SPC  3 LAS 
C  SPC  3  PLANTAS  E  SPC  3  VENENOSAS  £  SPC  3  £  SH I FTX  3 

120  PR I NT " £  CRSRD  3  £  RV80N  3  POR  £  SPC  3  V . £SPC3 
M I QUEL  £  SPC  3  V  £  SPC  3  J . £ SPC  3  GONZALEZ " 

130  PR I  NT " £  CRSRD  3  £ RVSON  3  £  WHT  3  SUERTE  £  SPC  3 

i 40  PRINT"DIRIGE£SPC3CQN : " 

1 50  i  PR I NT " E  CRSRD  3  A«ABAJ0 £  1 0SPC 3  D- ARR 

160  PRINT"L-IZQUIERBAE7SPC3 ¡ «DERECHA 

170  PR I NT " E  2CRSRD 3  E  RVSON  3  PULSA  £  SPC  3  E 
SPAC 1 0  E  SPC  3  PARA  £  SPC  3  EMPEZAR " 

180  GET  Tt :  IF  Tí*" "THEN180 

190  IF  Tí  O"  £  SPC  3"  THEN  1S0 

200  IF  Tí»" E SPC 3 "  THEN  220 

220  PR I NT " E CLR 3 E 5CRSRD 3 " ¡ INPUT"NIVEL 

£SPC3DE£SPC3DIFICULTAD(1-9)";F-F»F*1 

5  ¡  A=1 ; HE*3 : R*0 

230  POKE  53280 , 7 • PR I NT " E  CLR  3  £  1 0CRSRD  3 
£  1 0CRSRR  3  £  RVSON  3  HEHRTS  £  SPC  3  EATER  £  SPC  3 
"JA 

240  H=5 : C0« 1 0 : FORD* 1 TO2000 : NEXT 
250  PRINT" ECLR3 " :FORN=1TO10+R-W»INT( 

RND< 13*1 000 ) : POKE 1024+W, 12?:PÜKE5529 
6+W, 3 : NEXTN 

260  FORI«*1TO10+R :  WS»INT(RND<  1  >$1000) 

: POKE 1 024+ WS , 88 ¡ P0KE55296+WS, 5 ¡ NEXTI 
270  FÜRK»1T0C0  :  WR=INT (RND<  1  )4¡1000>  :  P 
OKE 1 024+WR , 83 • P0KE55296+WR 1 2 ; NEXTK 
275  F0RSP“1T0H' WT“INT (RNDC  1  >#1000!)  •  P 
OKE 1024+WT , 65 : P0KE55296+WT , 7 : NEXTSP 
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280  FORK 1=1 TÜ600 : NEXT 
290  T=F :X®15 : Y®5 
300  GET  Mí 

310  IF  Mí® " " THENGQTQ35 1 
320  1F  Mí="H"  THEN  E*1 

330  IF  Mí-"D"  THEN  E-2 

340  IF  Mí-","  THEN  E-3 

350  IF  MÍ*"L"  THEN  E=4 

351  IF  E=0  THEN  X=X-1 

352  IF  E“1  THEN  V=V+1 

353  IF  E*2  THEN  Y*Y-1 

354  IF  E=3  THEN  X=X+1 

355  IF  E®4  THEN  X=X-1 

360  IF  PEEK ( 1 024+X+40Í V ) ®83THEN380 

361  IFPEEKC 1024+X+40*Y)»65THEN385 
365  IF  PEEK<1024+X+40*Y)«81  THEN  430 

370  IF  PEEK(1024+X+40*Y)='88THEN  430 

371  IF  X*-10R  X®40  OR  V«=-10R  Y*25  TH 
EN  430 

375  IF  PEEK ( 1 024+X+40Í Y ) ■ 1 27THEN  430 

376  IFPEEKC 1024+X+40ÉV)*32  THEN  400 
380  CÜ®CO-l : P«P+5 : IF  P>*400HNDCV*0TH 
ENHE-HE+1 : CV-CV+1 : GOSUB10U0 ¡ GÜSUB600 

384  GOTO  390 

385  H=H-1 : P*P+6 : IF  P>«200flNDCV»0THEN 
HE=HE+1 :  CVCV+1  •  GOSUB1000 :  GOSUB600 
390  IF  CO-0  RND  H=0  THEN  480 

400  POKE  1024+X+40ÜÍV  •  81  :  GOSUB600  :  POK 
E55296+X+40*Y, 1 
410  FORZ*lTOT •  NEXT '•  T«T-0. 6 
420  GOTO  300 

430  POKE  1 024+X+40* Y ,  90 : GOSUB600 

440  HE-HE-1 

450  IF  HE*0  THEN  490 

460  GOTO  250 

470  FÜR  U-l  TO  200 : NEXT 

480  FÜRTY-1 TO4000 : NEXT : FORHJ-1 T03 : GO 

SUB1000 '•  NEXTHJ  :  R^R+Z :  Fl=Fl+l  :  GOTO  230 

490  PR I NT " [ HÜM  3  C 1 0CRSRD  3  C  8CRSRR 3 í RVSON I 

JUEGO  [  3PC  3  TERN I  NfillO  C  SPC  3  [  RVSOFF  3  "  :  PR 


Es  una  versión  del  Frogger  en  que  hay  que  atravesar  una 
autopista  y  un  río  (teclas,  A/Z.),  si  se  ha  conseguido  cruzar  la 
carretera  y  esquivar  los  submarinos  hay  que  meterse  en  una  de 
las  casillas  de  la  parte  superior  de  la  pantalla.  Si  se  consigue 
ocupar  todas  las  casillas  se  aumenta  la  puntuación  (el 
marcador  está  en  la  esquina  superior  izquierda  de  la  pantalla) 
y  se  consigue  una  vida  más  (las  vidas  están  en  la  esquina 
inferior  izquierda). 


501  IF  P>J  THEN  J=P : PR1NT" C2CRSRB3 CRVS0N3 
CCVN3HHSC SPC  3  BHT I  DO  C SPC  3  EL  C  SPC  3REC0R 

I) C RVSOFF 3  "  :  FORDE»  1 TO3000  ■  NEXT  ■’  GOTO50 
3 

502  GOTO  510 

503  I NPIJT  "  [  CLR  3  C 1 0CRSRD  3  C  3CRSRR  3  ESCR 
I  BE  C  SPC  3  TU  C  SPC  3  NOMBRE " ; Hí 

504  PR I NT " C CLR 3  £ 4CRSRD 3  £ 4CRSRR 3 £ RVSON 3 

£  RED  3 EL  E  SPC  3NUEV0 [ SPC  3 CRMPEON 1 SPC  3ES 
ESPC3 ; "  , 

505  PR I NT " E  4CRSRD 3  £ 4CRSRR  3  E  RVSON  3  E BLU  3 

";hí 

506  PRINT"  [2CRSRD3**#¡t¡ííi*¡lMÍÍ##Í#í44l 
************  fc»**«**4>«*" 

507  PR I NT " £ 2CRSRD 3 £ 3CRSRR  3  EL  E SPC  3  REC 
ÜRD  C  SPC  3  EN  £  SPC  3  PLJNTURC I  ONE  SPC  3  ES" 

508  PR I NT " C  CRSRD  3  C  4CRSRR  3 1 RVSON  3  E VEL  3 
"i JJ "PUNTOS [RVSOFF 3" 

509  FÜRHG-1  T04 : GOSUB1000 : NEXTHG : FOR 
GV*1TO3000  •'  NEXT 

510  PR I NT " 1 3CRSRD3 E  2CRSRR 3  QU I  ERES  E SPC  3 
VOLVERE SPC  3  H  E  SPC  3  JUGHR (S/NIE C0MM6 3 " 

520  GET  Gí 

530  IF  GíO"S"RND  GfO"N"  THEN  520 

540  IF  G#*"S"  THEN  40 

550  IF  GÍ»"N"  THEN  END 

600  PÜKE54296 ,  1 5  : POKE  54273.45 

610  PÜKE54272, 198 

620  POKE  54296.0 : RETURN 

1000  V®54272 ■ POKE  54296.15 

1010  F‘OKEV+6. 0 1 PÜKEV+5, 31 

1020  POKE  V+ 1 . 1 80 :  POK.EV+4 . 33 

1030  FOR  SN=1  TO  100 : NEXT 

1040  PGKEV+4, 0 : RETURN 


5  V*3 : P0KE36879. 15:PRINT"CCLR3" :fi«81 

74 

10  B=8120 : C-6034 : D*7948 : E®8097 • F-800 
9 : R®1 5 

20  H=?789 :  I=»7812  ¡  J=7877 :  K-7900 :  M-791 

0  :  Q®0 

25  P0KE52 . 28 : P0KE56 . 28 

30  FGRW=7 1 68T07679 : POKEW . PEEK  C W+2560 

01 • NEXT 

40  P0KE36869 . 255 

50  F0RZ=7168T07215 : REÑDY : POKEZ. V ■ NEX 
T 

60  F 0RW*38488T 038509 • POKEW , 2 ■ NEXT 
65  FORW® 385 76 T 038597 • POKEW. 4 : NEXT 
70  FORW=38840TO38861 : POKEW. 2 ■ NEXT 

75  FÜRW=38752T038773 ¡ POKEW. 7 : NEXT 
80  FORW-38708TO38729 : POKEW. 6 : NEXT 
85  FÜRW=38664T 038685 • POKEW. 5 : NEXT 
88  F0RW=38796T038817 : POKEW , 5 : NEXT 

90  FORW=38620TO3864 1 : POKEW . 7 : NEXT : PO 
KE7745.4 

91  FORW=7680TO7723 • POKEW. 4 : NEXT 

92  F 0RWa8 166T08186 : POKEW . 4 : NEXT 

93  F0RW=7922T07943 : POKEW . 4 : NEXT 

94  F0RW»7723T 08 1 63STEP44 : POKEW. 4 ' NEX 


¡  F0RW=7724T07744STEP2  •'  POKEW,  4  :  NEXT 
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98  I FV-2THENPÜKE81 64,0: P0KE8 1 65 , 4  PÜ 
KE38884, 3 ■ P0KE38885, 1 

99  IFV=3THENP0KE81 64 , 0 : P0KE8165, 0 : PO 
KE38884, 3 : P0KE38885, 3 

100  POKER, 0: GE TCí 

1 10  I FU* = " R " THEN I FPEEK (R-44  3  04RHIIPE 
EKER-443O0THENPOKER,  32  H=R-44  :  Q-Q+l 
0 :  0*0 

120  I FCÍ» " Z " THENPOKEfl , 32 : R*R+44 ¡ Q=Q- 
20 

130  IFC$=" ,  "THENIFPEEKCR-1 3O4THENP0 
KER, 32 ; R=R-1 

140  I FCP =  " . " THEN I FPEEK < R+ 1 ) O4THENP0 

KER, 32 ; H=R+1 

150  IFR>8141THENR=81?4 

160  IFR<7746THENP0kER, 0  R=8174  P=P+1 

: I  FP=  1 0THEN3000 

1 70  POKEB , 1 : P0KEB+ 1,2: POKEC , 1 : POKEC+ 
1,2: POKED ,  1 : POKEB+1 , 2 : POKEE , 3 : PQKEF, 

3 

1 80  POKEH , 5 : POKE I , 5 : POKEJ , 5 : POKEK , 5 : 
POKEM, 5 

1 90  I  Ffi=£ORR*B+ 1 0RR=B+20Rfi--C0RR=C+l  O 
RR=C+2QRR=B0RR»B+ 1 0RR=B+20RR=E0RR=E~ 

1 ORfi=FTHEN2000 

200  I Ffl=F- 1 ORfl*HORR=H- 1 ÜRR= I ORR= I  + 1 0 
RR=JORR= J- 1 ORR=KORR=K+ 1 ORR=MORR=M+ 1 T 
HEH2000 

210  PRINT" EHQM3 "G 

220  I FB=8 1 39THENP0KEB , 32 : PÜKEB+1 , 32 : 
£=8120 

230  IFO8052THENPÜKEC,  32 :  POKEC+1 , 32 : 

240  IFB-7963THENPÜKED, 32 : POKEB+1 , 4 : B 
-7944 

250  IFE-8077THENPOKEE, 32 : E=8097 
260  I FF-7988THENP0KEF , 32 : F=8009 
270  IFH=7767THENP0KFH, 4 ’ H=7789 
280  I F I -7833THENP0KE 1,32: 1=28 i ¿ 

290  IFJ=7856THENPÜKEJ , 32 : J=7877 
300  I FK=7922THENP0KEK , 4 : K=7900 
310  I FM=792 1  THENPOKEfl,  32 :  l'1=79Ü0 
320  P0KEJ6874,  l  Puf  E  Jt,6.'4, 5 
600  B=B+ 1 : C»C+ 1 : B=B+ 1 : E=E- 1 : F=F- 1 : H* 
H-l  :  1  =  1  +  1  :  J=J-1  K=K+1  :(1=M+1 
610  POKEB- 1 , 32 : POKEC- 1,32: POKEB- 1 , 32 
• POKEE+ 1 , 32 : POKEF+ 1 , 32 : P0KEH+ 1 , 32 : PO 
KEI-1,32 

620  POKEJ+1 , 32 : PÜKEK- 1,32: POKEM- 1 , 32 
700  IFR=8174THENÜ*0+1 : IFO=201 HENPOKE 
fl,  32 :  R=R-44  ■’  0=0 

900  P0KE36878, 0 : P0KE36878, 15 : P0KE368 
76,125: P0KE36S75 ,135: P0KE36874 ,145 
1000  GOTO 100 

1010  DRTR129, 66, 60, 126,219,255, 102,6 
0,31,52, 100,68, 127, 127,48,48,128, 192 
,96,48,254,254 

1020  BRTR24, 24, 12, 12.60, 76,255,88,21 
9, 195, 255, 129, 189, 165, 165, 189, 129,  25 
5 

1030  BRTR24, 16, 16, 16, 126,255,255, 126 
2000  V-V-l : POKER, 0 

2010  P0KE36879, 47 : PÜKE36874, 150 : FORW 
=1T0255 : P0KE36878, W : NEXT : P0KE36874, 0 
: P0KE36879, R 
2020  IFV90THEN97 

2030  PR I N  T “ [ VEL ] C  Hüm  1 1 1 CRSRB  K  9CR3RR ] 
FIN" : ENB 

3000  P0KE36878 , 15 : FORW=7680TO8185 : PO 
KEW, 32 : NEXT 

3010  FORL* 1 48T0228STEP . 7 

3020  P0KE36876, L 

3030  NEXTL 

3040  FORL= 1 28TO200 

3050  P0KE36876, L 

3060  NEXTL 

3070  FÜRL=200TO128STEP-1 
3Ü80  P0KE36876,L 
3090  NEXTL 


3100  PQKE36878, 0 
3110  P0KE368 76,0 
3120  IFV<3THENV=V+1 ■ P0KE36879, 8 
3130  R=1NT <RND< 1 >#6 J +9 : P0KE36879, R 
3140  P=0 : 0=0 : GOTO60 


Dibuja  una  margarita  con  el  radio  que  se  desee.  (Para  valores 
mayores  que  98  se  sale  de  la  pantalla),  el  número  de  puntos 
que  se  quiera  (con  más  puntos,  mayor  nitidez  en  las  líneas)  y 
los  pétalos  que  se  nos  antoje.  (Según  la  norma  dada  en  la 
presentación). 

Comentarios  del  listado: 

1-  1 1  Petición  de  datos. 

12-  30  Protocolo  de  entrada  en  alta  resolución. 

40-  90  Paso  a  polares  y  fórmula  de  la  rosácea. 

100  Centrado  en  pantalla  del  origen  de  coordenadas. 
110-170  Dibuja  en  alta  resolución. 

170-200  Fin. 


1  PRINT"CCLR3" :PRINTTRB<9), "BIBUJRNB 
0CSPCJLR1SPC3NRRGRRI TR" 

2  PRINTTRBÍ9)  J "  [22C0C1MI 3 " :  PRINT  ¡  PRIN 
T 

3  PRINT" INBICRRCSPC3ELCSPC3RRBICKVHL 
0RISPC3MRX. 98> " 1 : INPUT  R : PRINT : PRINT 
: PRINT 

4  PRINT‘'?CURNT0SCSPC3PUNT0S" i  ■  INPUT 
N¡ PRINT  PRINT: PRINT 

5  PR I NT " PRRRC  SPC  3  BETERU I NRR  C  SPC  3  EL  C  SPC  3 
NUMERO [ SPC  3  BE  t  SPC  3  PETRL0S [ SPC  3 : " :pRI 
NT: PRINT 

6  PRINT"*CSPC3SI CSPC3LISPC3E3CSPC3 IM 
PRR , EL I SPC  3  NUM . C  SPC  3  BE I SPC  3  PETRLOS  £  SPC  3 
ESCSPC3L": PRINT 

7  PRINT "ÍCSPC3SI CSPC3LCSPC3ESCSPC3PR 
R, ELCSPC3NUM. [SPC3BECSPC3PETRLOSCSPC3 
ESCSPC32L" : PRINT: PRINT: PRINT 

8  PR  I  NT "  BRR  £  SPC  3  EL  £  SPC  3VHLLIR  £  SPC  3  BE  E  SPC  3 
L" i : INPUT  L 
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9  PRINT" ECLR3"  PRINT  PRINT  ■ PRINT :PRI 
NT  ¡  PftINT  ■'  PRINT 

10  PRINTTABC  10)  i  " ESPERA C SPC 3 UNC SPC 3 M 
OMENTO. . . " 

11  POR  W®0  TO  800 • NEXT  W  :pRJNT"£CLR3 

12  BASE»2*4096 '• P0KE53272, PEEK<53272> 
ÜR  8 

13  PÜKE  53265, PEEK( 53265 ) OR  32 

20  FOR  I*BASE  TO  BASE+7999 : PQKEI , 0 : N 
EXT 

30  FOR  1*1024  TO  2023 : PÜKE  I,3:NEXT 
40  H2«2*rr 
60  I N*A2/N 

70  FOR  T*0  TO  A2  STEP  IN 
80  R-A*CÜS<L*T) 

90  X»R*COS<T):Y-R#SIN<T) 

100  XP=160+X • VP*100-V 
110  RÜ*INT  < VPX8) 

120  CH*INT<XP78) 

130  LN*VP  AND  7 
140  BI*7-CXP  AND  7) 

130  BVP»BASE+R0#32tí+CH#8+LN 
160  PÜKE  BVP,PEEKCBVP)0RE2TBI> 

170  NEXTT 
180  PÜKE  1024,16 
190  OOTO 190 
200  END 


Pintor 


Alfredo  Sindin  Valero 

Avda.  Logroño,  42  -  Villa  Esther 
Madrid-22 

VIC-20 

Este  juego  consiste  en  dirigir  un  hombrecillo  mientras  pinta 
toda  la  pantalla,  escapando  a  la  vez  de  un  terrible  monstruo. 
El  juego  tiene  cinco  niveles  de  dificultad,  y  cada  vez  que  se 
completa  una  pantalla,  el  nivel  es  aumentado.  Si  llenamos  tres 
pantallas  en  el  nivel  quinto,  el  ordenador  se  rinde  (creo, 
porque  aún  no  he  podido  llenar  dos...).  Por  lo  demás,  el  juego 
es  autoexplicativo. 


1 0  P0KE3687S ,15- P0KE36879 , 140  PRINTC 
HRÍ < 14) " [ CLR ] EWHT] ******* E RVSON  J [ SPC ] 
ESHIFTP3ESHIFTI J  ESHIFTN] ESHIFTT3  ESHIFTOJ 
E SH I F  TR ] C  SPC  3 [ RVSÜFF ]*******" 


11  PR I NT " E  SH I FTT  3  E  E  SPC ] HAN 1 SPC 3  ENCAR 
ORDO  C  SPC  3 QUE £  2SPC  3  [  CRSRD  3P I NTES  £  SPC  3 
DE  C  SPC  3  RO  JO  £  SPC  3  EL  L SPC 3  CAN- C CRSRD  3  PO 

f SPC  3 DONDE  C  SPC  3  HAB I TA  C  SPC  3  EL £ 4SPC 3  C CRSRD  3 

12  PRINT"#ESHIFTMJ  ESHIFTQ3  ESHIFTN3  ESHIFTS3 
ESHIFTT3  ESHIFTRJ  ESHIFTU3  ESHIFT03  ESPC3 
ESHIFTC3ESHIFT03ESHIFTMJ  ESHIFTE3  ESHIFTH3 
ESHIFT03  ESHIFTM3  ESH1FTB3  ESHIFTR3  ESHIFTE3 
ESHIFTS3*ECRSRD3ESHIFTP3ARAESPC3MOVE 

RIE  C  SPC  3  POR  C  SPC  3  LA  E  3SPC  3  £  CRSRD  3  ZONA , 

T I ENES  C SPC  3  QUE  C  SPC  3  USAR  C  2SPC 3 [ CRSRD  3 

1 4  PR 1  NT " EL  E SPC  3  TECLADO ¡ £  1 1 SPC  3  £ CRSRD  3 
£  5CRSRR  3  £  RVSON  3Z  E  RVSOFF  3-£SHIFTR3BAJ 
0.  " 

15  PR I NT " E  CRSRD  3  £ 5CRSRR 3  E  RVSON 3  X  £  RVSOFF  3 
-ESHIFTA3RRIBA. "  ¡ PRINT" ECRSRD3 E5CRSRR3 

£  RVSON  3 ,  £  RVSOFF  3  -  £  SH  I FT I  3  2QDA .  "  :  PR  I N 
T  "  E  CRSRD  3  £  5CRSRR  3  £  R  VSON  3 .  £  R  V80FF  3  -  £  SH  I F  TD  3 
CHA. EH0M3" 

30  FORT* 1 TO 1 5000 ¡ NEXT 
40  PRINT"£CLR3£SHIFTN3 IVELESPC3DEESPC3 
JUEGO ( 1 75 ) ESPC  3 " i ■ PUKE204 , 0 

42  GE T A* : L* VAL ( A$  ) : IFL<10RL>5THEN42 
44  POKE204,  1 • 0NLGÜT045, 46, 47, 48, 49 

43  N*24 1 : 0* . 8 : S*0 : GÜTÜ50 

46  N*24 1 : 0" .  3 : S=0 ¡ GOTO50 

47  N*461 : 0". 5 • 8*0 : GÜTO50 

48  N*46 1 ; 0® . 2 : 8*0 ; GOTO50 

49  N=421 : 0=. 25 : S=1 

50  DATA, 16, 17, 18,220,252,222, 
17,28,28, 17,223,252,223, 17,28, 

52  DATA28, 28, 8, 255, 29, 29, 36, 66, 56, 56 
, 16,254, 186, 186,40, 108,56, 136,123,63 
, 59, 72, 136, 8, , 56 

54  DATA136, 251, 63, 251, 136,56,56,56, 1 
6,255, 184, 184,36,66,28,28,8, 127,93,9 
3,20,54,126 

56  DATA 126, 126,126, 126, 126, 126, 126,  , 
255,255,255,255,255,255, ,36, 153,90,6 
0, 183,102,60, 198 

58  DATA36, 153,90,60, 126- 165,60, 195,7 
3,3?, 158, 122, 122, 158,37,73,69,41,158 
, 122, 122, 158,41,69 

60  RESTORE ¡ FOR I *7 1 68T0728? ¡ READQ : POK 
El ,  Q  NEXT  ¡  IFPEEKC56K30THENPOKE56, 28 
■'  P0KE52, 28 

62  F0RI*7424T07431 : POKEI , 0 : NEXT : POKE 
36869,255 

80  PR I NT " E  HOM  3  £  RVSON  3  £  WHT  3  £  22C0MM+ 3  £  RVSOFF  3 

82  IFS*0THEN : FORI-0TO20 : PRINT "1388000 
@000308800008888" ,  next 

84  IFS-1THEN -FORI-0TO20: PRINT" ERVSON3 
£  CÜMM+ 3  £  RVSOF F  3  @8080000800880000888  £  RVSON  3 
£  COMM+ 3  £  RVSÜFF  3  "  i  •'  NEXT 
86  I FL0-3THENPR I NT " £  RVSON  3  £  2 1 CQMM+ 3  £  HOM  3 

88  I FLC3THENPR INT  "  £  HOM  3  £  1 2CRSRD  3  E  RVSON  3 
£  22C0MM+ 3 " i  ■ FOR I  * 1 T09 ¡ PR I NT " £ 22C0MM+ 3 

" i : NEXT 

89  PÜKE7922 , 0 ■ P0KE792 1 , 0 

90  P*7922 ¡ C*30720 : F«?935 : POKEP , 4 : POK 
EF'+C,  1  ^  H*0  :  NC-0 

100  A=PEEKC203) 

110  A*INT<<A-26>/3)  D«22*(A-0)+<A»l ) 
-224KA*2)-(A=3) : E*PEEK(P+D) : IFEANDEC 
J9ANDEO  1 0THEN 1 30 

115  IFPEEK(P+D3*0THENNC*NC+1 -P0KE368 
77 , 250 : FORT* 1 TO 1 0 : NEXT : P0KE36877 ,01 
FNO=NTHEN250 

1 20  POKEP ,  9+  <  AAND 1 )  :  POKEP+C ,  2  ■  P-P+D : 

POKEP, 2*A+1  POKEP+C, 1 : POKEF , PEEK  <  F)+ 

1 30  IFPEEK < F+R  K 1 3ANDRND  £ T I ) COTHEN 1 8 
8 

1 40  B*- < I NT  C  C  F-7680 ) 222) « I NT  < ( P-7680 
'>/  22)) 


m 


1 50  R=»-B*  (  P>F  >  +B*<P<F  >  +22*  C. B=0RNDP<F 
>-22*CB=0RNDP>F) : IFDTHENPOKEP, 2*R+2 
160  I FPEEK í F+R ) > 1 3THENB= I NT  <  RND  <T I) * 

43 :R“<B*0)“<B“l)_22*(Ba2)+22#(B*33 :0 
OTO160 

170  I  FP*F +RTHEN200 

1 60  PÜKEF , H i POKEF+C , J : F  =F+R  H-PEEK < F 
> : J«PEEK£F+C):POKEFi 13-2*CRRND1 ) ; POK 
EF+Cj  7 

161  IFDTHENPOKEP; 2*6+2 

185  FOR I  =>0TO3  ■  P0KE36876 , 250-30*  I :  NEX 
T : P0KE36876j  0 

1 90  I  FH>0RNDH<!9THENPOKEF ,  H :  POKEF+C .  J 
■ F  »F-R • POKEF  < 1 3-2* ( RRND1 ) : POKEF+C , 7 ■ 
OOTO200 
195  OOTO 100 

200  CR*PEEK£P) : FGRI=0TO7 : P0KE7168+I+ 

8*Cfl, 255 : PÜKE36876/ 250-10*1 
205  FORT“1TO50 : NEXTT ,  I 
210  PÚKE368?6< 0 : PRINT" EHOM] E RVSON 3 HFl 
[ SPC 3  S I  DO  E  SPC  3  CRPTURRDQE  SPC ] ! ! ! CSPC3 
■ P0KE36874i 150 ; FORT»1TO2000 : NEXT : P 
0KE36874  <  0 
220  OÜTCI50 

250  POKEP  ,  3+  C flFlND  1 )  ¡  POKEP+C .  2  =  P=P+D : 
P0KEP<2*R+1 :POKEP+C. 1 : PR I NT " C  HOM ] L RVSON  J 
B I EN C SPC3 HECHO I C118PC]'1 
260  P0KE36376 , 230 : FORT- 1 TÜ 1 000 • NEXT • 
PÜKE36876 > 0 : 1 FL<5THENPR I NT " [ HOM ] C  RVSON ] 
RUMENTO  [  SPC  ]  LR  í  SPC  ]  D I F I CULTRD  C  SPC  ]  " 

270  L»L-(U5>  :  I FL*»5THENC0*C0+ 1  •  IFCO» 
4THENPR I NT " L HOM ] í RVSON ] [ 22C0MM+ ] " 

280  FORT"1TO2000 : NEXT : IFCÜ<4THEN44 
300  P0KE36869  i  240 :  PR  I NTCHR»  £  1 4 )  •'  [  CLR  ] 
CSHIFTB]  C6HIFTR]  [SHIFTR]  l'SHIFTV]  tSHIFTO] 

> [SHIFTH] CSHIFTR] [SPC] CSHIFTL3  CSHIFTO] 
CSHIFTG] [6HIFTR3CSHIFTR] [SHIFTD3CSHIFTO] 
CSPC3CSHIFTÜ3£SHIFTR3nSHIFTN3CSHIFTR3 
C8HIFTR3" 

310  P0KE36869 , 240 : PR I NTCHRÍ (1 4 ) " £  CLR  3 
£SH£FTB3  £SHIFTR3  £SHIFTR]£SHIFTV3£SHIFT03 
,  ESHIFTH3  £SHIFTR3  £SPC3  £SHIFTL3£SHIFT03 
£SHIFTG3£SHIFTR3  ESHIFTR3  ESHIFTD3  ESHIFT03 
£SPC3  ESHIFT03  ESHIFTR3  £SHIFTN3£SHIFTR3 
ESHIFTR3 " 

320  PR I NT " £  SH I FTE  3 SPERO £  SPC  3  QUE  E  SPC  3 
SEESPC3HRVRESPC3DI-E CRSRD 3 VERTIDO.  ESHIFTN3 
OSE SPC 3 VEREMOS! ! " 

330  PR I  NT " £  CRSRD  3  E  3H I FTQ  3  U I ERE  £  SPC  3  J 

UGRR E SPC 3 MRS £ S7N >“¡  ■  POK.E204 ; 0 

340  GETRÍ  :  IFR$O"S"RNDfi$O"N"THEN340 

350  I FR*“ " S " THENRUN 


Cuando  queremos  cargar  un  programa  desde  otro,  la  lon¬ 
gitud  del  segundo  ha  de  ser  menor  que  la  del  primero,  o  no 
se  cargará  correctamente.  Para  solucionar  esto  hay  que 


escribir  en  vez  del  “LOAD”  lo  siguiente: 

POKE63 1 , 13 1  :POKE  1 98, 1  :END 

Produce  el  mismo  efecto  que  SHIFT/RUN  STOP 

G.S.  RUN  EEUU. 

Errores  de  carga 

Si  recibes  demasiados  errores  en  la  carga  de  un  programa, 
puede  ser  debido  a  que  el  cassette  este  demasiado  cerca  del 
televisor.  Prueba  a  alejarlo. 

R.D.B.  RUN  EEUU. 


Este  programa  calcula  la  integral  en  el  intervalo  de  una 
función  por  el  método  de  Simpson  (apliqúese  la  cita  de 
Leonardo  en  el  artículo  sobre  mi  programa  “R.  Functions”). 
Para  el  correcto  funcionamiento  del  programa  se  han  de 
cumplir  las  instrucciones  que  se  adjuntan  al  principio  de  este  a 
RAJATABLA.  Y  esta  vez  no  hay  excusa,  ya  que  están  en 
castellano. 

La  base  del  programa  son  los  ARRAYS  y  la  fórmula  de 
Simpson  aparece  en  la  última  parte  del  programa. 

Una  recomendación:  ojo  con  las  discontinuidades  de  salto 
infinito,  pueden  llevar  a  que  su  máquina  exprese  desagrado  con 
inconvenientes  para  usted  y  su  familia. 

No  creo  que  sea  difícil  adaptar  este  programa  a  un  VIC-20 
(siempre  que  tenga  una  ampliación  de  memoria  aceptable)  ni  a 
ningún  otro  microordenador. 


0  PR I NT " E CLR 3  E RVSON 3  C WHT 3 1 NSTRUCC I ON 
ES : E RVSOFF 3  ECOMM73 " : PRINT" E CRSRD  3 1 NT 
RODUZCR E  SPC  3FUNC I GN  E  SPC  3  SEGU I DO  E  SPC  3 
DE  E  SPC  3  E  RVSON  3  E  WHT  3  8  E  CÜMM7  3 " 

1  PR I NT " VE  SPC  3  RPR I ETE  E  SPC  3  E  RVSON  3  E WHT  3 
RETURNECOMM73 " 

2  PRINT" SEGU I DRMENTE E SPC 3 RPR I ETE E SPC 3 

E  RVSON  3  E  WHT  3RETURN  E  RVSOFF 3  E  SPC  3  DOS  E  SPC  3 
VECES  E  C0MM7 3  E  3SPC 3  CGNSECUT I VRS " 

3  PR I NT " SEGU I DRMENTE E SPC 3 1 NTRODUZCRE SPC 3 
LOS  E  SPC  3  PHRHMETROS " 

4  PR I NT " EL  E  SPC  3  ORDENRDOR E  SPC  3  EXPONDR 
RESPC3ELESPC3RESULTRDOESPC3V" 

5  PR I NT " RPR I ETE E SPC  3  E RVSON 3  E WHT  3 RETU 
RNECOMM73E RVSOFF  3  E  SPC  3  ÜTRR  E  SPC 3  VEZ . " 

É  PR I NT " E 2CRSRD 3  E RVSON 3 RPR I ETE E SPC 3 U 
NESPC3TECLR" 

10  GETG*: IFG#®" "THEN10 

15  PR I NT " E  CLR  3  E  9SPC 3  E  SH I FTU  3  B  E  2CR8RD3 

E  2CRSRL  3  E  SH I FTK  3  R  E  2CRSRU 3 " : CLR 

20  I NPUT " I NTEGRRL E  CRSRR 3  E  SH I FTB  3  E  2CRSRL 3 

"JR* 

60  PR I NT " E  4CR6RD 3 1 62DEFFNSM ( X  3 » " R* " C  CRSRL  3 
ESPC3 " ¡ PRINT"RUN105" ; PRINT" E5CRSRU3 " 

:  END 


105  E-EXPCU 
110  DX-1 

130  I NPUT " PR I MER  C  SPC 3 PUNTOC  SPC ] DEL  í SPC 3 
INTERVALO (A 3  "  ,  A 

140  I NPUT " SEGUNDO  C  SPC 3  PUNTO  C  SPC 3 DEL  C  SPC  3 
INTERVALO (B) "i  B ; PRINT 
1 50  I NPUT “ C  CRSRU J  NUMERO  C  SPC  3  DE  C  SPC  3  D 
IVI 8 1 ONESC  7SPC  3 [ 7CRSRL 3  " ,  M 
1 53  I FM>3750THENM«3750 : PR I NT " NUMERO  C  SPC  3 
DE  C  SPC  3  D I V I S I ONESC  SPC  3  L I M I TADO C  SPC  3  A 
:  "M : G0T0162 

155  I FMO0ÜR  ( M- 1  NT  <  M  >  ) O0THEN 1 50 
170  DIMVC2ÍM) 

175  X-H 

180  IX-CB-A)A2*M> 

190  F0RR»1T02*M 
200  X-X+IX 
210  V(R3“FNSM<X) 

220  NEXT 
240  Sl-0 
250  S2-0 

260  FÜRR»1T02*MSTEP2 
270  S1-S1+YCR) 

280  NEXT 

230  F0RR«2T02*MSTEP2 
300  S2-S2+VCR) 

310  NEXT 

315  X-A : Y0*FNSM<X) 

320  X-B : Y2M-FNSM<X> 

330  F*CIXX3>ltKV0+V2M+2*S2+4*Sl> 

332  PR I NT " C  CRSRD  3  L A [ SPC  3  SOLUC I ON  L SPC  3 

ES:  " 

334  PR I NT " [ CRSRD 3"B  PRINT"t CRSRD 3 " A 

335  PR I  NT " C  2CRSRU 3  C SH I FTB  3  C CRSRU  3  CCRSRL3 
[ SH I FTU  3 [ 2CRSRD  3  C  CRSRL  3  L SH I FTK  3  £  CRSRU  3 

336  FORT- 1074TO 1100 

337  I FPEEK ( T ) -0THEN400 

338  I FPEEK ( T > C32THENPR I NTCHRf < PEEK <  T 
)+64); : GOTO350 

340  PR I NTCHRÍ ( PEEK  (  T  >  >  i 

350  NEXT 

400  PRINT"-" i F 

500  PRINT" [3CRSRD3 162C3CRSRU3 " • END 


Magia 


Comando  SAVE 

Con  el  comando  SAVE  (grabar)  podemos  conseguir 
curiosos  efectos;  por  ejemplo: 

SAVE”[CLR]  NOMBRE  DEL  PROGRAMA” 

Cuando  el  ordenador  encuentra  este  programa,  la  panta¬ 
lla  se  borra  y  el  nombre  aparece  en  la  parte  superior.  Efectos 
parecidos  se  producen  con  un  [RVS  ON],  [CTRL+CO- 
LOR],  etc.  antes  del  nombre  del  programa. 

A.I.  RUN  EE.UU. 

Par  o  impar 

Una  manera  fácil  de  saber  si  un  número  es  par  o  impar  es 
utilizando  el  operador  lógico  AND.  Si  el  resultado  es  uno,  el 
número  es  impar,  de  lo  contrario  es  par. 

Ej.  PRINT  234  AND  1;  nos  responderá  0;  437  AND  1 
nos  responderá  1. 

Este  truco  sólo  sirve  para  números  comprendidos  entre 
-32768  y  36767,  si  nos  salimos  de  estos  límites  el  ordenador 
nos  dará  un  ILLEGAL  QUANTITY  ERROR. 

W.C.N.  RUN  EEUU. 


Invasores 


¡m— 

m 

El  título  ya  es  bastante  explicativo.  Manejando  una  base  láser, 
debemos  destruir  los  distintos  tipos  de  invasores  que  tratan  de 
destruirnos  y,  de  paso,  invadir  nuestro  planeta. 

Los  mutantes  se  dirigen  directamente  a  nuestra  nave  para 
absorber  nuestra  energía,  pero  saben  apartarse  de  los  láser... 
Los  cazas  disparan  rayos  que,  de  alcanzarnos,  nos  quitarán  la 
mitad  de  la  energía  disponible,  y  el  único  interés  de  los 
transportes  es  aterrizar  en  la  explanada  de  nuestra  zona 
defensiva.  Destruir  estos  invasores  nos  dará  puntos  y  energía. 
Este  programa  funciona  en  el  VIC  sin  expandir  y,  con 
ligerísimas  modificaciones,  puede  funcionar  en  una  máquina 
con  16  K.  Dejo  a  la  habilidad  de  los  interesados  el  desarrollo 
de  estas  modificaciones. 


5  PQKE36878, 1 5 ¡ R-36877 : R 1 -36876 : CL-7 
: EN- 1000 : SI -36875 : A*- " C SPC  3 [ VEL  3  EF  í SPC  3 
C  CRSRD  3  [  4CRSRL  3  C  SPC  3  GH  C  SPC  3  11 
10  PÜKE36879) 8 : PRINT" CCLR3 " : C-30720 : 
GOTO 100 

20  EN-EN-50 : FOR I -8077+ATO7703+ASTEP- 
22 :  F- 1  •'  S-8+5 : 1  FPEEK  (  I  >  C5THENG0SUB45 

22  IFI>7703+ATHENPOKEI > 0 : POKEI+C, 2 : P 
OKER.250-S 

23  NEXT 

24  FORD-8077+ ATOFSTEP-22 ; PÜKEDj  32 : NE 
XT : P0KE3687?, 0 : S-0 = RETURN 

45  W-PEEKCI)  : SC-SC- 1 04í ( W=4 > -20ÜK W-3 ) 
-30*<;W»2) 

50  F0RE-9T0 1 4  POKE I , E : POKER  h 1 10+10* 

E : POKEI+C <  CL : CL- 1 4XCL : FORTA- 1 TO20 : NE 
XTTAj  E 

55  P0KEI > 32 : PÜKER1 . 0 : I-7703+A : AU-0 : M 
«0 : DE- 1 ; EN-EN+ 1 00 : RETURN 

100  DATA2>  1,2,  \,2,  L2.L  16,8, 16/8, 16 
/ 8/ 16/8, 102,255/ 153/ 153/255/ 153/66,3 
6/36,66, 153,231 

101  DATA231, 153,66/36/24,60/231/255/ 
195/ 129, ,, 1,3, 7, 4, 7, 7, 3, 3, 128, 192,22 
4,32,224,224, 192 

102  DATA 192, 7, 71 , 77, 221 , 253,39, 35, 12 
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Commodore  World 


7.224.226. 178. 187. 191.228. 196.254. .  , 
,24,24, , , , , 

103  DRTA36 , 24 ,  24 , 36 , ,  16, 128,26,36,90 
,90,36, 154,2,60,66, 129, 153, 153, 129,6 

6.60. .  .36. 16. .40. , 

104  DATA,  68,0, 18, ,  ,68,4, 128,  192, 192, 

223.251.255. 255 . 255 . .  . 64 . 224 . 248 . 252 
,252,255, , , , ,24 

103  DATA60, 126,255, , , ,7, 15,31,95,255 
, , , ,  129, 195,231,255,255 

106  FÜR I -7 1 68T07327 : READA • POKE I ,  A : NE 
XT  ■'  A-S  :  PCIKE56,  28  :  P0KE52,  28 

107  F0RI-7424T07431  ;  POKEI ,  0 :  HEXT  :  FOR 
I  -7328T07335 :  POKE  1 , 255 :  NEXT :  P0KE3686 
9,255:GÜTO490 

108  PR I NT " E  CLR  3  E  BLU  3  E  22CRSRD 3 GPQRSOT 
TTTTOPQRSOPQRSEHOM3 " 

1 10  B*PEEK( 197) ■ A»A-(B=37ANDA<18)+<B 
»29ANDA>0 ) : PRI NT " £  HOM ] £  1 9CRSRD3 "  TAB  < 
A)AÍ 

115  GNMGQTO150, 150,200,200,300:M«INT 
<RND( 1 >46) 

130  IFPEEKÍ 653 ) » 1 ANDEN>50THENGÜSUB20 

135  PR I NT " C  HOM ] C  RVSON  3 E CVN  3  SCORE» " SC 
: PR I NT " E  HOM  3  E  RVSÜN  3  E 1 1 CRSRR 3 ¡ FUEL»" S 
TRÍCEN) ”[8PC3" 

137  IFENC5BTHEN400 
140  GOTO110 

150  I FRU»0THENflU» 1 : P»7702+ 1 NT  <  RND  <  T I 
)«22> 

1 55  PÜKEP , 32 : E»P- I NT ( C P-7680 ) 722 ) «22 
-7682 : P*P-22#í P<8120)-<E<A>+CE>A) 

157  IFPEEKCP) O32THEN400 

158  IFPEEK(8100+E)»5ANDRND< 1 )C. 5THEN 
I-RND(l)  :P»P-(K.5>+(I>».5> 

160  PÜKEP , 2 : POKEP+C , 5  FOR I -2S0TO 1 25S 

TEP-5 ; POKER 1 , I : NEXT : GOTO130 

200  I FAU-0THENAU» 1 : P»7  746+ 1 NT ( RND ( 1 ) 

*14>«22: I»RND<1) :G»-<I<.5)+(I>.5) ¡F/í 

»(G<0)+(P-76B0)722 

210  PÜKEP, 32 : P=P+G : IFINT ( (P-7680)722 
>OFXTHENRU»0  •  M=0 :  GOTOl  30 
220  PÜKEP, 3 ; PÜKEP+C , 4 : FORSO-225TO250 
: PGKESl , SO ¡ NEXT : P0KE31 , 0 : IFRNDCTI »■ 

. 2THEN130 

225  FÜR  I  *P+22TO8076+P-7680-22«  I  NT  (  <  P 
-7600) 722 3STEP22 : S-S+5 : F-I 
233  PüKEI , 1 1 POKE I +C , 5 : POKER 1 , 1 28+S • N 
EXT : 8-0 1 I FPEEK C I +22 ) O32THEN250 
237  POKER 1,0  S*0 

240  FÜR I ■P+22T0FSTEP22 : POKE 1,32: NEXT 
: GOTO 130 

250  POKER  1 , 0 :  F0RU-9T014 :  POKEI ,  IJ :  POKE 

R 1 , 250- 1 0*11 :  POKEI  +C ,  CL :  CL- 1 47CL  :  FORT 

R“ 1 TO 1 0 : NEXT • NEXT 

253  POKER  1 , 0 : EN- 1 NT  <  EN72 ) : GOTO240 

300  IFRU-0THENHU-1 : P-7704+INTCRNDC 1 ) 

«18) 

310  PÜKEP, 32 :P-P-22»(P<8142)-(P>8142 
)  :  PÜKEP,  4  :  PQKEP+C,  1  •’  IFP>8160THENPOKE 
P,  32 : RU-0 : M-0 

320  FORI-200TO150STEP-2 : POKES1 , 1 :  Kf  X 
T i POKES1 , 0 

330  I FPEEK (P+22)O20THEN  130 
400  PR I NT M  C  HOM  3  C  5CRSRD  3  C  RVSON  3  C  SPC  3  S 
E [ SPC  3  HCRBO  C  SPC  3  SUC  SPC  3  ENERG  IRC  SPC  3 1 
" : PR I  NT " C  HOM  3  £ RVSON  3  £1 1 CRSRR  3  C  CVN  3 ¡ F 
UEL-£SPC30£3SPC3 " 

410  FÜR I - 1 28TÜ25SSTEP2 : POKER  1 , I ¡ POKE 
8 1 , I +5 : FORT» 1 TO50 : NEXT : NEXT ¡ POKES 1 , 0 
•POKER 1,0 

420  PRI NT “ £  RVSON  3  £  7CR3RD 3  E  4SPC 3  PULSE 

£  SPC  3  UNA  £  SPC  3  TECLA " : PÜKE 198,0 

430  GET Jí : I F Jí- " " THEN430 

440  M-0 : RU-0 : R-8 : EN» 1 000 : NN-NN+ 1 : I FN 

NC3THEN108 

450  PRINT" ECLR3 " : P0KE36869, 240 : PRINT 
" £VEL3LO£SPC3SIENTO, PEROESPC3HRNE4SPC3 


£  CRSRD 3  GANADO  £  SPC  3  LOS  £  SPC  3  £  RED  3 I N VAS 
ORES. " 

455  PR I NT " £  CRSRD  3  £  GRN 3  LOGRASTE " SC "PU 
NTOS. M 

460  PR I NT " E  CRSRD 3  £  VEL  3  GU I ERE  £  SPC  3  JUG 

RR  E  SPC  3  MAS ( S7N ) ? " : POKE 1 93 , 0 

470  GETJÍ  :  IFJíO"S"RNDJÍC>"N“THEN470 

480  I F Jí» " N " THENPR I NT " £  GRN 3  PUES  £ SPC  3 

ADIOS. " : END 

490  P0KE36869,  255 

500  PR I NT “ £ CLR  3  £  VEL 3  £  RVSON 3  *«*«««£  SPC  3 
I NVASÜRES  £  SPC  3  #*«** £  CRSRD  3  DEBES  E  SPC  3 
DEFENDERE  SPC  3  TU  £  SPC  3PLA- £  CRSRD  3NETA  £  SPC  3 
DE  £  SPC  3  L  A  £  SPC  3  £  F'UR  3 1 N  V  AS  I ON  E  3SPC  3  £  CRSRD  3 

510  PRINT"  GAL  ACT I CA  £  VEL  3  E  SPC  3  CON  £  SPC  3 
TU £ SPC 3 BASE.  E CRSRD 3 "J 
530  PR I NT " £  RVSON  3  £  VEL  3  TUS  £  SPC  3  ENEM I G 
OS  £  SPC  3  SON :  E5SPC3E  CRSRD  3  £  3SPC  3  £  RVSOFF  3 
£  GRN  3  B  E  RVSON  3 : MUT ANTE . " :pRINT"ECRSRD3 
E3SPC3  ERVSÜFF3  EPUR3CERVSGN3 : CAZA. " 

540  PRI NT " £  CRSRD  3  £  3SPC 3  E  RVSOFF  3  £  WHT  3 
DE  RVSON  3  :  TRANSPORTE.  "  :  PRINT"  £  VEL  3  £  RVSON  3 
E CRSRD 3 MANDOS: ", 

542  PR I NT " £  SPC  3  E  RVSON  3  £  RED  3  <: I ZQDA . " 

: PR I NT " E  CRSRD  3  E  8SPC  3  C  R VSON  3  £  C VN  3  > : DC 
HA . £  SPC  3 " : PR I NT " £  CRSRD 3  E  8SPC 3  £  RVSON  3 
EPUR3SHIFT: DISPARO. " 

545  PR I NT " E RVSON  3  £  VEL  3  PULSA  E  SPC  3  UNA  £  SPC  3 
TECLA. E HOM 3" 

550  GETJÍ : IFJí»" "THEN550 
560  RESTORE :NN»0: GOTO 108 


Computer  Bank 
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Antonio  Luis  Climenta  Albaladejo 
Comuneros,  15 

30003  MURCIA 

C-64 

Es  un  juego  derivado  del  gugol,  en  el  que  una  entidad 
financiera  realiza  emisiones  de  series  de  seis  billetes  de  distinto 
importe. 

Cada  vez  que  un  jugador  va  a  realizar  una  jugada  deberá 
aportar  al  fondo  o  poceta  de  apuestas  la  cantidad  acordada 
inicialmente. 

Al  jugador  a  quien  corresponde  jugar  se  le  muestran  uno  a  uno 
los  billetes  de  la  serie.  El  deberá  procurar  quedarse  con  el  de 


valor  más  alto,  no  pudiendo  ejercer  ninguna  opción  sobre  los 
que  rechazó  con  anterioridad  al  billete  que  se  le  muestra.  Si  su 
elección  recae  sobre  uno  de  los  cinco  primeros  obliga  a  jugar 
sobre  el  último  de  la  serie,  caso  de  que  este  sea  el  mayor  de  su 
serie  deberá  repartir  la  poceta  con  el  resto  de  los  jugadores.  Si 
un  jugador  rechaza  el  quinto  billete,  está  obligado  a  aceptar  el 
sexto.  Agotada  la  serie,  si  algún  jugador  ha  elegido  el  mayor, 
ha  ganado  esa  serie  y  deberá  retirar  el  importe  de  las  apuestas 
acumuladas  hasta  ese  momento  en  la  poceta. 

Los  valores  de  los  billetes  que  componen  una  serie  son 
generados  aleatoriamente  por  el  ordenador. 

El  diagrama  de  flujo  y  el  cuadro  de  variables  ayudan  a 
comprender  el  funcionamiento  del  programa.  A  continuación 
se  realiza  una  breve  descripción  línea  a  línea. 

La  línea  número  10  establece  los  valores  de  las  variables 
HT$  y  VT$  destinadas  en  el  programa  a  tareas  de  tabulación 
horizontal  (H)  y  vertical  (V). 

La  siguiente  línea  realiza  las  siguientes  funciones: 

a)  Borra  la  pantalla  y  establece  el  color  negro  como  habitual 
para  mensajes  mostrados  a  través  de  pantalla. 

b)  Inicializa  el  contenido  de  la  variable  CL$  (colores  de  billetes 
emitidos). 

c)  Asigna  valor  inicial  a  la  variable  VD  (velocidad  de 
interpretación  de  melodías).  El  valor  inicial  sólo  se  mantiene 
durante  la  presentación. 

d)  Reserva  espacio  de  memoria  para  la  matriz  MU%  (6,10,3) 
destinada  a  contener  los  valores  correspondientes  a  6  melodías 
musicales  de  10  notas  como  máximo.  Cada  nota  se  caracteriza 
por  sus  valores  de  ALTA,  BAJA  y  DURACION.  Los  valores 
están  en  sentencias  DATA  correlativas  a  partir  de  la  línea 
40420. 

La  línea  50  llama  a  la  subrutina  22000  que  realiza  las 
siguientes  funciones: 

1)  Llama  a  la  subrutina  23000  que  inicializa  los  valores  del 
sintetizador. 

2)  Llama  a  la  subrutina  24000  que: 

a)  Borra  pantalla. 

b)  Llama  a  la  subrutina  21000  que  genera  una  serie  aleatoria 
de  seis  billetes. 

c)  Muestra  los  seis  billetes  en  pantalla.  Esta  función  la  realiza 
la  subrutina  20000  dentro  de  un  lazo  controlado  por  la 
variable  NB  (número  de  billete). 

d)  Lee  e  interpreta  las  32  notas  colocadas  en  las  sentencias 
data  de  las  líneas  40000  -  40420  inclusive. 

e)  Multiplica  por  5  la  velocidad  de  las  melodías  restantes  que 
se  ejecutarán  a  lo  largo  del  programa  dividiendo,  para  ello  la 
variable  VD  (inversa  a  la  velocidad  de  interpretación  de 
melodías). 

3)  Borra  el  contenido  de  la  pantalla. 

Las  líneas  100  a  300  muestran  las  instrucciones  del  juego. 

La  línea  1000  sirve  para  introducir  el  valor  en  pesetas  de  la 
apuesta  básica.  El  valor  asumido  por  defecto  es  de  cinco 
pesetas. 

La  línea  1010  permite  indicar  el  número  de  jugadores  (variable 
NJ).  El  valor  por  defecto  es  de  dos.  El  juego  carece  de  sentido 
para  un  solo  jugador  ya  que  al  final  de  la  partida  su  ganancia 
neta,  repartiendo  la  poceta  sería  de  cero. 

El  programa  utiliza  la  línea  número  1020  para  solicitar  los 
nombres  de  los  jugadores  que  participan  en  el  juego. 

La  línea  1030  permite  la  construcción  de  un  literal  TJ$  que 
contiene  los  valores  ascii  de  los  turnos  de  juego. 

La  línea  1040  llama  a  la  subrutina  21000  que  como  hemos 
visto  genera  aleatoriamente  una  serie  de  seis  billetes  e 
incrementa  en  una  unidad  al  contador  JU  que  contiene  a  lo 
largo  de  la  partida  el  número  de  jugada,  esto  es,  el  número  de 
la  emisión  realizada. 

La  siguiente  línea  realiza  los  cometidos  que  se  indican: 

a)  Inicia  el  contador  de  billetes  NB. 

b)  Calcula  el  valor  de  la  variable  TJ  (turno  de  juego),  a  partir 
del  cual  deberemos  posicionarnos  en  el  string  TJ$  para 
examinar  el  orden  de  actuación  de  los  distintos  jugadores  en  la 
jugada  número  JU. 

c)  Borra  pantalla  y  coloca  en  la  segunda  línea  en  inverso  el 
rótulo  del  juego  “Computer  bank”. 

d)  Inicia  el  contador  JG  correspondiente  al  jugador  ganador. 


La  línea  1080  inicia  el  lazo  de  todos  los  jugadores  que  pueden 
tener  opción  a  apostar  sobre  la  serie  emitida  número  JU. 

La  línea  1090  incrementa  en  una  unidad  el  contador  de  billetes 
(NB:  número  de  billete  sobre  el  que  se  tendrá  opción  en  ese 
momento)  y  si  el  billete  es  el  último  se  bifurcará  a  la  linea  1410 
ya  que  de  acuerdo  con  las  reglas  de  juego  convenidas  el 
jugador  deberá  aceptarlo  obligatoriamente. 

La  siguiente  línea  establece  el  número  de  jugador  a  quien 
corresponde  jugar,  mostrando  por  pantalla  su  nombre. 

La  línea  número  1110  realiza  las  siguientes  operaciones: 

a)  Coloca  el  puntero  12  en  1.  Número  de  la  melodía  que  debe 
interpretarse. 

b)  Coloca  el  puntero  13  en  4.  Número  de  notas  de  la  melodía 
número  12  que  deben  interpretarse. 

c)  Llama  a  la  subrutina  25000  que  interpretará  la  melodía  12  de 
13  notas. 

La  línea  1 120  inicia  un  lazo  que  se  realiza  dos  veces  y  que 
incluye: 

a)  Mostrar  mensaje  “coloque  5  pesetas”  o  cualquier  otra 
cantidad  elegida  como  apuesta  básica. 

b)  Interpretar  la  5  melodía  de  5  notas. 

c)  Borrar  mensaje. 

d)  Retardo  controlado  por  la  variable  J  (ver  línea  1 140). 

La  línea  1 140,  además  de  las  funciones  correspondientes  al 
bucle  iniciado  en  la  línea  1120,  actualiza  el  valor  de  la  poceta  y 
visualiza  en  pantalla  un  mensaje  que  indica  su  contenido 
actual. 

La  linea  1 145  descuenta  de  la  cuenta  del  jugador  que  juega  PJ 
el  valor  de  la  apuesta.  De  esta  forma  se  acumula  la  variable 
TT  (PJ)  las  pérdidas  que  le  ocasiona  al  jugador  PJ  las 
cantidades  que  coloca  en  el  fondo  o  poceta. 

La  línea  1150  visualiza  el  billete  NB,  llamando  para  ello  a  la 
subrutina  número  20000,  e  interpreta  la  melodía  número  4  de  6 
notas,  cediendo  el  control  a  la  subrutina  25000. 

La  línea  1160  visualiza  mensaje  indicando  al  jugador  que  éste 
es  el  momento  en  el  que  puede  decidir  si  acepta  o  no  el  billete 
que  se  le  muestra.  La  respuesta  del  jugador  es  la  contenida  en 
la  variable  RES. 

Si  la  respuesta  es  negativa  (línea  1170)  se  bifurcará  a  la  1400 
donde  se  comprueba  si  quedan  o  no  billetes  ya  que  de  quedar 
sólo  uno  deberá  continuar  en  secuencia  en  la  1410  ya  que  el 
jugador  está  obligado  a  aceptar  el  último  de  la  emisión;  caso 
contrario  se  incrementa  el  contador  de  billetes  visualizando  el 
siguiente,  para  lo  cual  bifurca  a  la  línea  1150  donde  se  repite  el 
proceso  ya  descrito. 

Si  la  respuesta  no  ha  sido  negativa  y  tampoco  lo  es  afirmativa 
(línea  1180)  la  entrada  ha  sido  incorrecta  por  lo  que  se  cede  el 
control  a  la  línea  1 160  insistiendo  de  esta  forma  en  la  pregunta 
hasta  que  se  produzca  una  respuesta  válida  (S  o  N). 

La  secuencia  a  partir  de  la  línea  1 190  se  realiza  cuando  el 
billete  es  aceptado.  La  primera  de  estas  líneas  comprueba  si  el 
valor  del  billete  mostrado  es  el  mayor  de  la  serie  en  cuyo  caso 
JG  (jugador  ganador)  es  el  que  acaba  de  aceptar  ese  billete, 
jugador  PJ. 

La  siguiente  línea  cierra  el  lazo  de  los  jugadores  que  tienen 
opción  a  jugar  sobre  esa  emisión  de  billetes. 

Si  llegan  a  jugar  todos  los  jugadores  que  tienen  opción  sobre 
una  determinada  serie  de  billetes  el  programa  se  encontrará  en 
la  línea  1210,  donde  comprueba  si  el  ganador  está  desierto 
(JG=0)  en  cuyo  caso  interpreta  la  melodía  3  de  10  notas  y 
bifurca  a  la  línea  1240  en  la  que,  como  veremos,  se  plantea  la 
continuidad  de  la  partida. 

Si  hay  ganador  debe  acumular  en  su  cuenta  las  ganancias 
obtenidas  (1220)  e  interpreta  la  melodía  2  de  cuatro  años.  El 
contenido  final  de  la  cuenta  del  jugador  n  será  TT(n)  = 
ganancias  acumuladas  —  apuestas  realizadas  =  ganancias 
netas  (o  pérdidas  si  el  valor  final  es  negativo). 

La  línea  1220  visualiza  mensaje  indicador  para  que  el  jugador 
ganador  retire  la  poceta  y,  en  ese  momento  hace  el  valor  de  la 
poceta  igual  a  cero. 

La  siguiente  instrucción,  contenida  en  la  línea  1240  plantea  la 
continuidad  de  la  partida.  Si  la  respuesta  es  afirmativa  se 
bifurca  a  la  línea  1040  en  la  que  se  genera  una  nueva  serie  de 
billetes  (ver  línea  1250) 

Si  la  respuesta  no  ha  sido  afirmativa  y  tampoco  es  negativa,  ha 


sido  una  respuesta  no  valida  insistiendo  de  nuevo  acerca  de  la 
continuidad  de  la  partida  (ver  línea  1260). 

Si  la  respuesta  ha  sido  negativa  se  visualizan  los  resultados, 
mediante  un  rótulo  (1270),  indicación  del  valor  actual  de  la 
poceta  que  debe  repartirse  entre  todos  los  jugadores  que  han 
participado  en  el  juego  (línea  1280),  y  las  ganancias  de  cada 
uno  de  ellos  (pérdidas  o  ganancias  netas)  emitiendo  un  mensaje 
genérico  línea  1290)  y  uno  específico  para  cada  jugador  (línea 
1310),  finalizando  el  programa. 

Si  un  jugador  se  ve  obligado  a  aceptar  el  último  billete  de  la 
serie,  se  visualiza  emitiendo  la  melodía  característica  y  si  no  es 
el  mayor,  se  bifurca  a  la  línea  1210  donde  se  comprobará  la 
existencia  o  no  de  ganador. 

Si  es  ganador  el  sexto  billete  se  calcula  la  cuota  de  reparto  de  la 
poceta  (K).  Si  esa  cuota  es  el  total  es  que  sólo  gana  un  jugador 
(1420). 

La  línea  1430  visualiza  el  monto  al  que  asciende  el  reparto  de 
la  poceta. 

La  línea  siguiente  emite  la  melodía  correspondiente  al  reparto 
de  la  poceta  y  realiza  las  sumas  en  las  cuentas  de  los  jugadores 
afectados. 

La  línea  1450  calcula  el  estado  en  que  queda  el  fondo  tras  el 
reparto  (resto)  y  bifurca  a  la  línea  1210,  en  la  que  se  plantea  la 
cuestión  de  continuidad  de  la  partida. 

Nota:  En  un  listado  posterior  se  han  agrupado  sentencias  data. 

LISTA  DE  VARIABLES: 

HT$  VT$  Tabulación 
CL$  Colores 

RES  Comunicación  con  el  operador 

PT  Unidad  monetaria  de  apuesta  en  pesetas 

NJ  Número  de  jugadores 

N$(i)  Nombre  jugador  i.  1  ^  i  sg  NJ 

T$  Turnos  de  juego 

TJ  Turno  inicial  en  cada  serie  de  billetes  emitida 

JA  Ne  de  orden  del  jugador  que  apuesta 

JP  Indice  del  jugador  que  apuesta 

JG  Jugador  ganador 

MA  Número  de  orden  del  mayor  billete  de  cada  serie 

K  Cantidad  a  repartir  de  la  poceta 

BI  (i)  Importe  del  billete  de  orden  i 

BIS  String  cantidad  del  billete  que  se  visualiza 

TP  Cantidad  más  alta  posible  dentro  de  una  serie  de 

billetes 

JU  Número  de  jugadas  enteras=ns  series  emitidas 

TT  (i)  Pérdidas  o  ganancias  netas  del  jugador  i 
PO  Importe  del  fondo  en  un  momento  dado  (poceta) 

12,  13  Punteros  correspondientes  a  número  de  melodía  y 

número  de  notas  de  la  misma. 

Las  melodías  han  sido  compuestas  para  este  juego 
por  mi  cuñado  José  Bermejo. 


1  REM  COMPUTER  BANK 

10  HT*-"[H0M3[ 25CRSRD 3 " : VTS ■ " [ 39CRSRR J 

20  PRINT" [CLR3ÍBLK3 " ¡ CL*-" [BLK3 [CVN3 
[ PUR  3 [  CRN  3 [ VEL  3 [  C0MM6  3  "  :  VD=60 : 1)  I M  MU 
18.3) 

50  GOSUB  22000 

1 00  PR I N T " [ 2SPC  3  EL [ SPC  3  JUEGO [ SPC  3  CON 
S I STE  C  SPC  3  EN  [  SPC'  ]  ELEG  IRC  SPC  3  EL  [  SPC  3  B 
I LLETEMAS  L 2SPC  J  ALTO  [ SPC ] DE  C  SPC ] CADA  C SPC 3 
SERIE [SPC3BEISPC36" i 
110  PR I  NT  "  C  2SPC  ]  QUE  C  2SPC  ]  EM I  TE  C  R VSON  3 
COMPUTER t  SPC 1 BANK  C  RVSOFF I . " 

1 20  PR I NT " [ CRSRD  3 [ 2SPC  3  PARA [ SPC  3  ELLO 
C  SPC 3 SE [ SPC  J  LE [ SPC ] MUESTRAN  C  SPC ] UN0C2SPC J 
A [ 2SPC ] UNG [ 2SPC  3  PUD I ENDÜ [ SPC  3  ELEG I R [ SPC  3 
ELISPC3QUE, CSPC3EN"; 

130  PR I NT " £  SPC 3 CADA [ SPC 3 MOMENTO , SE  [ SPC  J 
LE C SPC] MUESTRA. " 

140  PRINT" [CRSRD3 [2SPC3SI CSPC3UDISPC J 
RECHAZA [ SPC ] LOS  [ SPC ] C I NCO [ SPC ] PR I MER 
OS  [  2SPC  3  SE  [  2SPC  3  VER  A  [  SPC  3  ÜBL I  GADO  [  SPC  3 


ACSPC3ACEPTARCSPC3 " i 

150  PRINT "EL [SPC 3 ULTIMO. C23PC3ENC2SPC3 
ESTE CSPC 3 CASO,  [ CRSRR 3 BE [ SPC 3 GANAR ,  [SPC 3 
REPART I RA [ SPC  3  LA [ SPC  3  PÜCETACON [ SPC  3  L 
OS [SPC 3 " , 

160  PRINT "OTROS [SPC 3 JUGADORES. " 

170  PRINT" [CRSRD3 [2SPC3SI [SPC3UDISPC3 
EL  I GE [ SPC  3  ALGUNO [ SPC  3  DE [ SPC  3  LO [ SPC  3  C 
I NCO [ 2SPC  3  PR I ME-ROS , EL [ SPC  3  S I GU I ENTE 
[SPC 3 JUGADOR", 

180  PR I NT "[ SPC  3  TENDRA [ SPC  3  OPC I ON [ SPC  3 
AELEG I R  [  SPC  3  EL  [  SPC  3  MAVÜR  [  SPC  3  DE  [  SPC  3 
ESA  [  SPC  3  EM  I S I  ON  [  2SPC  3  GANANDO!  SPC  3  LA  [  SPC  3 
POCETA. " 

1 90  PR I NT " [ CRSRD  3 [ 2SPC 3 1 NDEPEND I ENTE 
MENTE [ SPC  3  DE [ SPC  3  LO [ SPC  3  SEÑALADO [ SPC  3 
ENÍ2SPC 3 LA [SPC 3 REGLA [SPC 3 ANTERIOR, [SPC 3 
S0L0ÍSPC3", 

200  PRINT" CORRERA [ SPC 3 EL [ SPC 3 TURNODE 
[  SPC  3  JUEGO  [  SPC  3  CADA  [  SPC  3  VEZ  [  SPC  3  QUE  [  SPC  3 
SE  [  SPC  3  AGOTE  [  SPC  3  UN  A  [  SPC  3  NUE  V  AEM I S 1 0 
N.  " 

210  PR I NT " [ RVSON  3 [ 6SPC  3 PULSE [ SPC  3  UNA 
[ SPC  3  TECLA [ SPC  3  PARA [ SPC  3  CONT I NUAR [4SPC3 
[ RVSOFF 3 " i 

220  GET  REÍ ¡ IF  RE*-" "THEN220 
230  PRINT" [CLR3 [CRSRD] [2SPC3ANTESISPC3 
DEÍSPC3INICIAR! SPC  3  EL [ SPC  3  JUEGO [ SPC  3 
PROP I AMENTE [ SPC  3  D I CHO [ SPC  3  DEBERA [ SPC  3 
I NTRODUC I R [ SPC  3 "  i 

240  PR I NT " LA [ SPC  3  UN I DAD [ SPC  3 MONE- [ SPC  3 
T  AR I R  [  SPC  3  QUE  [  SPC  3  SE  [  SPC  3  APUESTA  L  SPC  3 
CADA [ SPC  3  VEZ [ 2SPC 3  QUE [ 2SPC 3  SE [ 2SPC 3  T 
I ENE [SPC 3 OPC ION" i 

250  PR I NT " [ SPC  3  DE [ SPC  3  ELEG I R [ SPC  3  UN [ SPC  3 
BILLETE. [SPC 3 " 

260  PR I NT " [ CRSRD 3 [ 2SPC3TAMB I EN [ SPC 3 D 
EBE  [  SPC  3 1 ND I  CAR  [  SPC  3  LOS  [  SPC  3  NOMBRES  L  SPC  3 
DE [ 3SPC 3  LOS [ SPC  3  JUGADORES [ SPC  3  A [ SPC  3 
FINÍSPC3DEÍSPC3QUE" , 

270  PR I NT " [ SPC  3  L A [ 2SPC 3  MAQU I NA [ 2SPC 3 
LLEVE [ SPC  3EL [ SPC  3  S I STEMA [ SPC  3  DE [ SPC  3 
TURNOS [ SPC  3  V [ SPC  3  LA [ SPC  3  CONTAB I -L I  DA 
DÍSPC3DEÍSPC3LA"; 

280  PR I NT " [ SPC  3 P ART I DA [ SPC  3  < [ SPC  3 POC 
ET A [ SPC  3  V [ SPC  3  OANANC I ASNETAS [ SPC  3 ) . 

290  PR I NT " [ 5CRSRD 3 [ RVSON  3 [ 6SPC 3  PULSE 

[ SPC  3  UNA [ SPC  3  TECLA [ SPC  3  PAR A [ SPC  3  CONT 

I NUAR [ 4SPC  3 [ RVSOFF  3 " J 

300  GET  REÍ ¡ IF  RE*-" "THEN300 

1 000  I NPUT " [ CLR  3 [ 2CRSRD 3  UN I DAD [ SPC  3  D 

E [  SPC 3 APUESTA [ SPC3ENI SPC3PTAS  •'  [ 2SPC 3 

5I3CRSRL3 " ¡ PT 

1010  1 NPUT " NUMERO [ SPC  3  DE [ SPC  3  JUGADOR 
ES : [2SPC32I3CRSRL3 " i NJ 
1020  FOR  1-1  TO  NJ  PRINT "NOMBRE [SPC 3 
JUGADOR [SPC 3 " I : INPUT  N* ( I ) : NEXT I 
1030  TJ*=CHR*(NJ) ¡ FOR  1-1  TO  NJ  : TJ* 
-TJ*+CHR*< I ) : NEXT  I : TJ*-TJ*+TJ* 

1040  GOSUB  21000 : JU-JU+1 

1070  NB-0 ¡ T J- JU-N J# I NT ( JUZNJ ) 'PRINT" 

[ CLR  3 [ CRSRD  3 " TAB  < 1 3 ) " [RVSON  3 [ SPC  3  COM 

PUTER [ SPC  3  BANK [ SPC  3 " ¡ JG-0 

1080  FOR  JA-l+TJ  T0  NJ+TJ 

1090  NB-NB+l ¡ IFNB>5THEN  1410 

1100  PJ-ASC(MID*<TJ*,JR,1>)  PRINT  LE 

FT* ( HT* , 23 ) " JUEGA [ SPC  3 " N* ( P J  > " [ 1 8SPC 3 

1110  12-1 : 13-4 1 GOSUB  25000 

1120  F0RI-1T02  : PRINT  LEFT*CHT*, 23) " 

COLOQUE [ 2SPC 3 " STR*  <  PT ) " [ SPC  3  PTAS . [ 1 2SPC 3 

1130  1 2-5  ••  13-5  ¡GOSUB  25000  ¡PRINT  LEF 
T*<HT*, 23) " [30SPC3 " 

1 140  FORJ-1 TO300 ¡ NEXTJ , I ¡ PO-PO+PT ¡ PR 
INT  LEFT*<HT*, 22) " [RVSON3 [SPC3P0CETA 
[SPC] "3TR*<P0) " [SPC3PTAS. [ RVSOFF 3 " 

1145  TT(PJ)-TT (PJ)-PT 
1150  GOSUB  20000 ¡ I2»4¡ 13-6 ¡GOSUB  250 
00 
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1160  PRINT  LEFTÍ<HTÍ,23)"L0ESPC3TGMA 
£  SPC  3 ( 57N ) E 1 0SPC 3 " ; : INPUT  "SE3CRSRL3 
"  -  REÍ 

1170  IF  REÍ-"N"  THEN  1400 
1180  IF  REÍO"S" THEN  1160 
1190  IF  NB-MA  THEN  JG-PJ 
1200  NEXT  Jfl 

1210  IF  JG-0  THEN  12-3 : 13-10 : GOSUB  2 
5000 : GOTO 1240 

1220  TT (JG)-TT ( JG)+PQ :  12-2  : 13-4 ■  GCISU 
B  25000 

1230  PRINT  LEFTí (HTÍ , 23) "GANAESPC3 "N 
í  (  JO)  " ESPC3VESPC3RETIRAESPC3LAESPC3P 
OCETFIC 10SPCI  "  :  PO=0 

1240  INPUT " DESEAN C SPC ] CDNT I NURR E 3SPC 3 

SE3CRSRL3 " i  REÍ 

1250  IF  REí-"S"THEN  1040 

1260  IF  REÍO"N"THEN  1240 

1 270  PR I NT " E  CLR  3  £  CRSRD  3 " TAB  <1 4 ) " ERVSON  3 

RESULTADOS" 

1280  PR I NT 1 "  C 3CRSRD 3 SE C SPC  3 REPARTE C SPC 3 
UNA  £  SPC  3  POCETAC  SPC  3  DE  £  SPC  3 " PO " PTAS " 

1290  PRINT"! CRSRD  3  SALVO  C  3SPC  3  ELLO  £  2SPC  3 
SE  E  2SPC  3  HAN  £  SPC  3  ACIJMUL  ADO  £  3SPC  3  LAS  £  3SPC  3 
S I GU I ENTES  £  SPC  3  GRNANC I AS " 

1310  FOR  1-1  TO  NJ  :  PRINTNÍÍ I ),  TTC I )  ■' 

NEXTI :  END 

1400  IF  NB<5  THEN  NB-NB+1 ¡GOTO  1150 

1410  NB-6 : GOSUB  20000 ¡ 12-4 : 13-6 : GOSU 

B  25000 : IF  MA<>6  THEN  1210 

1420  K-INT (PO/CTJ+NJ-JA+l ) ) ¡ IF  K-PO 

THENJG-PJ: GOTO 1220 

1430  PR I NT " £  CLR  3  SE  £ SPC  3  REPARTEN  £  SPC  3 

LA  £  SPC  3  POCETA  £  SPC  3  TOCANDO  £  SPC  3  RE  SPC  3 

"K 

1440  12-6: 13-7: GOSUB  25000 : FOR  1-1  T 
0  NJ: PRINT  N$<  I )  ■'  TT(  I )«TT ( I )+K : NEXT 
I 

1450  PQ«PCl-KllKTJ+NJ-JA+l):GGTO  1240 
20000  REM  MOSTRAR  BILLETE  NB  DE  BICN 
B3PTESETAS 

20010  PH-INT < (NB-1 )X3) : PV-NB- 1-3*1 NT 
( (NB-1 )/3) 

20020  PRINT  LEFTf(HTí,5+9#PH)TAB(l+l 

3*PV) , LEFTí (CLí, RND(0)*6+1 ) j 

20030  FOR  1-1  TO  2:PRINT"£RVSON3£l 2SPC 3 

£  RVSOFF  3  £  1 2CRSRL  3  £  CRSRD  3 " ; : NEXT  I 

20040  PR  I  NT  "  C  RVSÜN  3  E  2SPC  3  COMPUTER  £  2SPC  3 

E  RVSOFF  3  E 1 2CRSRL 3  £  CRSRD  3 " i 

20050  PR I NT " E  R VSON  3  £  4SPC  3  BANK  £  4SPC 3  £  RVSOFF  3 

£  1 2CRSRL  3  £  CRSRD  3 " 3 

20060  BIÍ-STRÍ (BI (NB) ) : BIÍ-RIGHTiCBI 
í , LEN(BIÍ )-l ) 

20Ü70  B I Í-R I GHTÍ  (  "  £  4SPC 3  " ,  (  1 2-LEN < B I 
í) )/2)+BIÍ 

20080  FORI«LEN<BIÍ)TO  1 1 ; BIÍ-BIÍ+" ESPC3 
"  :  NEXT  I 

20090  PR I NT " £  R VSON  3 " B I í " £  RVSOFF  3  £  1 2CRSRL 3 
E CRSRD 3 "i 

20100  FOR  1-1  TO  2 ; PRINT" ERVSON3 E 12SPC3 
£  RVSOFF  3  £  1 2CRSRL  3  £  CRSRD  3 " I ¡ NEXT  I : PR 
INT" EBLK3 " : RETURN 
210Ú0  TP*INTC9999#RND(0)> 

21010  MA-0 : FOR  1=1  TO  6:BI(I)=INT<(T 
+TP4¡RND(0) ) )  :  IF  BI< I )>BI  (MA)THENMA-I 

21020  NEXT  I¡ RETURN 

22000  GOSUB  23000: GOSUB  24000 

22100  PRINT" £ CLR 3" 

22999  RETURN 

23000  8=54272  '■  FORL-0TO  24:P0KE  S+L^0 
■ NEXT  L : POKE  S+3;8 

23010  POKE  S+5;  41  ■'  POKE  S+6,89:P0KE  S 
+14/ 117 'POKE  S+18/ 16 : POKE  S+24/ 143 
23020  RETURN 

24000  PR I NT " E  CLR  3 " : GOSUB  2 1 000 : FOR  N 
B-l  TO  6: GOSUB  20000: NEXT  NB : FOR 12-1 
TO  32 

24010  READ  HF/BF/DF 
24020  POKE  S+4,65 


12 

24050  FOR  12-1  TO  6 : FOR  13=1  TO10'FO 
R  14-1  TO  3: READ  MUXCI2/ 13/ 14) : NEXT 
14/ 13/ 12 

24060  VD-VD75 : RETURN 

25000  FOR 15-1  TO  13 

25010  HF-MU ■/.(  12/15,1):  BF-MUXC  12, 15,2 

) :DF-MUX<I2, 15/3) 

25020  POKE  S+4/65 
25030  POKE  S+0/ BF : POKES+1 / HF 
25040  FOR  T5-1  TO  VDiDF : NEXT  T5 : NEXT 
15 

25050  POKE  8+0/ 0: POKES+1 /0 
25060  RETURN 

40000  DATA  12/216/3/14/107/1/16/47,4 
/ 12/216/4/11/114/3/12/216,1/14/107/4 


40160  DATA  12/216/3/ 14/ 107, 1/ 16/47,4 
,12/216,4/11/ 114,3/12/216/ 1, 14/ 107,4 
,11,114 

40170  DATA  4/10,205,3/11/114/1/12/21 
6/3/10/205/1/9/159/4/12/216/4,8/147/ 


40580  DATA  0/0,0/0,0/0/12/216/3/11/1 
14,3/12/216,3/11/114/3/ 10,205,4,9/  15 
9,4 

40660  DATA  10/205,4,8/147/6/8/23/6/8 
, 147, 12/12/216/3, 15/70,3/12/216/6/ 12 
,216,3 

40740  DATA  15,70  ,3/12,21 6,6,0, 0,0,0 
,0/0, 0/0, 0,0/ 0,0/ 8, 147,12/9/ 159/ 12/ 1 
0,205,12 

40830  DATA  11/114/12/12/216/12/0/0,0 
.0,0/ 0,0/ 0,0/ 0/0, 0,0/ 0,0/ 8/ 147,6, 10, 
205,6 

40920  DATA  9  ,159/6/11/114/6/10/205/ 
12/9, 159, 12/8, 147, 12, 0, 0, 0, 0,B> 0, 0, 0 


Magia 

En  una  linea 

He  aquí  uno  de  los  mejores  programas  de  una  línea  que 
funciona  tanto  para  el  VIC-20  como  para  el  C-64  y  que 
dibuja  un  laberinto  continuo. 

8  Print  chr$(205.5+rnd(8));:goto8 

Para  conseguir  también  colores  aleatorios  en  el  C-64,  hay 
que  poner  CHR$(149+rnd(8)*l  1)  antes  del  punto  y  coma. 

D.A.K.  RUN  EEUU. 


Números  aleatorios 

Algunos  programas  usan  repetidas  veces  sentencias  del 
tipo:  X=INT(N*RND(0))+M.  Se  puede  ahorrar  bastante 
tiempo  usando:  X%=N*RND(.)+M  en  vez  de  lo  anterior,  el 
usar  una  variable  entera  hace  el  INT  y  el  punto  sustituye  al 
0,  ganando  bastante  tiempo. 

S.A.B.  RUN  EEUU. 


Consiste  en  manejar  a  un  coche  blanco  por  una  carretera  (con  las 
teclas  Z  y  .)  esquivando  a  los  coches  amarillos.  Pulsando  una 
tecla  al  final,  se  ve  la  puntuación  y  el  juego  vuelve  a  empezar. 


220  I FX=8THENPR I NTTRB ( B  > " R  [  4SPC  3  [  VEL 3 

BÍBLU3Í2SPC3R" GOTO290 

230  I FX=9THENPR I NTTRB  í  B  >" R[  5SPC 3 [ VEL  3 

BCBLUJ [SPC3R" : ÜÜTÜ290 

240  I FX»  1 0THENPR INTTRBCB)  "fi[ 6SPC 3  [ VEL 3 

BÍBLU3R"  :GC!TG290 

250  I FX= 1 1 THENPR I NTTRB  C  B ) " R  C  VEL ] B  [ 5SPC ] 
BtBLUIR" : GOTO290 

260  I  FX=*  1 2 THENPR I N T  ÍRD < B  > " fl C SPC 3 [VEL] 

B [ 3SPC  3  B [ BLU  3 [ SPC  3  R " : GOTG290 

270  I FX= 1 3 THENPR I NTTRB  <  B ) " R [ 2SPC 3  C  VEL  3 

B  C  SPC  3  B  C  BLU  3 [ 2SPC 3  R " ■ GÜTÜ290 

280  1 FX= 1 4THENPR I NTTRB  <  B  > " R  C 2SPC 3  C  VEL  3 

BBB  C  BLU  3  C  2SPC  3  R " 

290  E=E+1 ¡ IFE=10THENE=0 : C*C-1 = IFCC14 
THENC-14 

300  GETCí 1 IFC$*"Z"THENR=R-1 
310  IFC**"."THENfl=R+l 
320  POKER, 0 : PGKER+30720, 1 • P=P+1 
330  I F  PEEK  <  R+22  )  O32THEN400 
340  P0KE36875 ,  1 25  : P0KE36875 , 225 
350  GOTO 100 

360  DRTR189, 231,189,36,  165,255,  153,6 
0 

370  DRTR66, 66, 66, 66, 66, 6b, 6b, 66 

380  DRTR60, 153,255/ 165,36, 189,231,18 

9 

400  P0KE36877, 220  •  FClRL=15TO0STEP-l :  P 
OKE 36878, L 

410  FÜKf1=lTO300 :  NEXTN  •  NEXTL 
420  P0KE36877 , 0 : P0KE36878 , 0 
430  GETD$  '■  IFD$3"  "THEN430 
435  PRI  NT  "PLINTOS3"  ,  P 
440  RESTORE ;GÜTÜ10 


10  POKE650,  128 :  P=»0 
20  P0KE52 , 28 : PÜKE56 , 28 
30  FURX»7168T0?679 : POKEX, PEEKCX+2560 
03U1EXTX 

40  P0KE36869, 255 

50  F0RX*7168T07175 : RERDD ; POKEX , D : NEX 
TX 

60  FÜRX-7 1 76T07 1 83  RER1JD  ^  POKEX ,  D :  NEX 
TX 

70  F0RX*7184T07191 : RERDD : POKEX, D ¡ NEX 
TX 

80  P0KE36879, 15;PRINT"[CLR3" 

90  B“7 • R*7690 

95  PR I  NT  "  N I  VEL  [  SPC  3  DEL  í  SPC  3  JUEOÜ  " 

96  INPUT"15=DIFICILCSPC3150-FHCIL,,;C 
; P0KE36879, 10 

97  I FC< 1 50RC> 1 50THEN96 

98  FORL=>1TÜ50  :  PRINTTRBLB) "RC78PC3R"  ; 
NEXT 

100  X=INT <RND( 1 >*C)+1 

110  IFX>14THENPRINTTRB(B> "RC7SPC3R" : 

GOTO290 

120  IFX»1THENPRINTTRBCB) "RC7SPC3R" : G 
OTO290 

130  I FX-2THENPR I NTTRB ( B  > " RR í 6SPC 3 RR " 
:fi*B+l  ^GOTOSO 

140  IFX*3THENB»B-1 : PRINTTHBCB) "RRC6SPC3 

RR" '■ GOTO290 

150  I FBC 1 THENB3 1 

160  IFB>11THENB=11 

170  P0KE36878 , 0 • PÜKE36878 , 1 5 

1 80  I F  X-4THENPR I NTTRB  <  B ) " R[ VEL  3  B [ BLU  3 

[6SPC3H" ; GOTO290 

1 90  I  FX=5THENPR I  NTTRB ( B )  "RC SPC 3  [ VEL 3 

BCBLU3 [5SPC3R" '• GOTO290 

200  I FX-6THENPRI NTTRB CB > "RC2SPC 3 [VEL 3 

BÍBLU3 [4SPC3R" : GÜTÚ298 

2 1 0  I FX-7THENPR I NTTRB < B ) "fl[3SPC 3 [ VEL 3 

BÍBLU3Í3SPC3R" :GOTO290 


f  Magia 

Subrutina  para  centrar  textos 

Supongamos  que  tenemos  una  cadena  llamada  A$,  y  que¬ 
remos  centrarla  en  la  pantalla.  Sólo  hay  que  hacer  una  lla¬ 
mada  a  la  siguiente  subrutina: 

1000  PRINT  TAB  (40-LEN(A$)/2);A$:RETURN 

Si  en  vez  de  un  64  tienes  un  VIC-20,  cambia  el  valor  40 
por  el  de  22,  que  es  el  ancho  de  la  pantalla  del  VIC. 

M.B.  RUN  EEUU. 

Bucles  de  espera 

Una  manera  útil  de  programar  unos  bucles  de  espera  es  la 
siguiente: 

100  fort=ltol00:next:return 
1000  fort=ltol000:next:return 
1500  fort=ltol500:next:return 

Cuando  deseemos  que  el  programa  realice  una  espera, 
escribimos:  GOSUB  XXXX,  donde  XXXX  es  el  tiempo  de 
espera.  Por  supuesto  la  línea  XXXX  debe  existir. 

W.W.B.  RUN  EEUU 


Para  imprimir  textos  letra  a  letra  y  lentamente,  escribe: 
10  a$=“este  es  el  mensaje”:gosubl000 
20  end 

1000  fori=lto  len(a$):Print  mid$(a$,i,l);:for  t=l  to 
50:nextt,i:retum 

Para  conseguir  diferentes  velocidades,  basta  con  cambiar 
el  valor  de  t  en  el  for-next. 

C.B.  RUN  EEUU. 


World 
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C-64 

Onteniente  (Valencia) 

Este  programa  lo  que  hace  es  representar  funciones  en  la  alta 
resolución  del  Commodore  64. 

Tal  vez  ésta  sea  la  más  complicada  de  explicar,  pero  trataré  de 
explicarlo  lo  mejor  que  pueda,  aunque  la  mejor  manera  de 
entenderlo  es  con  la  práctica. 

Antes  de  correr  el  programa  es  fundamental  conocer  los 
puntos  de  discontinuidad*  de  la  función,  o  sea,  donde  (para  que 
valor  de  X)  la  función  se  hace  infinito.  Si  no  sabe  calcular 
estos  valores  será  mejor  olvidarse  del  programa  por  completo. 
Cito  a  Leonardo  da  Vinci:  “Que  no  lea  mis  principios  quien  no 
sea  matemático”. 

El  programa  en  un  principio  nos  pide  la  función  a  representar, 
esta  se  introduce  vía  un  INPUT. 

Posteriormente  se  apreta  RETURN  3  veces  y  el  programa  pide 
la  escala  y  los  puntos. 

A  estas  alturas  os  habréis  dado  cuenta  que  el  programa  está 
íntegramente  escrito  en  inglés,  esto  es  debido  a  que  las 
funciones  como  el  seno,  coseno,  logaritmo,  etc.,  sólo  son 
utilizables  en  el  ordenador  con  sus  abreviaturas  inglesas,  y  ya 
puestos,  ya  que  hay  que  escribir  las  funciones  en  inglés,  que 
todo  sea  en  inglés. 

Como  decía,  la  máquina  nos  pide  la  escala  y  los  puntos.  La 
escala  sirve  para  determinar  el  tamaño  de  la  función  en  la 
pantalla.  Por  ejemplo:  si  en  la  escala  ponemos  el  número  20, 
los  ejes  (que  ocupan  toda  la  pantalla,  de  punta  a  punta  y  de 
arriba  abajo)  correrán  desde  el  -8  hasta  el  8  en  el  eje  de  las  Xs 
y  de  -5  a  5  en  el  de  las  Yes,  si  la  escala  es  10,  la  función  la 
mitad  de  tamaño  del  caso  anterior  y  por  tanto  caben  el  doble 
de  valores  (es  decir,  de  -16  a  16  en  X,  de  -10  a  10  en  Y),  etc. 

Los  puntos  es,  digamos,  lo  que  calibra  la  precisión  de  la 
representación:  cuanto  menor  sea  el  parámetro  (número) 
introducido  más  puntos  de  la  función  calculará.  Esto  se  hace 
evidente  cuando  se  mira  la  función  que  hace  dicho  número  en 
el  programa  (es  al  valor  de  incremento  — STEP —  de  X). 

Una  vez  introducidos  estos  valores  el  ordenador  quiere  saber  si 
deseamos  comparar  la  función  con  otra  que  anteriormente 
hemos  representado.  Interesante  para  estudiar  la  fórmula  de 
Taylor.  Conteste  YES  o  No. 

En  caso  de  contestar  NO  a  la  pregunta  anterior,  el  ordenador 
le  preguntará  si  desea  que  dibuje  ejes  para  la  representación,  en 
caso  de  que  la  función  se  confunda  con  estas  durante  un 
trecho,  recomiendo  que  conteste  NO.  Si  este  es  el  caso,  el 


ordenador  representará  los  puntos  de  los  ejes,  pero  no  éstos. 

En  caso  contrario,  el  ordenador  colocará  los  ejes  y  sus  puntos. 
Lo  siguiente  que  pide  el  ordenador  es  el  color  de  la  pantalla.  Si 
tiene  una  “tele”  b/n  recomiendo  aquí  el  color  4,  que  es  más  o 
menos  neutro.  Otro  color  recomendable  es  el  16  (blanco  sobre 
negro),  pero  se  ocasionan  distorsiones  en  caso  de  no  tener 
monitor. 

Ahora  llegamos  a  lo  peliagudo  de  la  cuestión  y  aquí  entran  en 
juego  los  puntos  de  discontinuidad  previamente  calculados. 
Imaginemos  que  hemos  elegido  como  escala  20  y  hay  un  punto 
de  discontinuidad  en  X=-3  y  en  ningún  otro  sitio.  Escribiremos 
como  respuesta  a  la  pregunta  de:  HOW  MANY  INTERVALS? 
2  (porque  debido  a  la  discontinuidad  en  un  solo  punto,  la 
función  se  “divide”  en  dos).  Después  viene  el  “de  dónde  a 
dónde)”  quiere  que  vaya  dicha  función.  En  el  caso  anterior  se 
debería  escribir:  -8,  -3.01  es  decir  parando  justo  antes  de 
producirse  la  discontinuidad.  Y  al  aparecer  de  nuevo  el 
mensaje:  “A,B?”  (pidiendo  los  parámetros  para  el  segundo 
intervalo)  se  escribiría:  -2.99,8  es  decir,  justo  después  del  punto 
donde  se  produce  la  discontinuidad  hasta  el  final.  Como  se 
puede  apreciar,  el  uso  correcto  de  los  intervalos  y  de  sus 
parámetros,  evita  desagradables  fallos  de  cálculo  del  ordenador 
(como  un  “7DIVISION  BY  ZERO  ERROR  IN  XXX”). 

Después  de  introducir  estos  últimos  números  puede  recostarse 
en  su  sillón  mientras  observa  cómo  la  máquina  realiza  la 
representación  gráfica  que  usted  ha  elegido. 

Una  vez  finalizada  la  función,  el  ordenador  le  advertirá  con  un 
letrero  luminoso. 

Apriete  RUN/STOP  y  RESTORE  para  volver  a  empezar. 

*  Discontinuidades  de  salto  infinito. 


1  CLR 

2  INPUT" CCLR3FUNCTI0N" i  FU* : PRINT" [2CRSRD3 
60CSPC JY*INT <SC<(<  "FU*"  )+.  5)  “ 

3  PR I NT " 4 [ SPC  3  F 1 *» " CHR*  <  34  > " Y« "  FU*CH 
R*(34>  :PRINT" RUN4 [ 6CRSRU ] "  ¡ ENIl 

4  Fl*-"VSINOO" 

5  E-2. 7182318 

6  I NPUT "  [ CLR I SCALE >  DOTS"  i  SC,  DT  :  SORB 
S(SC) :DT*RBS<DT> 

7  I NPUT " COMPARE C  VES/NO ) í 5SPC ] L 5CRSRL 3 

";cp* 

8  I FCP*0" VES " RNDCPÍO "NO " THENPR I NT " 
C2CRSRU3 " : GOTO? 

18  IFCP*="YES"G0TQ14 

1 2  I NPUT " AX I S  C  SPC  3  < YES/NÜ >  [  5SPC 3 1 5CRSRL  3 
"iAX* 

13  I FAX*0 " YES " ANDAX*0 " NO " THENPR I NT 
" £  2CRSRU  3 " : GOTO 1 2 

14  I NPUT " PAPER  C  SPC  3  COLOUR "; CL 

1 5  I NPUT " H0WC SPC 3 MANY [ SPC 3 I NTERVALS " 
i  DI 1 D1MACDI ) i BC DI ) 

16  F0RU-1TQDI : INPUT "AC3PC3&CSPC3B" i  A 
(U) < B(U)  : NEXT ■' PRINT" CCLR3 " 

20  BS*8192 : P0KE53272, PEEKC 53272 )0R8 
22  P0KE53265 ¿  PEEK ( 53265 ) 0R32 
25  IFCP**"YES"THENFU*»" [ 16SPC3 " • 0=81 
92 : GOSUB3000 ¡ GÜTÜ35 
30  FGRI=8192T01691 1 : POKEI / 0 : NEXT 
35  IFCL-8G0T042 

40  FOR I ■ 1 024TÜ2023 : P0KE I , CL : NEXT 
42  I FCP*- " NO " THENGOSUB 1 000 

44  0*8192 : FU*»F 1 * ¡ GOSUB3000 

45  0* 1 5872 : FU**"! 8SPC 3 " ¡ GÜSUB3000 

46  F0RT-1TQDI 

50  FORX»A«T)TOB<T)STEPDT210 
60  Y“INT<SC<KSIN(X) >+. 5) 

64  I F YO  1 00GRY>  1 00THEN 1 50 

66  I FX<- 1 60/SCORX} 1 607SCTHEN 1 50 

¿Q  CiUB_U 

70  IX-<X*SC>+160 
80  IY-AV+100 
90  CH»INT < IX/81 
100  R0*INT ( IY/8) 

110  LN*I YAND7 

120  BV»BS+RÜ*320+8#CH+LN 
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130  BI=7-CIXRND7) 

140  POKEBV i PEEK(BV)0R<2TBI ) 

150  NEXTX,T 

155  0=1 5872 : FU*» " F IN I SHED " ■ GOSUB3000 

1 60  FClR  I  *  1 T01 6STEP 1 5 :  FORU»  1 984T0 1 99 1 
:  POKEU/ 1  ■'  NEXT  ■  FORJ=0TO30 :  NEXTJj  I :  GOT 
0160 

1 000  I  FRX*= "  NO  "  THENS  1  =  103 :  S2»157  :  RMT 
=6 • GOTO 1255 

1010  31=39  •  S2»161  '■  RMT*2 
1050  FGRX— 159T0159 
1060  CH=INT(XX8) 

1030  BV»BS+4000+8#CH+4 
1100  BI»7-<XRND7) 

1110  PÜKEB V  > PEEK ( B  Y  >  GR  <  2  TB I  > 

1120  NEXT 
1130  FORV=0TO199 
1200  RQwINTÍVXS) 

1210  LN=YRND7 
1220  BY»BS+RO*¡320+ 1 60+LN 
1240  POKEBV / PEEK ( BV ) GR 1 28 
1250  NEXT 

1255  IFSCOITHENRETURN 

1257  FQRU=0TORMT 

1260  FORX»160TO319STEPINT (SC) 

1270  V»S1-U 

1275  IX=X ; FORI=0TO1 

1280  CH=1NT ( IX/8) 

1230  RO=INT (  Y/8> 

1300  LN-VRND7 

1310  BV=BS+ROHf320+8*CH+LN 

1320  BI»7-< IXRNB7) 

1330  POKEBVj  PEEK (BV>OR< 2  TB I ) 

1340  IX=320-X : NEXTI >  X 

1360  FOR V* 1 00TO 1 99STEP I NT ( SC ) 

1370  X=S2'+U 

1375  I Y»V : FORI=0TO1 

1380  CH=1NT (X/8) 

1390  RO-INTCIY/8) 

1400  LN»IVRND7 

1410  BV»BS+RO*320+8*CH+LN 

1420  BI=7-(XRND7) 

1 430  POKEBV , PEEK  <  BY ) OR  <  2 TB I > 

1 440  I V-200-Y ¡ NEXTI < Y, U ■ RETURN 
3000  REM-PUESTR  EN  PRNTRLLR  DE  LR  FU 
NCION 
3010  CR-1 

3020  I FCR=LEN < FU* ) + 1 THENRETURN 
3025  J*=MID*(FUí j  CRj 1 > : CR»CR+1 
3030  J-RSCÍ J*) ¡ IFJ>63THENJ=J-64 
3040  V»S3248+J*8 
3050  P0KE56334 , 0 : POKE 1,51 
3060  F0RI-1T08 
3070  POKEO, PEEK<V) 

3080  0“Ü+1 : V»V+1 
3090  NEXT 

3 1 00  POKE 1,55: P0KE56334 , 1 
3110  GOTO3020 


Magia 


Stock  Pointer 

Para  conocer  cuál  es  el  estado  del  Puntero  del  Stack,  basta 
con  escribir:  Poke2,96:sys2:Print  Peek  (783) 

El  Poke  coloca  un  RTS,  el  SYS  lo  ejecuta  y  la  Posición 
783  contiene  el  valor  del  Puntero. 

E.H.  RUN  EEUU. 


Gráficas  VIC 


El  primero  de  los  programas  permite  representar  gráficas  de 
funciones  en  alta  resolución  sin  el  empleo  del  superexpander  ni 
ningún  otro  cartucho.  El  programa  en  sí  es  corto,  pero  se  ha 
de  copiar  con  mucho  cuidado,  porque  la  base  de  las  gráficas  en 
alta  resolución  está  en  la  generación  de  12X21=252  caracteres, 
lo  cual  ocupa  de  por  sí  2,5  Kb  de  memoria,  y  el  cuerpo  del 
programa  ha  de  entrar  en  los  escasos  1024  bytes  restantes  en  la 
memoria  del  VIC  standard.  Por  tanto,  cualquier  añadido  o 
error  al  teclearlo  puede  dar  como  resultado  el  fatídico  OUT 
OF  MEMORY,  con  los  consiguientes  perjuicios. 

El  manejo  del  programa  es  sencillo.  Una  vez  en  memoria,  se 
teclea  RUN  y  aparece  en  pantalla  la  presentación  y  una 
petición  de  entrada  de  la  función  a  representar.  Se  escribe  la 
función  y  el  programa  automáticamente  crea  una  línea  nueva 
(nQ  29)  en  el  listado,  definiéndola  (DEF  FNA(X)).  Después  se 
piden  las  cotas  inferior  y  superior,  tanto  en  X  como  en  Y, 
entre  las  cuales  se  quiere  representar  la  función.  Conviene  que 
estos  valores  sean  simétricos  en  lo  posible;  es  decir,  que  tengan 
el  mismo  valor  absoluto.  Ej.:  -1  y  1;  -3.1416  y  3.1416;  etc.  Si 
no  lo  son,  no  ocurre  nada,  pero  alguna  función  puede  que  no 
se  dibuje  en  su  verdadera  magnitud,  sino  un  poco  mayor  o 
menor. 

Una  vez  todos  los  datos  dentro,  la  pantalla  se  llenará  de 
basura,  que  se  irá  borrando  poco  a  poco.  Pasado  un  tiempo  la 
pantalla  cambia  de  color,  y  se  empiezan  a  dibujar  los  ejes. 
Concluido  esto,  puede  ocurrir  que  se  oiga  un  pitido  continuo: 
esto  significa  que  el  ordenador  no  encuentra  por  el  momento 
valores  de  la  función  representables  en  el  intervalo  propuesto, 
pero  el  programa  continuará  rastreando.  Cuando  se  encuentren 
valores  representables,  su  dibujado  irá  acompañado  de  un 
pitido  intermitente.  Cuando  el  sonido  cese,  la  representación 
habrá  concluido.  Se  pulsa  la  tecla  CTRL  y  ya  tenemos  el 
ordenador  listo  para  otra  función.  Si  se  desea  representar  de 
nuevo  la  misma  función  que  acabamos  de  dibujar  (cambiando 
limites  por  ejemplo),  no  hace  falta  teclearla  de  nuevo:  basta 
responder  con  un  asterisco  a  la  pregunta  de  entrada  de 
función,  y  el  programa  trabajará  con  la  última  que  se  le  haya 
introducido. 

El  programa,  en  líneas  generales,  ofrece  una  resolución 
aceptable:  96X168  puntos.  Utiliza,  una  vez  ejecutado,  unos 
3540  ó  3580  bytes  de  memoria,  según  la  longitud  de  la  función 
introducida.  Para  probar  su  funcionamiento,  se  pueden  ensayar 
funciones  conocidas  tales  como  SIN(X);  1/X;  X2;  X;  etc. 


2  OOTO  15 

3  G0SUB29  ¡  N*36869 '  V«N+6  •'  R-V+4 :  POKEV+ 
3,3 

4  PQKE56, 20 ¡ P0KE52, 20 : PÜKEN, 253 

5  FOR I -5 1 20TO7 1 43 : POKE 1,0: NEXT ¡ POKER 
, 45 '• PRINT" [CLR  3 " 

6  FORI-7680TO8185 : POKEI , 252 ¡ NEXT : FOR 
L-0TO 11 : FGRM-0TO20 : POKE7707+M*22+L ,  L 
*21+M :  HEXTM,  L 

7  G08UB45 : FÜRX=IN  TOS  STEPSP ¡ PGKEV, 2 
20 : V3FNA(X) 

11  XX*47+ 1 NT  t  XXSP ) : VV"83- 1 NT  <  V/SV  ? 

1 2  G0SUB36 : POKE V , 0 : NEXT :  WA I T653 , 4 

14  POKEN, 240 '• POKER, 27 

15  PR I NT " [  CLR 3  "  : GÜSUB50 : PR I NT " [  7SPC 3 
GRAFICAS" 

19  PR I NT " C SSPC J DE [8PC 3 FUNCIONES" :GOS 
UB50 

22  PRINT" CCRSRD3ESCR IBA! SPC3SUCSPC3F 
UNCION"  ¡  PRINT :  INPUTFÍ  ■  IFF*«"*"THENRU 
N3 

24  PR I NT " [ HOM  3  C  WHT  3  C 1 7CRSRD  3 29D  C  SH I FTE  3 
FNR(X)*"F$ : PRINT "GCSHIFTÜ33" 

25  P0KE214, 15 ; POKE 198,2: P0KE63 1 , 1 3 : P 
CIKE632, 13 : END 

30  POKE 1 98 , 0 : 1 NPUT " t  HOM  3 1 1 2CRSRD  3  C  BLU3 
XCSPC3 INF , SUP" i IN, S : INPUT"VCSPC3INF, 
SUP";I2,S2 

34  SP- <  ABS  < I N > + ABS  < S ) ) 295 : SV« ( RBS  <1 2 
)+RBSCS2) >2167 ; RETURN 

36  I F VY<0OR VV> 1 67THEH44 

37  POKEV, 0 

38  I FXXCÜ0RXX>95THEN44 

39  H*INT <XX/8)#21+INT <VV78) '0-<VV78- 
I NT ( VVX8 ) ) *8 : K*5 1 20+8*H+O : P«7- < XX- ( I 
NT<XX/8>i*8) ) 

43  POKEK,  PEEKCK)0R<2'1P) 

44  RETURN 

45  FÜRXX-0TO95  ¡  VV83 :  G0SUB36 :  NEXT  :  FO 
RVV-0TO167 : XX-47 : G0SUB36 ■ NEXT : RETURN 

50  F0RI«lT022i PRINT"*"; ¡ NEXT 1 RETURN 


SYS  para  el  C-64 

En  el  C-64,  una  línea  puede  ser  borrada  usando: 

Poke78 1  ,línea:sys59903 

LINEA  es  el  número  de  línea  que  quieres  borrar  (de  0  a 
24).  Puede  usarse  como  subrutina,  usando  un  FOR-NEXT 
para  limpiar  la  pantalla. 

Para  hacer  un  scroll  arriba  de  una  línea,  SYS  59626. 

B.G.A.  RUN  EEUU. 


Memoria  libre  en  el  C-64 

Cuando  preguntamos  al  C-64...:  Print  fre(O);  a  veces  nos 
da  como  respuesta  un  número  negativo.  (Esto  no  quiere 
decir  que  el  C-64  tenga  memoria  negativa,  sino  que  el 
comando  FRE  ha  representado  la  memoria  libre  de  otra 
forma). 

Para  hallar  el  verdadero  valor,  haz: 

PRINT  FRE(0)+2  16 

En  lugar  del  cero  de  FRE(O),  puede  usarse  cualquier  otro 
número  (generalmente  el  9  está  más  a  mano). 

E.H.  RUN  EEUU. 


Os  presento  un  programa  muy  simple  para  jugar  al  BINGO, 
con  él  os  evitaréis  revolver  y  extraer  bolas.  Está  realizado  en 
un  Commodore  64.  Cuando  se  ejecuta  (RUN),  aparecerá  la 
presentación  y  las  instrucciones,  a  continuación  la  pantalla  se 
divide  en  dos  partes  por  una  línea  horizontal,  debajo  de  la  cual 
aparecerá  escrito  JUGADA  1....  NUMERO  (uno  al  azar),  que 
nos  indica  que  en  la  primera  jugada  el  número  que  ha  sido 
extraído  es  el  que  figura  a  la  derecha  de  la  palabra  NUMERO. 
Si  pulsáis  una  tecla  cualquiera  se  extrae  un  nuevo  número, 
distinto  del  anterior,  y  la  jugada  se  incrementa  en  una  unidad. 
Asimismo,  el  número  que  había  salido  en  primer  lugar  pasa  a 
ocupar  su  posición  dentro  de  una  matriz  de  10  X9  en  la  parte 
superior  de  la  línea  horizontal. 

Al  pulsar  de  nuevo  una  tecla  se  extrae  otra  “bola”  y  la 
anterior  ocupa  su  lugar  en  la  parte  superior  y  así 
sucesivamente.  Cada  extracción  va  acompañada  de  un  pitido 
de  aviso. 

Pienso  que  las  REM  son  lo  suficientemente  elocuentes,  por  lo 
que  omitiré  una  explicación  detallada  del  programa.  Es  un 
programa  muy  simple  y  abierto  a  un  gran  número  de 
variaciones,  tanto  en  lo  referente  a  la  presentación  como  en  el 
sonido  y  en  color.  Cada  cual  que  lo  modifique  a  su  gusto. 

Al  realizarlo  he  evitado  incluir  caracteres  gráficos,  de  ahí  el 
uso  abusivo  de  los  CHR$.  Si  te  quieres  ahorrar  unas  cuantas 
pulsaciones  de  teclas  he  aquí  las  equivalencias  con  las  claves 
que  usa  la  revista: 


CHR$  (17)  =  [CRSRD] 

CHR$  (18)  =  [RVSON] 

CHR$  (19)  =  [HOME] 

CHR$  (145)  =  [CRSRU] 

CHR$  (96)  =  [SHIFT  C] 

CHR$  (146)  =  [RVSOF] 

CHR$  (147)  =  [CLR] 


0  REM******************** 

1  REM*  * 

2  REM*  BINGO  * 

3  REM*  * 

4  REM*  R.  GFlRCIFl  SEGURA  * 

5  REM*  * 

6  REM******************** 
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Commodore  World 


7  REM 

8  REl'l 

3  REM***PRESENT RC I ON  E  INSTRUCCIONES 
*** 

10  CLR 

15  PRINTCHRÍC147) : PRIHT : PRINT : PRINT 
20  PRINTTRBí 15)CHRí (18) "BCSPC3 I CSPC3 
N[SPC3G[SPC3Ü"CHR$< 146) 

22  GOSUB4000 : PRINTCHRÍ < 147) : PRINT : PR 
INT 

24  PRINT"RLCSPC3SñLIRCSPC]LPlCSPC3PRI 
MERRISPC3 JUGRDH - C  SPC ] PULSE [ 2SPC 3  CUAL 
-QU I ER  C  SPC  3  TECL A [ SPC  3  PARA C  SPC  3  CONT I N 
URR" 

26  GOSUB4000 

29  REM***DIBUJO  DE  LR  LINER  HORIZONT 
RL  V  HE  LRS  PRLRBRR  'JUGADA'  V  'NUME 
RO'*** 

30  PRINTCHRÍC 147) 

40  FGRJ-0TO8 

60  PRINTCHRíC 17) 

80  NEXTJ 
100  FORK-0TO39 
120  PRI NTCHRÍ (96) i 
140  NEXTK 

160  PR I NTCHRí (1 7 ) CHRÍ  < 1 7 ) TflB  C  4 ) " JUGR 
DR" i : PRINTTRB<24) "NUMERO" 

165  REM 

170  REM***GENERACION  NOS.  RL.  AZAR*** 

175  REM 

180  DIMA<90)  :  J“1 
190  IFJ*91THEN3000 
200  X*INT(RND(1)*30)+1 
220  IFA(X)“1THEN200 
240  A(X)*1 
350  GOSUB5000 

353  REM 

354  REM 

355  REM***COLOCACIGN  DE  LOS  NOS.*** 

356  REM 

357  REM 

360  PRINT CHRÍ C145)TRB(12)Ji : IFXC10TH 
EN375 

370  PRINTTRB(32)X : GÜTO380 
375  PR I NTTRB ( 32 ) “ C SPC 3 " X 
380  GETAÍ : IFAÍ»""THEN380 
400  J=J+1 
420  PRINTCHRÍC 19) 

460  B=INTCX/10) : C*X-B*10 

465  I FX< 1 0THENPR I NTTRB  < 1 +4*  <  C- 1 ) ) C : G 

070580 

480  IFC-0THEN2000 
500  F0RS*1T0B 
520  PRINTCHRÍC 17) 

540  NEXTS 

560  PRINTTRB(4*(C-1 >>X 
580  PRINTCHR$< 19) 

600  FQRM=0TO10 
620  PRI NTCHRÍ (17) 

640  NEXTM 
660  GOTO 190 
2000  F0RS-1T0B 
2020  PRINTCHRÍC 17) 

2040  NEXTS 

2060  PR I NTCHRÍ (145) CHRÍ ( 145)TRB<36)X 
: GOTO580 

2997  REM 

2998  REM***FINRL*** 

2999  REM 

3000  GETBÍ : IFBí*" "THEN3000 

3040  PRINTCHRÍ ( 147) ■ PRI NTTRB ( 167)CHR 
$(18) "FCSPC3I [SPC3NC3SPC3DCSPC3ECSPC3 
LC3SPC3JCSPC3UCSPC3ECSPC3GCSPC30" : PR 
INT • PRINT 
3060  GOSUB4000 

3100  PRINTCHR$( 17) "PRRfl CSPC 3 VOLVER CSPC 3 
fl  C  SPC  3  JUGRR I SPC  3 . . . . " 'PRINT 
3120  GOSUB4800 


3140  PRINT"PULSECSPC3 CUALÜIJ IERCSPC3T 
ECLR" 

3160  GETCí : IFCí=" "THEN3160 
3180  GOTO 10 

3997  REM 

3998  REM***RETRRDÜ  DE  3  SEGUNDOS*** 

3999  REM 

4000  T I  í  * 11 000000 " 

4020  IFTI í< "000003" THEN4020 
4040  RETURN 

4997  REM 

4998  REM***RUTINfl  DE  SONIDO*** 

4999  REM 

5000  8*54272 ¡ FORL-0TO24 : PGKES+L, 0 : NE 
XT 

50 1 0  POKES+3 , 8  ¡  POKES+5 , 1 7  ¡  POKES+6 , 1 3 

5020  PQKES+24 ,  1 5 : POKES+4 , 65 

5030  FORT«lTO10:POKES+0, 10:POKES+1,6 

0 ¡ NEXT 

5040  POKES+24, 0 : POKES+4, 64 • RETURN 


Truco  del  almendruco 


Con  este  programa,  el  VIC  20  se  viste  con  chistera  y  capa,  y 
empuñando  la  varita  mágica  nos  asombra  con  sus  dotes  de 
adivinación,  procedentes  de  un  cursillo  acelerado  al  que  se  ve 
sometido  a  través  de  las  líneas  del  programa. 

El  funcionamiento  es  sencillo:  nosotros  pensamos  un  número 
del  1  al  64,  y  el  ordenador  lo  adivinará.  Por  supuesto  que  hay 
truco,  pero  eso  ya  cae  fuera  del  campo  de  la  programación. 
Simplemente  nótese  que  respondiendo  sí  o  no  (1  ó  0)  6  veces  se 
obtienen  2  elevado  a  la  6  (64)  combinaciones  distintas. 

La  parte  más  interesante  del  programa  es  el  algoritmo  que  se 
encarga  de  generar  las  tablas  que  aparecen  en  pantalla. 

Enseña  este  programa  a  tus  amistades  y  se  sorprenderán  del 
resultado. 


7  FORI-128TO250:pQKE36876, I :FORJ-0TQ 
10 :  NEXT : NEXT 

8  POKE'36876,0 

10  PR I NT " E 4CRSRD 3  E  SPC  3  P I ENSRE SPC 1 UN 1 SPC 3 
NUMERO  E  SPC  3  DEL  £  29SPC  3 1  £  2SPC  3ALE2SPC3 
63" 

1 1  PR INI " C  4CRSRD ] LUEGÜE  SPC  3  PULSft E 2SPC  3 
-ESPFlC I O- " : D I MN ( 3 1 > : P=0 

13  GET I N* : I F I Ní O " E  SPC  3 " THEN 1 3 
20  FORT=0TO5 

30  P=2  tT ; B=64-A : C*2  Tí  T+ 1 ) 

40  GOSUB500 : NEXT 

50  PR I NT " E  CLR  3  E  6CRSRD 3  E  SPC  3  EL  £  SPC  3  NU 
MERO  E  SPC  3  QUE  £  SPC  3  HflB I HS  £  27SPC  3  PENSAD 
OCSPC3ESESPC3EL : " 

60  FORI*217TO207STEP-5:POKE36876< I -F 
ÜRJ=»0TO400  :  NEXT  ¡  NEXT  ■  PUKE36876 , 0 
70  PR I NT " £ 2CRSRD3 E 9SPC 3 " P " £ 6CRSRD 3 " ; 
FORZ"0TO500 • NEXT 

80  FQR J»0TO  1 00  ■  P0KE36876 , 23 1  ■'  PÜKE368 
75 i  236 • NEXT : P0KE368 76, 0 : PÜKE36875, 0 
90  PR I NT " £  3CRSRD 3  £  SPC  3  ESTE  E  SPC  3  ES  E  SPC  3 
EL  £  SPC  3  TRUCO  E  SPC  3  DEL  £  23SPC 3  £  RVSON  3  HL 
MENDRUGO  ERVSOFF  3 11 
100  GOTO100 
500  X=»0 

510  FORI-flTOBSTEPC 
515  F0R.J«IT0I+(C/2)-l 
520  N(X3* J : X»X+1 : NEXT • NEXT 
530  PR I NT " £  CLR  3  £  2CRSRD  3 " 

54Ó  FOR I b0T Ü28STEP4 

550  RRINTTFlBE 1 )N<I)THB<6)N< 1+1 )TRB( 1 

1 3N< I+2)THB< 16)N< 1+3) 

560  NEXT ¡ PRINT :PRINT 

570  PR 1 NT " ESTRE SPC  3HQUI E  SPC3TU  £  SPC  3N 

UMERO?" : PRINT 

580  GET  IN*¡IFIN»«"S"THENP"P+N<0>:RE 
TURN 

590  I F I Ni* “ N " THENRETURN 
600  GGTO580 


Magia 


Programas  que  ayudan  al  usuario 

Es  corriente  que  cuando  uno  escribe  una  rutina  en  código 
máquina,  no  recuerde  la  dirección  del  inicio  de  la  misma.  Un 
buen  truco  para  acordarse  es  salvar  el  programa  con  un 
nombre  como  “RUTINA  XXXX”,  donde  XXXX  es  el 
comienzo  de  la  misma.  Si  además  de  esto  el  que  va  a  utili¬ 
zarla  no  es  un  usuario,  podemos  llamar  al  programa: 
“[CRSR  D]  SYS  XXXXX  [3  CRSRU]”;  de  este  modo 
cuando  la  rutina  acabe  de  ejecutarse  bastará  con  pulsar 
return  para  que  esta  se  ejecute. 

S.K.  RUN  EEUU. 

¿Pulse  una  tecla? 

En  algunos  programas  que  funcionan  con  joystick,  hay 
ocasiones  en  que  se  le  indica  al  jugador  que  pulse  una  tecla 
para  continuar.  ¿Porqué  no  el  botón  del  joystick  en  lugar  de 
una  tecla? 

Las  siguientes  líneas  hacen  que  se  pare  el  programa  hasta 
que  se  pulse  el  botón  del  joystick. 

WAIT  37137,32,32  VIC-20 

WAIT  145,16,16  C-64  Port  1 

WAIT  56464, 16,16  C-64  Port  2 

E.L.H.  RUN  EEUU. 


En  este  juego,  el  C-64  y  el  jugador  escogen  cada  uno  un 
número  de  cuatro  cifras  distintas  entre  sí.  Cada  uno  deberá 
intentar  averiguar  el  número  del  otro. 

El  contador  de  tiempo  indica  a  quién  le  toca  jugar. 

Escribiremos  un  número  y  la  máquina  tontestará  los  muertos 
+  y  los  heridos  @. 

Son  muertos  las  cifras  acertadas  que  coincidan  en  la  posición  y 
heridos  el  resto  de  las  cifras  acertadas. 

Por  ejemplo,  si  el  C-64  tiene  el  número  8056  (evidentemente  no 
lo  sabemos)  y  escribimos  5206  habrá  +@@  el  6  muerto  y  el  5  y 
0  heridos,  tampoco  conocemos  las  cifras  acertadas,  sólo  el 
número  de  cifras  acertadas  y  cómo. 

Cuando  sea  el  C-64  el  que  juegue  y  dé  un  número,  debemos 
escribir  tantas  “+”  como  muertos  y  como  heridos  haya. 

El  C-64  a  partir  de  la  cuarta  tirada  empieza  a  ir  despacio. 

Por  lo  general  el  C-64  siempre  acierta  el  número  en  la  5  ó  6 
tirada  y  con  un  tiempo  total  máximo  menor  de  20  minutos. 
Breve  descripción  del  programa: 

10-  80  Programa  principal. 

100-  190  Inicialización  y  dibujo  del  cuadro. 

200-  260  Elección  de  jugador  que  empieza. 

300-  310  Visualización  de  tiempo. 

400-  590  Esperar  jugada  y  dar  muertos  y  heridos. 

600-  690  Juega  el  C-64. 

700-  770  Comprobación  de  número  posible  o  posibilidad  de 
trampas  por  parte  del  jugador. 

800-  860  Búsqueda  de  otro  número  posible. 

900-  950  Mensajes  de  final  de  juego. 

1000-1090  Lectura  de  muertos  y  heridos. 


10  REM  JUEGO  DE  NUMEROS 

15  DIM  X*C4),Xl*a0i4),XM*<4),MUa0> 

/  HE  C 1 0 ) 

20  OÜSUB  100 
30  GOSUB  200 

40  I F JUG*  1 THENGO8UB400 :  GOSUB  900 
50  GOSUB  600 : GOSUB  900 
60  GOTO  40 
80  END 

100  REM  INICIHLI28CIQN  V  DIBUJO  DEL 
CUADRO 


110  PRINT  " I CLR  3 1 2CRSRD  3 ! CQMMR  3 " ; ; FO 
RI-1T038 ;  PRINT" ÍSHIFTC3  " ;  :  NEXT :  PRINT 
" I COMMS 3 " ¡  ■ FOR I  »  1 TO20 : PR I NT " ! SH I FTB  3 
" : NEXT 

120  PRINT"  ÍCOMMZ3";  :  FÜRI-1T036  ■' PRINT 
"ÍSHIFTC3";  : NEXT' PRINT" I COMMX3";  :  FOR 
I » 1 TO20  ■'  PR  I  NT  "  í  CRSRL  3 1  CRSRU  3 1 SH I FTB  3 
"i : NEXT 

130  PRINT" ÍCQMMQ3"; : F0RI-1T038 : PRINT 
"  í  SH  I FTC  3  " ;  :  NEXT :  PR  I  NT  "  [  COMMW  3  [  CRSRU  3 
";SPC<20); "ÍCQMMR3"; 

1 40  FOR  I  -  1 TO 1 8  =  PR  I  NT  "  C  CRSRD  3  í  CRSRL  3  I  SH  I  FTB 3 
" i  • NEXT : PRINT" ! CRSRD 3 [ CRSRL 3 C COMME 3  í  HOM  3 
C  6CRSRD 3 I COMMQ 3  I 1 9SHI FTC  3  í  SH I FT+  3 " ; 

150  PR I NT " í 1 8SH I FTC  3 1 CQMMW 3 I HOM 3  ! 2CRSRD 3 
" : PR I NTSPC  <1 2 ) i " C CRSRU  3  JUEGO! SPC 3  DE  C SPC  3 
NUMEROS" 

ISO  PRINT"! CRSRD 3 1 2CRSRR 3 MflQU I NR í 4CRSRR 3 
000000  í  SPC  3 1 CRSRR  3 1  SPC  3  JUGADOR  1 3SPC  3 
000000" 

170  TR-0 ■ TJUG#«" 000000 " : TMAÜ*- " 00000 
0" : XM*“" " 

180  FORI-0TO3 ■ XM*< I )=CHR*(48+INT< 10# 

RND( 1  )  )  )  : NEXT 

185  FÜRI-0TÜ2 •'  F0RJ-I+1T03  ■'  IFXM*(I)-X 

M*<J)THEN180 

190  NEXT :  NEXT  •'  RETURN 

200  REM  ELECCION  DE  JUGRDOR  QUE  EMPI 

E2R 

210  JUG— 1 : I«RND<  1 )  '■  IFIC.5THEN  JUG-1 
220  EMPE20-JUG 

230  FOR I -0TO9 ■ A*  <1 ) =CHR*  <  48+ 1 ) : NEXT 
240  FÜRI-1TQ5 : A-INT < 10#RND< 1 ) ) : B-INT 
<10#RND<2>) :B**A#<A> A#<A)»A*<B);A*< 

B)«B* 

250  NEXT :  E 1  «0  ■'  E2-  1 :  E3-2 :  E4-3 
260  RETURN 

300  REM  CONTRBILIZHR  E  IMPRIMIR  TIEM 
POS 

310  PRINT" IHOM3 I5CRSRD3 " i SPC< 13+9. 5# 
CltJUG)); TI*: RETURN 
400  REM  ESPERRR  JUGRDR 
410  TIÍ-TJUG*: IFEMPEZO-1THENTR-TR+1 
415  PRINT  " ! HOM 3 ! 7SPC 3 T I RRDH L SPC 3  " ;  T 
Ri  "I44SPC3"; 

420  NU-0 : X*»" " : PRINT" IHOM3 I6CRSRD3 ICRSRR3 
"J  : FÜRI-1TOTR : PRINT" ICRSRD3 " ;  :NEXT:P 
RINT3PCC21); "I4SPC3"; 

430  GETX*<NU) : GOSUB  300  : IFX*(NU)C'0 

"ÜRX*<NU)>"9"THEN430 

440  FORI-0TGNU-1  :  I FNUO0HNDX* ( NU ) -X* 

(.  1 3THENGOTO420 
450  NEXT 

455  PR I NT " ! HOM  3 ! 6CRSRD  3 ! CRSRR  3 " i :FOR 
I  - 1 TOTR  ■'  PR  I  NT  "  I  CRSRD  3  "  ;  =  NEXT  :  PR  I NTSP 

c<21+nu);x*cnu); 

457  I FNU-0THENPR I NT " ! 3SPC 3 " i 

460  IFNUC3THENNU-NU+1  GOTO430 

465  PRINT  "I5SPC3"; :M=0:H=0 

470  FOR  I-0TO3: FORJ-0TO3 

480  I FX*  <  I ) -XM*  <  J > RND I O JTHENH-H+1 

490  I FX*  C I ) -XM* ( J ) RND I - JTHENM-M+ 1 

500  NEXTJ, I 

505  M<TR)=M : HE-H 

510  IFMO0THENPRINT"+",  :M=M-1  ¡GOTO  5 
10 

520  I FHO0THENPR I NT " í SH I FTQ 3 " J  'H-H-l 
: GOTO  520 

530  JUG— JUG¡TJUG*»TI* 

590  RETURN 

600  REM  JUEGR  Lfl  MRQUINfi 

6 1 0  T I Í-TMRQ*  :  BUSQUEDA-0 : 1  FEMPEZO— 1 

THENTR-TR+1 

612  PRINT  "IHOM3I7SPC3TI RRDR ! SPC 3 " >  T 
R, " I44SPC3 " ; 

615  IF  MUCTR-1 )-0THENEl-El+l :E2*0¡E3 
<=1  ¡E4=2 

616  IF  MUCTR-l )"1THENE2=E2+1 :E3*0:E4 


617  IF  MUÍTR-l )-2THENE3-E3+l : E4-0 

619  I FTR- 1 THENGOSUB700 : GOTO670 

620  GOSUB 700 :  GOSUB800  '•  IFBU-0THEN620 
670  PRINT  "! HOM 3! SPC 3  INDI  CAR! SPC 3 MUE 
RTOS I SPC  3  V ! SPC  3  HER I DOS 1 5SPC 3  MUERTOS- 
+ÍSPC3, ISPC3HERIDOSISPC3-ISPC3 ISHIFTQ3 

680  PR I NT " I HOM  3 1 6CRSRD3 1 2CRSRR  3 " i  :FO 
RI-1TQTR ;  PRINT" ICRSRD3 "  i  ■'  NEXT :  PRINTX 
*<0);X*(1);X*<2);X*<3); 

690  GOSUB  1 000 ;  JUG*- JUG  '■  TMRQ*=T  I  *  :  RE 
TURN 

700  E4-E4+1 : IFE4>3THENE4=0¡E3*E3+1 

710  IFE3>9THENE3-0 ; E2-E2+1 

720  IFE2>9THENE2=0 : El-El+1 

730  I FE 1 >90RE 1 >8RNDE2>?ANDE3>bRNDE4> 

5THENTR— 1  ¡GOTO900 

740  I FE  1 -E20RE 1 -E3ÜRE 1 -E40RE2-E3QRE2 
-E4ORE3-E4THEN708 

750  X*<0)=A*<E1 )  :  X*(  1 )=A*(E2) :X*Í2)“ 
R*(E3>  :  X*(3)=A*(E4)  :  GOSUB300 
760  PRINT"! HOM  3 1 6CRSRD  3 ! 2CRSRR  3 " i :FO 
RI-1TOTR  ¡  PRINT" I CRSRD 3  "  i  '■  NEXT  :  PRINTX 
#<0);x*<i);x*<2);x*<3); 

770  RETURN 

800  FORK 1-1 TOTR- 1 

802  IFHEÍK1  )O0ORX*< 0)0X1  *<K1  ,  1)AND 
XíCGJOXlítKl^JRNDXÍCBíOXlíCKliSJT 
HEN804 

803  El-El+1 : E2=0 : E3-1 : E4=2 ¡ RETURN 

804  I FHE  <  K 1 )  O0ORX*  (1 )  OX 1  *  ( K 1 , 0 )  RND 
X*(l)OXl*(Kl  1 2)RNDX*(  1  )OXl*<Kl  j  3)T 
HEN807 

805  E2-E2+1 : E3=0  =  E4-1 : RETURN 

807  IFHE<K1 ) O0ORX* (23 OX  1  * <. K 1 , 0>RND 
X*(2)OXl*(Kl  / 1  >RNDX*(2)OXl*CKl  *  3)T 
HEN811 

808  E3-E3+1 :E4-0: RETURN 

811  IFX*( 1 >-X1*<K1j1 3RNDMUCK1 3-0THEN 
E2-E2+1 : E3=0 : E4-0 : RETURN 

812  IFX*(2)aXl*(Kl i 2>RNDMU(K1 3-0THEN 
E3-E3+1 :E4=0: RETURN 

813  NEXT 

820  FORK 1 =TR- 1 TO 1 STEP- 1 : M-0 : H=0 : FÜRI 
-0TO3 : FORJ-0TO3 

830  IFX*  < I ) -X 1 *  <  K 1 ; J  >  RNDI O JTHENH-H+ 

840  I FX*  < I ) -X 1  *  <  K 1  - J ) RND I - JTHENM-M+ 1 

850  NEXTJ, I : IFMUCKl K>M0RHE<K1 K>HTH 
ENRETURN 

860  NEXT : BUSQUEDA- 1 : RETURN 

900  REM  FINAL  DE  JUEGO 

902  I FTR— 1 THENPR I NT " í  HOM  3 1 1 1 SPC  3 HRC 

ESISPC3 TRAMPAS"; : INPUT" ICRSRU3 " ; R* : P 

RINT"  ICLR3  "  '■  STOP 

910  I FM  C  TR ) -4RNDMU < TR ) -4THENPR I NT " t HOM  3 
! 1 1 SPC 3 EMPATE! SPC 3 I  I"; : INPUTR* : PRINT 
" ICLR3 " ; ; STOP 

920  I FM ( TR ) +RBS (EM+JU ) -6THENPR I NTS " IHOM  3 
! 8SPC  3  HAS  í  SPC  3  GANADO " : INPUT" ! CRSRU 3 " 

A* : PRINT" ICLR3 STOP 

930  I FMU  <  TR } +ABS  <  EM+JU i 06THEN  RETUR 

N 

940  PR I NT " ! HOM  3 1 2SPC  3  HE ! SPC  3  GANADO ! SPC  3 
!  1 1  SPC  3  M 1 1  SPC  3  NUMERO  t  SPC  3  ERA  t  SPC  3  "  XM 
*(0) ;XM*< 1 ) ;XM*<2> ; XM*(3) : INPUT" ! CRSRU 3 

";a* 

950  PRINT" ICLR3 STOP 

1000  REM  LECTURA  DE  MUERTOS  V  HERIDO 

S 

1010  X1*CTR,0;-X*<0)  :X1*(TR,  l)=X*a) 

: X1*(TRj  2>-X*C23 : X1*(TR<  3)-X*<3) 

1020  PRINTCHR*C 13) ; SPCC 12) i " ICRSRU3 I5SPC3 
I5CRSRL3 “ ; 

1030  MU<TR)-0 ; HECTR)-0 
1040  GETA* 

1050  IFA*-"  +  "THENMUaR)-MU<TR)  +  l  :PRI 
NT"+"; 
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1060  I FAí - 1 "  [ SH I FTÜ ] " THENHE ( TR ) «HE  C  TR 
>  +  l  :PRINT"[SHIFTG¡]"; 

1070  IFHí=CHRí<13)THEH  RETURN 
1080  IF  MU(TR)+HECTR)>4THEN  1020 
1090  GOTO  1040 


Integrales 


Calcula  por  el  método  de  Simpson  integrales  definidas  entre 
unos  límites  introducidos  por  el  usuario.  Se  pide  función, 
límite  inferior  y  superior,  y  na  de  puntos  del  enrejado.  Esto 
último  es  el  número  de  porciones  en  que  el  programa  dividirá 
la  función  para  calcular  su  integral.  Cuantas  más  divisiones, 
mayor  precisión  en  el  resultado,  pero  también  se  tarda  más 
tiempo  en  calcular.  El  usuario  deberá  decidir  el  valor  que 
introduce,  dependiendo  de  sus  necesidades  de  precisión  y 
rapidez,  y  de  la  clase  de  función  que  se  estudie. 

Cuando  ya  se  ha  calculado  todo,  el  programa  imprime  el  signo 
integral  (cadena  C$)  con  los  límites  dados  y  escribe  el 
resultado.  También  señala  el  tiempo  empleado  en  la  operación. 
El  programa  es  tan  simple  que  no  creo  que  necesite  mayor 
explicación. 


10  PRINT" [CLR] " 

20  PRINT" [CRSRR]*#*#****##*##**##### 

30  PR I NT " C  CR3RR ] *  C  4CRSRR ] CALCULO  C 8PC ] 
DEC4CRSRR3*" 

40  PR I NT " [  CRSRR  ]  #  t  4CRSRR ] I NTEQRALES  C  4CRSRR ] 
#" 

50  PR I NT " [ CRSRR ] # [ 4CRSRR] DEFINIDAS! 5CRSRR ] 

#" 

60  PRINT" [CRSRR]*#*******#*##*###**1* 

70  PRINT 

80  PR I NT "  [  SPC ] I NTRQDUZCA C SPC ] AQU I [ SPC ] 

LA"  PRINT" [SPC3FUNCI0NCSPCIACSPCJINT 
EGRAR" 

90  GOTG2000 

95  PRINT" [HOM] [ 13CR8RD] " i 


100  DEFFNA<X)«XT2 
110  A«0 : PR I NT " C  BLU ] " ) 

120  Aí«"F(X)«" : Cí«" [CRSRR] [SHIFTU3 [CRSRL] 
[ CRSRD ] [ SHI FT- ] [ CRSRL ] [ CRSRD ] [ SH I FT- ] 

[ CRSRL ] [ CRSRD ] [ SH I FT- ] [ CRSRL ] [ CRSRD ] 

C SHI FTK ]  "  •  D#« "  [ 22CRSRL  ]  " 


1 30  I NPUT " COTA [ SPC ] I NFER ",I : WE*LEN C S 
TR*<I>)-2 

140  INPUT"COTR[SPC]SUPER" 1 S 
143  I NPUT “P. ENREJADO" 1N 

146  Ll-TI 

147  H«(S-I)/N 
150  K 1 «H73 
160  K2*FNA<I ) 

165  K3«0 : K4=FNA(S) 

167  J»1 

170  FORK-I+HTOS-H  STEP  H 
175  J«J-2#SGN< J) 

180  K3«K3+(3-SÜN(J))*FNAí:K) 

190  NEXT 

198  R«K1#CK2+K3+K4) 

200  GÜSUB1000 

204  PRINTC*; IJLEFT$(D*,WE)+"[3CRSRL] 
[  4CRSRU  ]  "  S  ■  PR  I  NT  "  [  2CRSRR  ]  [  CRSRD 
R" US [CRSRD]" 

247  L2=TI 

248  PRINT  PRINT  "TIEMPO :  "  i  INTC  (L2-L1 ) 
760) í "SEG" : PRINT 


250  I NPUT" MISMA [SPC] FUNCION" 1 V$ 

260  I F Vf* " S " THEN 1 00 

265  I NPUT " NUEVA í SPC ] FUNC ION" ¿ L* 

266  IFLí*"N"THENEND 
270  RUN 

1000  REM**REDÜNDEO## 

1010  R* I NT (R#10U000+. 5)7100000 
1020  RETURN 

2000  REM** INTRODUCE  FUNCION*# 

2005  PRINT : I NPUT "[SPC] " ; FF* 

20 1 0  PR I NT " [ HOM ] [ WHT ] [ 1 7CRSRD ) 1 00DEF 
FNA(X)«"FF# 

2015  PRINT"Ü0T095" 

2020  P0KE214, 15:p0KE198,2:P0KE631i 13 
: P0KE632j 13END 


Magia 

Para  usuarios  del  EASY  SCRIPT  C-64 

Suban  el  volumen  de  su  monitor  y  a  continuación  tecleen: 
(tecla  Fl)  (CTRL+3).  Es  verdaderamente  curioso. 


Posición  653 

La  posición  de  memoria  653,  contiene  el  estado  de  las 
teclas  SHIFT,  CTRL  y  COMM  (la  de  abajo  a  la  izquierda). 

Si  ejecutamos:  1  PRINT  PEEK  (653):  RUN 

Podremos  ver  como: 

SHIFT  =  1 
COMM  =  2 
CTRL  =  4 

Si  pulsamos  a  la  vez  SHIFT  +  COMM,  nos  da  3  (1+2),  las 
tres  teclas  a  la  vez  nos  da  7  (1+2+4).  Esto  quiere  decir  que  si 
en  un  programa  efectuamos  la  operación  PEEK  (653)  AND  1, 
nos  dirá  si  SHIFT  esta  pulsada;  AND  2,  (COMM)  y  AND  4 
(CTRL).  Estas  tres  teclas  son  INDEPENDIENTES  entre  sí 
y  entre  las  otras  del  teclado. 

A.I.  RUN  EE.UU. 
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En  la  presentación  se  pide  la  gestión  anual  al  dibujar  (deberá 
escribirse  esta  y  pulsar  “return”),  debiendo  dar  los  datos 
correspondientes  a  cada  mes.  (Para  valores  mayores  que  195 
debe  buscarse  otra  escala  ya  que  se  sale  de  la  pantalla). 

A  continuación,  se  dibujan  lentamente  en  alta  resolución  los 
ejes  de  coordenadas,  las  ordenadas  de  cada  mes  y  por  último, 
el  gráfico  de  la  gestión  anual  deseada. 

Este  programa,  en  lenguaje  máquina,  será  mucho  más  rápido. 
Comentarios  del  listado: 

1-  167  Presentación.  (En  124  se  piden  datos). 

170-  200  Protocolo  de  entrada  en  alta  resolución. 

207-  225  Dibuja  el  eje  vertical. 

235-  255  Dibuja  el  eje  horizontal. 

265-  300  Dibuja  las  ordenadas  de  cada  mes. 

305-  395  Dibuja  las  líneas  de  cada  mes.  (Si  se  desea  que  sea 
más  rápido  en  este  proceso,  eliminar  de  la  línea  335 
el  “STEP.3”,  con  el  inconveniente  de  que  saldrá  la 
línea  con  menos  nitidez). 

400-  415  Fin. 

1000-1600  Bucle  para  dibujo  en  alta  resolución. 

2000-2400  Bucle  de  presentación. 


1  REM******G8RFIC0S  GESTION********* 

*** 

2  REM*******VRLQRES  /  MES*********** 

*** 

3  REM******************************* 

5  PRINT"CCLRT"  :  PRINT :  PRINT  :  PRINT 
7  PRINTTRB<  12) i "CRVSONTGRRFICOISPCID 
ECSPCIGESTIONCRVSOFFT" :F0R  P-0  TO  10 
00  '■  NEXT  P 

9  PRINT" CCLRJ" : PRINT 'PRINT 'PRINT 

10  PRINT" INBICRRCSPCTLRCSPCIGESTIONESPC] 
fl [ SPC ] EFECTUAR:" 

15  PRINT : PRINT : PRINT 

20  PR1NTTRB<15>; "*[ SPC T COMPRAS. " :PRI 

NT 

25  PRINTTRBaSJJ  "*[SPCTVENTRS.  "  PRIN 
T 

30  PR I NTTRB <1 5 ) . " * L SPC ] I NVERS IONES. “ 


: PRINT 

35  PRINTTRfií 15) i "*[SPC]BENEF ICIOS. " : 
PRINT 

40  PRINTTABC 15)  i "*[SPCTPERBIBRS. " -PR 
INT 

45  PRINT : PRINT ; PRINT : INPUT"*ESCRIBACSPC3 
LH  í  SPC  1 GEST I ON  C  SPC  1  QUE  t  SPC  ]  IlESER  í  SPC  I 

realizar" ;b* 

50  PRINT" CCLRI " : PRINT ■ PRINT 

55  PR I NTTRB ( 8  ) ; " *GRRF I CO  C  SPC I RNURL C  SPC ] 
UECSPCl'SB*;  "*" 

56  PR I NTTAB ( 8 ) 1 " [ 28CQMMU ] " 

60  PRINT ; PRINT • PRINT : PRINT 

65  PRINTTABC8) i "PHRACSPCIOBTENERCSPCT 
EL  C  SPC ] GRRF I CO [ SPC IBEISPCI " : PRINT 
70  PR I NTTRB ( 5 ) . BS  J " [ SPC  T DEBERRN C  SPC I 
BAR C  SPC ] LOS [ SPC  J VALORES " ■ PR I NT 
75  PRINTTRB<7) >  "MENSURLESCSPC3QUEC8PC3 
SE  C  SPC I BEBEN  C  SPC I B I  BU JRR " : PRINT 
80  PR I NTTRB C 1 0 ) i " R C SPC 1 C0NT I NURC I GN. 

" ; PRINT : PRINT 

85  FOR  W-0  TO  3000: NEXT  W 

87  BIM  S(13)jH(13)jR*<12) 

90  PRINT" ICLR] " : PRINTTRBC 15) i Bí ■ PRIN 
TTRB(15)J "C9COMMU3" 

9b  PRINT: PRINT 
100  RESTORE 
105  FOR  >1  TO  12 
110  REHB  R<< I ) 

115  NEXT  I 

1 1 7  BHTR  " ENERO " . " FEBRERO " , " MRRZO " > " 
RBRIL" . "MRVOCSPC] " . "JUNIO" . "JULIO" . " 
RGOSTO" 

120  BRTR  "SEPTIEMBRE". "OCTUBRE". "NOV 
IEMBRE" . "BICIEMBRE" 

122  FOR  I»1  TO  12 

124  PRINT"-MES[6PC]BErSPCr,R*<I>;  -  ¡ 
INPUT  H< I ) ; 8< I >*195“H< I > 

126  IF  HCn>195  THEN  2000 

128  NEXT  I 

129  PRINT: PRINT: PRINT 

130  PR I NTTRB ( 5 ) ¿ " «7DESER C  SPC 1CRMBI RR 
? . . .  .  PIJLSRR  C  SPC  K 1 )  "  :  PR  I  NT 

135  PRINTTRB(S) ; "*?BESEHCSPC7GRRFICO 

?. . . .  PULSRRCSPCK2)  "  :  PRINT 

140  GET  X$  : IF  X*®" "THEN  140 

145  IF  X*-"l"  THEN  90 

150  IF  X*»"2‘'  THEN  160 

155  G0  TO  140 

160  PRINT “CCLRJ " : PRINT : PRINT : PRINT : P 
RINT 

165  PRINTTRBÍ 10) i "ESPERE! SPC TUNE SPC] 
MOMENTO" 

167  FOR  W-0  TO  500: NEXT  W:pRINT"tCLR] 

1 70  BRSE«2*4096 : P0KE53272 , PEEK ( 53272 
>0R8 

1 80  P0KE53265 , PEEK  <  53265 ) 0R32 

190  FOR  I®BRSE  TO  BRSE+7999 : PÜKE  1.0 

:  NEXT 

200  FOR  1-1024  TO  2023: PÜKE  1,3: NEXT 
205  : 

207  REM******EJE  VERTI CRL*********** 

* 

210  FOR  V-0  TO  195 
215  X-5 

220  GOSUB  1000 
225  NEXT  V 
230  : 

235  REM*««****EJE  HOR I 2ÜNTRL.******** 

* 

240  FOR  X-5  TO  313 
245  V-195 
250  GOSUB  1000 
255  NEXT  X 
260  : 

265  REM«***«**EJES  VERTI CRLES******* 

* 
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275  FÜR  X*33  TÜ  313  STEP  28 
280  FÜR  V-0  TO  195  STEP  5 
290  GÜSUB  1080 
293  NEXT  V 
300  NEXT  X 

305  REM***«**«  GRAFICO  DE  MES  ****** 

310  DIM  X( 13) 

315  X( 1 >=5 
320  FOR  1*1  TO  11 
325  X( 1+1 >*X( I )+28 
330  NEXT  I 

332  FÜR  1*1  TÜ  12 

333  FOR  X*X(I>  TO  X<I+1>  STEP  .3 

340  R*<xa)*sa+i))-(xa+i)*sci)) 

343  T*SCI  +  l)-Sa> 

350  U=x<l)-xa  +  l) 

355  V*INT  <  <R-T*X)XU> 

360  GÜSUB  1880 
390  NEXT  X 
395  NEXT  I 
400  PQKE  1824,16 
410  GÜTO410 
415  END 

1800  RÜ=INTCVXS) 

1100  CH*INT (X/8) 

1200  LN*V  AND  7 
1300  BI*7-<X  AND  7) 

1400  BV*BASEtRÜ*320+CH*8+LN 
1500  POKE  BV, PEEK(BY)  OR  C2TBI) 

1600  RETURN 

2000  PRINT" CCLR] " : PRINT : PRINT ¡ PRINT : 
PRINT : PRINT : PRINT 

2100  PRINTTABO.U  "PONERCSPdUNCSPCÍV 
ALÜRCSPC) MENOR [  SPC I QUE " : PR I NT 
2208  PRINTTABC8); " 1951 SPC IVA C SPC 3 QUE 
C SPC 3ELC SPC) GRAFICO! SPC] SE": PRINT 
2380  PRINTTABC8) i "SALDRA! SPC) DEC SPC) 
LACSPCIPANTALLA. " 

2400  FÜR  K»0  TO  1500.NEXT  K:QO  TO  90 


Magia 


Sobre  los  “DATAS” 

Si  tenemos  un  programa  que  contiene  unos  datas  alfanu- 
méricos  como  por  ejemplo:  900  DATA  HOLA,A,B,C,ADIOS 
puede  suceder  que  nos  equivoquemos  al  efectuar  el  READ, 
y  digamos:  10  READ  A 

Como  A  es  una  variable  numérica  y  “HOLA”  es  alfanu- 
mérica,  nuestro  ordenador  nos  dara  un  error,  pero  no  el 
“TYPE  MISMATCH”,  sino  SYNTAX  ERROR  en  la  línea 
de  los  DATAS. 

Si  hacemos  el  READ  en  alfanumérico  (A$),  y  los  datas 
son  numéricos  NO  nos  dara  error,  sino  que  tomará  los  datas 
numéricos  como  alfanuméricos. 

A.I.  RUN  EE.UU. 

Prevención  de  desastres  en  la  unidad  de  discos 

Si  al  listar  el  directorio  de  un  disco  te  encuentras  con  un 
a  la  derecha  del  nombre  de  un  programa  o  de  un  fichero,  no 
utilices  la  orden  SCRATCH  para  borrar  o  podrías  causar  un 
auténtico  desastre.  Utiliza  la  orden  VALIDATE,  que  real¬ 
mente  borrará  el  fichero  incorrecto. 

Si  estas  con  el  programa  WEDGE,  @V  se  encargará  de 
hacerlo.  En  caso  contrario  basta  con  teclear 
OPEN15,8,15,“V”:CLOSE15 

_  R.A.A.  RUN  EE.UU. 


Dibujos 


Este  programa  es  para  dibujar  en  alta  resolución  en  una 
porción  de  la  pantalla,  para  un  VIC-20  sin  ampliar: 

5-  10  Se  limpian  las  direcciones  de  memoria  que  van  a  ser 
utilizadas  y  se  prepara  un  cuadro  en  la  parte 
superior  izquierda  de  la  pantalla. 

30-  95  Se  lleva  a  cabo  el  movimiento  del  punto  de  dibujo 
para  marcar  o  borrar. 

1000-1010  Son  las  fórmulas  para  determinar  el  byte  que  va  a 
ser  estimulado. 

3000-3010  Borra  la  pantalla,  forma  el  marco  y  vuelve  el  punto 
de  dibujo  al  centro  del  cuadro. 

5000  Coloca  el  punto  en  el  centro  del  cuadro. 

6000-6130  Comienzo  e  instrucciones  del  juego. 

Por  último,  cuando  pulséis  el  signo  “=”  se  borrará  la  pantalla 
y  se  podrá  comenzar  de  nuevo;  si  se  pulsa  la  “£”  el  punto  de 
dibujo  se  colocará  en  el  centro  del  cuadro. 


0  REM****L. OLALLA#*#* 

1  REM*****DIBUJOS**** 

2  REM******1984****** 

3  PÜKE650, 128 : GGTO6000 

5  PÜKE52, 28 : P0KE56, 28 : CLR 

6  F0RI=7168T076?9 : POKEI , 0 • NEXT : PGKE3 
6869, 255 : PRINT" L CLR J " : PÜKE36879, 9 

1 0  FORL*0TO7 ¡ FORM*0TÜ7 ; POKE7680+L+M* 

22, L*8+M : NEXTM, L : GOSUB3000 

30  GETA$: IFAÍ=" "THEN30 

48  I F Ai = " Q " THENX=X- 1 ■ U= 1 

45  IFA$="R"THENX=X+1  :  LI*1 

50  IFA$*"I"THENV*V-1 ¡U*l 

55  IFAi="N"THENV*V+l :U=1 

57  I FU* 1 THEMGGSUB 1 000 : PüKEBV , PEEK C  B V 

)0R2TBI 

60  IFAÍ="2"THENX=X-1 : U=2 
65  IFAi*"X"THENX*X+l :U*2 
70  IFA$*"P"THENV*V-1 ;U=2 
75  IFAt*"L"THENV=V+l :U*2 
78  IFU=2THENG0SUB  1 800  ■'  PÜKEBV ,  0 
80  I FA$= " £ " THEN5000 
85  I F Ai* " = " THENGÜSUB3000 
95  U=0 : GOTÜ30 

1000  CH=INT(XX8)*S+INT(VX6) : RÜ*( (V/8 
)-INT( V/8) )*8 : B V*7 1 68+CH*8+R0 


1010  BI=7-CX-INTCX/83*83 ¡RETURN 
3000  F0RI-7168T07679  ■  PÜKEI ,  0 '  NEXT  •’  FO 
RX-0TO63  ¡  V=63  ••  GÜSUB1000  ■  POKEBVL  PEEKí 
BY)ÜR<2TBI )  NEXT 

3010  FGRY-0TO63 : X*63 : GOSUB1000 : POKEB 
V , PEER  <  BV ) OR<  2  tB I) : NEXT : X«32 : V-32 : RE 
TURN 

5000  X-32 :  Y-32  •'  GOTO30 

6000  P0KE36879 , 9 • PR I NT " C  CLR  3  E  WHT  3  *** 

***L. ESPC30LALLA******" 

6010  PR I NT " t  CRSRD 3  D I  BU JA  E  SPC  3  LO  E SPC  3 
QUE E SPC 3 QUIERAS 

6020  PR I NT  M E CRSRD  3  ENE  SPC 3  EL  E  SPC  3  CUAD 
ROE SPC 3 SUPERIOR 

6030  PR I NT 1 "  E CRSRD  3  LE  E  SPC  3  LA  E  SPC  3  PANT 
ALLA  : 

6050  PRINT" E CRSRD 3 Q : I2QDAE2SPC3R ¡ DRC 
HA 

6060  PR I NT " E  CRSRD  3 1 : ARR I BA  E  SPC  3  N ; ABA 
JO 

6070  PR  I  NT 11 E  CRSRD  32  ;  I2QDAESPC3  BORRAN 
DO 

603O  PR I NT " E  CRSRD  3  X : DRCHA E4SPC3 ' ' 
6090  PRINT" E CRSRD 3 P ■ ARR I BA E 3SPC 3 ' ' 

Si 00  PR I N T " [ CRSRD  3 L • ABA  1 0 E  4 opi  J 
6110  PRINT"ECRSRD3PULSAESPC3ELESPC3S 
IGN0ESPC3» 

6120  GETA*:IFA*O"»"THEN6120 
6130  GÜT05 


Se  controla  un  coche.  Con  las  teclas  y  “/”  se  acelera  y 
frena,  respectivamente,  y  con  las  teclas  “Z”  y  “X”  se  mueve 
horizontalmente.  La  puntuación  aumenta  al  acelerar  y  sólo  se 
dispone  de  tres  vidas.  Durante  todo  el  juego  se  tiene  que 
esquivar  a  tres  coches,  a  los  doscientos  puntos  aparecerá  una 
mancha  de  grasa  que  desaparecerá  a  los  quinientos  hasta  que 
te  choques.  A  los  setecientos  puntos  ya  no  volverá  a  aparecer  la 
mancha,  en  su  lugar  una  ambulancia  recorrerá  verticalmente  la 
pantalla  hasta  el  final  de  juego. 

10-  40  Poke  teclas  repetitivas,  define  variables. 

50  Color  pantalla. 

60-  80  Imprime  carretera. 


90  Comienza  el  tiempo. 

100-160  Define  sprites. 

170-200  Control  del  coche. 

210-230  Imprime  vidas,  tiempo  y  puntos. 

240-260  Comprueba  puntos  para  salida  mancha  o  ambulancia. 
290-310  Movimiento  del  coche. 

320-340  Movimiento  coche  1. 

350-370  Movimiento  coche  2. 

380-410  Movimiento  coche  3. 

430-470  Rutina  choque. 

480-500  Pregunta  por  nuevo  juego  e  imprime  puntuación  final. 
510-520  Fin 

530-580  Movimiento  de  la  mancha  o  de  la  ambulancia. 

590-640  Datas  sprites. 


0  RETI******* ******** 

1  REM*  J,E  SANCHEZ  * 

2  REM*  RALLV  * 

3  REM*************** 

10  ROKE650I 255 : AM-0 

30  PR I NT " E  CLR  3 " ¡ X- 1 7 1 : V«2 1 5 : VD»3 : S-2 

27  ¡  VC»  150  :  PC-0 

40  MI -54296 : M2-54276 : M3-5427? ¡ M4-542 
73  •  115-54272 

50  POKE53280 , 0 : P0KE5328 1 , 0 
60  FQRC-0TO24 : PÜKE 1 035+40*0  -  1 02 ¡ POKE 
1033+48*C.  102  :  PÜKE55307+40*C,  1 
80  POKE55325+40#Ci 1 'NEXT 
90  TI*-" 000000" 

100  V-53248 
110  PQKEV+21 ¡ 31 

1 20  FÜRW-2040TO2043 :  P0KEW  ,13:  NEXT  •'  PO 
KE2044, 198 

130  POKEV+39,  1 1 :  PÜKEV+43, 1 :P0KEV+23, 

16 

1 40  FORN-0TO62 : READQ ¡ P0KE832+N , Q ¡ NEX 
T 

1 50  FORN-0TO62 : RE ADZ : POKE 1 2672+N , Z • N 
EXT 

1 60  FORN-0TO62 • RE ADAM ■ POKE 1 228B+N , AM 
:  NEXT 

170  GETA*: IFA*-"X"THENX-X+5 

180  I FA*- " Z " THENX-X-5 

1 90  I FA*» " i " THENV-V-5 : E-E+ 1 0 ¡ T-T+ 1 0  ■' 

S-S+2 : PC-PC+10 

200  I FA«- " / " THENY-V+5 ¡ E-E-5 ■ T-T-5 : S- 
S-10 

210  PRINT" EH0M3 ECRSRD3 E2CRSRR3 EWHT3 ERVS0N3 
VIDAS-ERVSQFF3 "VD 

220  PR I NT " E  HOM  3  E  6CRSRD  3  E  2CRSRR 3  E  RVSÜN  3 
TIEMPO : E RVSOFF  3" ■ PRINT" E HOM 3 E 8CRSRD 3 
E2CRSRR3 "TI* 

230  PRINT" EH0M3 ECRSRD3 "TABC303 "PUNTO 

S : E  CRSRD  3  E  7CR8RL  3 " PC 

240  I FPO200ANDPCC400THENPOKEV+43 , 9  ■ 

GOSUB530 

250  IFPO400ANDAMO0THENDOSUB530 

260  I FPO700THENPOKE2044  -  1 92  :  PGKEV+4 

3< 1 : GO5UB530 

290  I F V>250THENV»250 

300  IFVC0THENV-0 

3 1 0  POKEV+2 , X ¡ POKEV+3 , V : I FX< 1 1 50RX>2 
30THEN430 

320  T-T+20:  IFT<i0ORT>250  THENT-0 

330  Z-INT<RND( 1 3*403+140 : POKEV+4, Z ¡ P 

0KEV+5.T 

340  I FX>Z-20ANDX<Z+20ANDV>T-20ANDV<T 
♦20THEN430 

350  E-E+30: IFE7250OREC0THENE-0 

360  POKEV+6 1  220 ■ POKEV+7 > E 

370  I FX>200ANDXC240ANDV>E-20ANDY<E+2 

0THEN430 

380  S-S-6 

390  IFSC16THEN8-227 

400  POKEV+0, 120 : POKEV+1 , S 

410  I  FX>  1 00RNDX<  1 40ANDV>8-20ANDY<:S+2 

0THEN430 
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420  OOTQ170 

430  FGRMU» 1 5TO0STEP- 1 : POKEM 1 ,  MU : POKE 
M2,  123  •  PCIKEM3,  15 ¡  PQKEM4,  40  :  P0KEM5, 20 
0¡HEXT 

440  PÜKEM2,  0 ; P0KEM3,  0 

450  X*171  ■  V®215  ■  U«U+5  '■ 1*1+5  ’•  E"0  ■'  T*0  : 

S«250-HM*1 

460  VDaVD-l  ’•  IFVD*0THEN480 
470  FQRHa0TO2000 : NEXT : QQTOl 70 
480  PR I NT " [ CLR ] " ¡ PGKE5328 1  i  1 2 : P0KE53 
280/ 12 

430  PR I NT " C  CR8RD I HAS  C  SPC 1CÜNSEGU I DO  E SPC  I 
"JPC¿ "PUNTOS" 

493  I NPUT " C  HOM ] [ 3CRSRD ] C  R VSOH ] QU I ERE 

5  C  SPC ] JUOHR [ 6PC ] DE  C  SPC ] NUEVO [ RVSÜFF ] 
<S7N>"/fl* 

500  I FRí* "S " THENRESTÜRE ■ PÜKEV+8/ 50 : P 
OKEV+9, 190 : GOTO10 

5 1 0  PR I NT " C  CLR I [ 1 0CRSRD I [ 4CRSRR  H  BLK I 
C  R VSON ] t  SPC ] F [ SPC  m  SPC  3  N  C  SPC  K  R VSOFF ] 

520  END 

330  RM=RM+5¡IFRM>250THENRM-0 

540  POKEM  1/  13:P0KEM3,64:P0KE54278/9'' 

P0KEM4 / 17 : P0KEM5/  37 

550  RÜKEM2 » 1 7 : P0KEM2 / 1 6 

560  PClKEV+8, 195 : POKEV+9/ RM 

570  I FX> 1 75RNDX<2 1 5RNDY>RM-40RNDY<RM 

+40THEN430 

380  RETURN 

590  DRTR7/255/224/7/ 133/224/113,255/ 
142,115/255/206/ 127, 195/254,115/ 189 
600  BRTR206, 115,126/206/3/102/192,3/ 

37, 132/243,66/207/ 183/ 126,237,223, 12 

6 

610  DRTR251 , 191 , 189,253, 215,219,235, 
243,231/207/1/255/ 128,0/253,0/7/  165 
620  DRTR224, 7, 38,224, 7, 255, 224, 0, 129 

,0 

630  DBTR62, 17,224, 127,59,243,255/ 151 
,191/251/231/159/241/247, 222, 112,255 
,252 

640  DRTR59/255/248, 127,255,248, 127,2 
47/252,63/251/222/31/221/191/15/238/ 
127,30 

650  DRTRU9/254/61, 187,254, 123,223,6 
0, 253/238/62/254,222/ 63,255,63, 127, 2 
35 

660  DRTR255, 254, 127, 127, 156,30,30,0 

665  DRTR63, 255, 252, 111,231,246/ 127,2 

31/254/111/129/246/255/129 

670  DRTR255 ,255/231, 255 ,127,255, 254 , 

127/255/254, 127,255,254, 127,231,254 

675  DRTR 127, 23 1,254 

680  DRTR 1 27 , 255 , 254 , 255 , 255 , 253 , 240 , 

0, 15/240,7/207/ 120,1/30, 127,255,254, 

63 

690  DRTR255 ,252/57/255,156/25,255,15 
2, 15,255,240 


Magia 

Tratamiento  de  cadenas 

Cuando  queremos  tomar  todos  los  caracteres  de  una 
cadena  (m$)  excepto  el  primero,  podemos  escribir: 
A$=RIGHT$(M$,  len(m$)-l) 

Pero  es  más  corto  y  produce  el  mismo  resultado: 
A$=MID$(M$,2) 

A.I.  RUN  EE.UU. 


Te  encuentras  en  el  terrible  planeta  Khan-II,  donde  todos  tus 
compañeros,  que  yacen  ahora  bajo  tierra,  fueron  víctimas  de 
un  ataque  masivo  de  meteoros,  sólo  tu  tremenda  habilidad 
consiguió  salvarte  del  desastre,  pero  los  peligros  no  hacían  más 
que  comenzar.  Provisto  del  más  poderoso  campo  de  fuerza, 
hasta  ahora  creado,  tendrás  que  activarlo  en  el  momento 
oportuno  para  detener  a  las  terribles  bombas  que  te  tiran  desde 
los  cielos  las  naves  más  sofisticadas  del  imperio.  Evita  que  las 
bombas  den  en  los  cuerpos  de  tus  compañeros  y  proclámate 
como  el  único  hombre  que  ha  vencido  al  imperio. 

El  programa  se  maneja  desde  el  teclado  con  las  siguientes 
teclas. 

Pulsar  A,  movimiento  hacia  la  izquierda. 

Pulsar  D,  movimiento  hacia  la  derecha. 

Pulsar  f  ,  campo  de  fuerza. 

Pulsaciones  opcionales. 

(Gráficos) 

Pulsar  F1  (Versión  explicada):  se  encuentran  bajo  tierra  tus 
compañeros. 

Pulsar  F3,  tus  compañeros  se  transforman  en  bases  enemigas. 
Explicación  técnica:  Sólo  las  variables  más  importantes. 
Variables. 

Y:  Define  número  de  hombres. 

OL  (T):  Coloca  a  tus  compañeros  al  azar. 

LO:  Número  de  estrellas. 

CK:  Marcador. 

Cq:  Mueve  el  disparo. 

G:  Movimiento  de  la  nave. 

El:  Indica  el  estado  de  la  casa. 

Nota:  Variables  como  ip  o  in  corresponden  a  la  mecánica  del 
programa. 

Cómo  hacer  funcionar  el  programa: 

Este  programa  consta  de  dos  partes:  la  primera  crea  los 
gráficos  y  la  segunda  es  el  juego  propiamente  dicho.  Hay  que 
introducirle  al  ordenador  la  primera  parte  (Listado  1),  la 
grabamos  por  si  los  fallos  y  la  comprobamos  hasta  que  veamos 
que  funciona  correctamente.  Hecho  esto  tecleamos  la  segunda 
parte  (Listado  II)  y  también  la  grabamos  y  comprobamos. 

Cada  vez  que  queramos  jugar,  hacemos  Load  Run  a  la  primera 
parte  y  el  ordenador  se  encarga  del  resto. 
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Listado  I 


0  PRINT" ÍCLR1 "  1  P0KE36879,  8 :  POKE37150 
, 2 : G0SUB224 

10  PRINT" [CLRI " :  PCIKE52 ,  58 :  P0KE56 , 28  ■ 
DIMN<7> 

20  FGRT=7168T0?679 :  POKET, PEEK<T+2560 
0  )  '•  NEXT 

30  PQKE36869, 255 

40  READA:  IFA=-1THEN200 

50  FÜRT=0TO7 :  READB :  P0KE7 1 68+A*8+T  i  B : 

NEXT 

60  GOTO40 

61  BflTFl  33  ,195,153-36.24,24,36.153 
,195 

62  DATA  35  ,24,24,36,36,60,60,24,24 

63  DATA  36  ,24,24,24,24,0,0,0,0 

64  DATA  39  ,0,0,0,0,0,0,60,60 

65  DATA  40  ,24,36,66,255,129 ,90,60, 

24 

66  DATA  41  ,24,36,66,255,129,66,36, 

0 

67  DATA  42  ,24,26,102,88,24,24,36,6 
6 

68  DATA  43  ,24,88,102,26,24,24,36,6 
6 

69  DATA  60  ,127,64,88,91,90,66,66,1 
26 

70  DATA  62  ,254,2,26,218,90,66,66,1 
26 

71  DATA  26  ,24,90,102,24,24,126,66. 

0 

72  DATA  59  , 127, 65, 85, 73, 65, 93, 65, 1 
27 

73  DATA  27  ,0,0,0,24,24,0,0,0 

74  DATA  23  ,255,255,0,0,0,0,0,0 

76  DATA  2  , 3,  3, 3,  3, 3,  3,  3,  3 

77  DATA  3  ,192,192,192,192,192,192, 
192,192 

78  DATA  37  ,24,24,36,219,60,24,0,0 

79  DATA  38  ,24,24,36,195,36,66,0,0 

80  DATA4, 0,24, 36, 90, 36, 36, 36, 102 
200  DATA-1 

210  GOTO2140 

224  P0KE36897 ,130: 00SUB3 1 0 

225  FÜRA= 1 30TO38STEP- 1 

250  P0KE36897, A : FORT=1TO150 ¡ NEXT : NEX 
TA: GOTO 1000 

310  PR I NT " [  CVN ] L 4CRSRR ] C 2CRSRD 3 1 NSTR 
UCC IONES : " 

320  PR I  NT " [ 3CRSRR ] í CRSRD ] -UT I L 1 2A  C  SPC  3 
<  T) C  SPC  3  PARA  C  2SPC  3  DEFENDERTE " 

330  PR I  NT " [  3CRSRR 3 1 CRSRD  3 -UT I L I ZA  C  SPC  3 
< A) l SPC  3  VC  SPC  3  <  D) [  SPC  3 PARA [ SPC  3  MOVER 
TE" 

340  P0KE646 , 4 : PR I  NT " [  2CRSRD 3  RES I STE [ SPC  3 
TODO  [ SPC  3  EL  C  SPC  3  T I EMPO  í 5SPC  3  QUE  C  SPC  3 
PUEDAS! " 

350  P0KE646, 3 : PR I NT " í 4CRSRD 3CCRSRR3R 
EAL IZADO CSPC 3 POR CSPC 3 J. A. R. " 

370  RETURN 

1000  P0KE36877 , 180 

1010  FORL*1TO10 

1020  D= I NT í RND < 1 ) *5 ) *50+50 

1030  F0RM*3T015 

1040  P0KE36S78, M 

1 050  FÜRN* 1TOD ¡ NEXTN : NEXTM 

1060  FQRM* 1 5T03STEP- 1 

1070  P0KE36878 , M : FORN* 1 TO 1 0 

1080  NEXTN, M,L 

1090  P0KE36878, 0 

2000  P0KE36877 , 0 : GOTO10 

2140  P0KE198, 7 : PÜKE631 , 76 ¡ P0KE632, 20 

7 : P0KE633, 159 : P0KE634,  13 

2150  PÚKE635, 82 : P0KE636, 213 : POKE637, 

13 


Listado  II 

0  PRINT" [ CLR3 " : NR=4 : P0KE36878 , 1 5 :  V*5 
:  FORT=lTOV :  OL(T)*INT(RND<  1  )*20)+l ;  PO 
KE8120+ÜL(T) , NR : NEXT  =  LO=50 

1  FORT* 1  TOLO : W* I NT < RND  <13*360) 

2  POKE7702+W, 46 : P0KE38422+W, 6 : NEXTT : 
IFIL=5THENIL=0 : LO=0 ¡ GOTO2010 

3  T I  *= "  000000 11 :  JA=40 :  PR  I  NT  "  [  HOM  3  [  CVN  3 
[  2SPC  ]###"■■  POKE8095 , 60 :  POKE8096 , 62  :  B 
U=8 : UB= 1 9 : POKE650 , 255 

4  FORV»  1 TO20 :  P0KE8 1 42+V ,  23  ■’  PÜKE38862 
+V, 5 ¡ POKE8098+V , 23 : P0KE38818+V, 5 : NEX 
T 

5  A=8094 : F=8072 : P0KE36878 ,15:  m)=200 : 
G6=36874 : CQ=0 : U*=" PUNTOS : " 

130  IP=0: G0SUB2 1 030 : CK“CK+10 : GOSUB50 
095 

1 33  P0KE8 120,2: PQKE8098 , 2 : P0KE8141 , 3 
: P0KE81 19,3 

139  POKE3S840, 5 : P0KE38861 , 5 : P0KE3881 
8,5: P0KE38839, 5 

140  O» 1  NT  <  RND ( 1 ) *300  >  +  100: GOSUB2000 
214  GOTO 130 

2000  P0KE7724+G , JA : POKEGG , DD : BB=0 : PO 

KE38444+G, 5 

2002  FORT* 1 TO20 : NEXT 

2004  P0KE7724+G , 32 : POKEGG , 0 : G*G+ 1 

2008  IFG>20THENG*0 : I L=5 : L0*L0+2 : GOTO 

2010  I FCKC 1 000THENKS* 1 : V=5 : G0SUB5555 
5 

2020  I FCK> 1 000ANDCKC3000THENDD* 1 50 : G 

0*36876 : I 1=2 : V*7 : G0SUB55555 

2030  I FCK>3000ANDCK<5000THENDD=200 : U 

U=3 : BU=5 : KK=0 : V* 1 0 : G0SUB55555 

2040  I FCK>5000ANDCK<7500THENDD=250 : O 

0*4 : KK-0 : BU*3 : V*10 : JA*37 ¡ GQSUB55555 

2045  I FCK>9999THENRUN 

2050  GOSUB3000 : RETURN 

3000  HH= INT<RND<1)*10)+1 

3002  I FHH*KSORHH= I I ORHH*UUORHH*OOTHE 
N3050 

3003  RETURN 

3050  LL*5 : P0KE7724+G, JA+1 

3052  POKE ( 7746+G+22*CQ ) , 36  =  POKE  <  3846 

6+G+22*C0) , 7 : P0KE36876, 180 

3070  POKE <  7746+G+22*CQ  > , 32 : P0KE36876 

,0:UB=17:CG=CQ+1 

3074  F0-PEEKÍ7746+G+22ÍCQ) 

3075  I FF0=35QRF0*420RF0=43THENG0SUB5 
0000 

3076  I FFO*23THENPOKE8098+G , 33 : P0KE36 
877, 150 : FORT-1TO200 : NEXT : P0KE3687?,  0 

3077  IFF0=40RF0“59THENJ I *5  =  P0KE36877 
, 200 : POKE8120+G, 33 : FORT* 1 TO 1000 : NEXT 
: H=5 : POKE8120+G, 32 : GOTO50059 

3078  IFFO=60ORFO“62THENEL=EL+ 1 : IFEL* 
2THENJK*3 ¡ GOTO50080 

3079  IFF0=39THENP0KEA+PP-22, 33 : P0KE3 
6876 , 200 : FORT* 1 TO 1 00  =  NEXT : P0KE36876 , 
0 : GOTÜ3081 

3080  GOTO3082 

3081  UB=14 : CK*CK+0 

3082  IP=0 : POKEA+PP, 32 : IFCQ>15THENP0K 
E38796+G, 0 : POKE8076+G, 61 

3083  I F I P=5THENUB= 1 5 : GOSUB50059 

3084  IFCO=UBTHENLL=0 : CQ=0 
21030  IFIN-5THENGOTO21055 
21035  GETAÍ 

21040  I F Aí * " A " THENPP*PP- 1 :U*43 

21050  IFA**"D"THENPP*PP+1  :IJ*42 

21051  I FT I í* " 000 1 30 " THENT I t- " 000000 " 
: POKE8095 , 60 : POKE8096 , 62 : EL*0 

21052  I F Ai* " [ F 1 I " THENNR*59 

21053  1FAÍ=" [F33 “THENNR*4 

21055  I FAi* " " THEN : CC=0 : U*35 

21056  I FPEEK ( A+PP ) =6 1 THENGQTO49990 
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2105?  I FPP=- 1 8THENPP=PP+ 1 
21053  I FPP= 1 THENPP=PP- 1 
21060  POKEfl+PP  ,  U : P0KE388 1 4+PP , 3 : FORT 
=1T025; NEXTT: 

21067  I Ffi$= " t" THENPOKEF+PPi 39 ■ P0KE36 
876, 225 : FORT» 1 TO50 : NEXT : P0KE36876 , 0 : 
IN=5 : P0KE38792+PP, 4 

21068  KK*=KK+1  :  IFKk'=BUTHENPOKEF+PP,  32 
! KK«0 : I N*0 : PQKE650, 255 

21069  I FLL=5THEN3050 

21070  POKEfl+PP, 32 
21098  RETURN 

49990  P0KE81 16+PP,  26  :  FORT=1TQ500 :  NEX 
T : P0KE81 16+PP, 32 : P0KE8138+PP, 33 : KU“5 

49992  P0KE3S858+PP , 2 : OOTO500 1 0 
50000  POKEfl+PP, 33 : P0KE38814+PP, 2 
500 1 0  PQKE36877 , 220 ' F0RL*1 5TO0STEP- 1 
: P0KE36878, L ¡ FORM=l TO300 
50020  NEXTM,  L  :  PÜKE36877, 0  ■  PÜKE36878, 
15 :  IP=5 :  POKEfl+PP,  32  :  POKEF+PP,  32 1  CQ*0 
; GO8UB50 1 00 

50030  I FKU=5THENP0KE8 1 38+PP , 32 : KU=0 ¡ 

G0SUB55555 : GOTO3083 

50059  VV*7684 ; JK=JK+1 : I FH*5THENP0KEH 

+PP ,  32  •'  P0KE3687? ,  0 :  H*=0 

50070  I F  JK=2THENW=7683 

50080  I F JK*3THENPR I NT " C CLR ] GflME [ SPC ] 

OVER" • ENB 

50090  POKEVV,  32  ■'  A=8094  ¡  PP-0  •'  FORR<=lTO 
5 ■ P0KE368 76, 200 = FORT=1TO30 : NEXTT • POK 
E36876, 0 

50091  NEXTR 

50092  IFJI=5THENJI»0 : GOTO3078 

50093  RETURN 

50095  PR I NT " C  VEL ] C  HOM ] " TflB  <8  > U$CK  ¡  RE 
TURN 

50100  FORV-1TO20 ; POKE8098+V, 23 • NEXTV 
• PR I NT " C  HOM ] C 1 3CRSRD ] C 1 9SPC 3 " : RETURN 

55555  FORT» 1 TOV : P0KE8 1 20+OL ( T ) , 32 : NE 
XTT 

55557  FORT» 1 TOV : OL<T)»INT<RND< 1 )*20> 
+ 1 ■ P0KE8 1 20+OL <  T ) , NR : POKE38840+OL ( T ) 

,  3  ■■  NEXTT  ¡  RETURN 


Mogio 

Cero  abreviado 

En  las  sentencias  de  asignación  de  variables,  como  A=0, 
el  c  ero  puede  sustituirse  por  un  punto  ( A=.).  Es  aproxima¬ 
damente  un  20%  más  rápido. 

RUN  EE.UU. 

Comillas 

El  truco  para  poner  comillas  en  las  palabras  de  un  print 

PRINT  CHR$(34);“HOLA”;CHR$(34) 

J.O.  RUN  EE.UU. 

Datas  con  cero 

Los  números  cero  que  se  encuentran  en  sentencias  data 
pueden  no  ponerse.  Por  ejemplo. 

10  data  20,4,0,2,4,0 
Es  lo  mismo  que... 

10  data  20,4„2,4 

M.S.  RUN  EE.UU. 


Frontón  funciona  con  el  joystick,  en  la  posición  del  1er  jugador 
o  por  el  teclado  en  este  caso  con  las  teclas  del  cursor. 

Al  principio  el  programa  te  pregunta  si  quieres  jugar  con  el 
joystick  o  el  teclado,  tú  le  respondes  pulsando  la  tecla  j  o  t. 
Luego  te  pregunta  el  nivel  de  juego  0  el  más  sencillo  al  5  el 
más  complicado,  tú  pulsas  el  número  del  nivel  correspondiente. 
Luego  no  tienes  más  que  pulsar  (RETURN)  y  ya  empiezas  a 
jugar. 

Gana  la  partida  el  que  primero  llega  a  21  puntos.  ¡Buena  suerte! 


1  REM  **»**FR0NT0N***** 

2  REM  ***ESC:RIT0  POR*** 

3  REM  ****M.  LLOVET**** 

50  PRINT" C CLR] " • PÜKE53280, 2 • P0KE5328 

1 , 0 : R=0 

60  PR I NT " JOVST I CK [ SPC ] 0  C  SPC ] TECLADO  C  SPC ] 

< J/T>?" 

70  GET  Bí :  IF  BÍO"J"flNIi  BÍO"T"GOTQ 
70 

80  I NPUT  "  N I VEL  C  SPC  ]  DE  [  SPC  ]  D I F I  CULTflD 
?C  SPC  ]EL.  I. JECSPC]  ENTRE!  SPC  ]0[  SPC  ]fl[  SPC] 

5"  i  H 

90  IF  H=0  THEN  R=2 
95  IF  H<0  OR  H>5  THEN80 
100  K=0:j»0 

110  Fí = " C  VEL ] C  RVSON ] [ SPC ] CRVSOFF ] " 

120  PRINT"  CCLR]"  .:  :  F0RI=1T039  :  PRINTF$ 

;  :  NEXT ;  PR  I  NT  "  C  CRSRI.J  ]  " 

130  F0RI=1  T0  23:  PRINTFÍ : NEXTI 
140  F0RI=1  TO  39:  PRINTFí; : NEXTI :PRI 
NT" C HOM]" 

150  TI $="000000" 

1 60  w=0 : L=0 : M=0 : GGSUB2500 
1 70  PR I NT " C  23CRSRD ] C  3CRSRR ] V0  C  SPC ] = C  SPC ] 
", : PRINTL, : PRINT" C HOM] " 

180  PRINT" CHOM] " : PRINT" Í23CRSRD] C 14CRSRR] 
TUCSPC]=" , ■ PRINTM, : PRINT" CHOM] " 

190  E=0 

200  X=1 : Z—4 

210  V= I NT  C  2 1 *RND  < 1 >  +2) 

220  DX= 1 : DV= 1 : DZ» 1 
230  POKE 1 024+X+40* V , 8 1 
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240  POKE 1024+35+40*2 ,97 
250  FOR  T-l  T03 : NEXT 

260  PR I NT " C  HOM ] “ : PR I NT " C 23CRSRD  ]  [  25CRSRR  ] 
", ¡ PRINTTIÍ, 

270  PRINT" CHOM] " 

280  POKE 1 024+K+40*Y , 32 
290  POKE 1 024+35+40*2 ,  32 
300  X=X+BX 
310  IFX*1  OOTO390 
320  IFX=38  GOTO  1000 
330  IF  X=35  GOTO  350 
340  GOTO  360 

350  IF  Y=Z  OR  Y=2+l  OR  V=Z-1  GOTO200 
0 

360  GOTO400 

370  W=0-  GOSUB2500 

380  2=4 

390  BX»~BX 

4Ü0  V=Y+BV 

410  IF  Y<=10R  V>»23  THEN  DY=-DY 
420  2-2+B2 

430  IF  202  OR  2>=22  GOTÜ530 
450  IF  " J " THEN3000 

460  GETfií 

470  IF  A$=" CCR8RB] "THEN  B2=-l 
480  IF  fi$=" CCRSRU] "THEN  B2=-2 
490  IF  fl$=" CCRSRR] "THEN  B2=+l 
500  IF  Aí = "  C CRSRL ] " THEN  B2=2 
510  IF  AíO  "  C  CRSRD  ]  " AND  AÍO" CCRSRU] 

"  HNB  HÍO"  CCRSRR]"  HNB  fi$  0"CCRSRL] 

"  THEN  B2=0 

530  BZ=-BZ 

540  GOTO  230 

590  IF  L>=2 1 THEN  K=K+1 

600  IF  M>=21  THEN  J=J+1 

610  PRINT" CCLR]" 

620  PRINT" C2CRSRB] YO CSPC] TENGO" ,  K, "P 
RRTIBfiS" 

630  PR I NT " C  4CRSRB ] TU  C  SPC ] T I ENES " , J , " 
PARTIBAS" 

640  PR I NT " C  6CRSRD ] QU I ERES  C SPC ] HACER C  SPC ] 
OTRA  C  SPC  ]  F'ART  I  DA  C  SPC ] <  SZN  >  ? " 

650  GETVÍ :  IF  V$<> " S " ANDVÍO " N " GOTO 
650 

660  IF  VÍ="N"THEN  ENB 
670  PRINT" CCLR]" 

680  GOTO  110 

1000  GOSUB2500:  IF  R02  GOTO1010 
1005  E=E+ 1 : GOSUB 1 550 : I F  ECR  GOTO  200 

1010  L*L+1 : GOSUB 1550 
1 020  PR I NT " C 23CRSRB ] C  3CRSRR ] V0C  SPC  J » 
CSPC]", ■ PRINTL, : PRINT" CHOM]" 

1030  IF  L<21  GOTO  190 
1040  GOTO  590 

1510  S=54272 : POKES+24 ,15: POKES+5 , 1 00 
: POKES+ 1,25: POKES+0 , 1 77 : POKES+4 ,  1 7 
1520  FORP=  1  TO  100: NEXT 
1 530  POKES+4 , 0 : POKES+5 , 0 : POKES+6 , 0 
1540  RETURN 

1550  3=54272: POKES+24, 15: POKES+5, 100 
: POKES+ 1,12: POKES+0 ,216: POKES+4 , 1 7 
1560  FORP=l  TO  100: NEXT 
1 570  POKES+4 , 0 : POKES+5 , 0 : POKES+6 , 0 
1580  RETURN 

2000  W=U+ 1 : GOSUB 1510: GOSUB2500 
2005  IF  W<H  GOTO  380 
2010  M=M+1  ■'  GOSUB1510 

2020  PRINT" CHOM] " : PRINT" C23CRSRBJC 14CR3RR] 
TLICSPC]»",  : PRINTM,  : PRINT" CHOM] " 

2030  IF  MC21  GOTO  370 
2040  GOTO  590 

2500  PRINT" CHOM]", • PRINT" C14CRSRR]", 

:  PRINTH-W 
2510  RETURN 

3000  JV=PEEK <  5632 1 ) ANB 1 5 : FB=- <  < PEEK < 

56321 )ANB16)*0) 

3001  PRINT" CHOM]", : PRINT JV, : PRINT" CHOM] 


3010  IF  JV=14  THEN  BZ=-1 

3015  IF  JV=11  THEN  BZ=-2 

3020  IF  JV= 1 3  THEN  BZ=+1 

3025  IF  JV=7  THEN  BZ=2 

3030  IF  JV=15  OR  JV=5  OR  JV=9  OR  JV» 

10  THENBZ=0 

3040  GOTO  230 


Es  para  un  VIC-20  sin  necesidad  de  ampliación. 

A  continuación  os  doy  unas  pequeñas  explicaciones  sobre  el 

programa: 

1-8:  Se  pide  el  nivel  de  dificultad  y  se  imprime  el  título. 

15-30:  Se  traslada  el  juego  de  caracteres  y  se  crea  los 
nuestros. 

80-130:  Se  dibuja  el  marco  del  juego. 

135-146:  Se  imprimen  los  monstruitos. 

150:  Se  inicializan  las  variables  de  utilidad. 

170:  Parpadeo  de  nuestro  gusanito. 

190-290:  Programa  principal,  en  el  cual  según  la  tecla  que 
hayas  pulsado  (dentro  de  las  de  control)  irás  a  una 
instrucción  determinada. 

300-340:  Rutina  para  imprimir  los  objetivos.  Se  elige  al  azar  si 
se  imprime  una  manzana  o  una  cereza,  en  que  se  dan 
más  oportunidad  a  las  cerezas  que  dan  menos 
puntuación. 

400-410:  Aquí  se  produce  el  movimiento  del  gusanito.  Hay  dos 
variables:  la  de  la  cabeza  denominada  A  y  la  de  la 
cola  del  gusanito  denominada  B.  La  variable  A  se 
incrementa  según  lo  que  se  haya  pulsado  en  el 
teclado,  mientras  que  la  B  se  incrementa  por  los 
valores  que  va  leyendo  en  el  vector  V(x).  Los  valores 
almacenados  en  este  vector  son  22,  -22,  1,  -1  y  vienen 
determinados  por  el  movimiento  que  haya  efectuado 
anteriormente  el  gusanito;  es  decir  si  el  gusanito  se  ha 
desplazado  hacia  abajo  se  almacenará  22,  si  se 
desplaza  hacia  la  izquierda  se  almacenará  un  -1. 

500-610:  Esta  rutina  es  en  caso  de  haber  colisionado  con  algo, 
el  gusanito.  (510)  esta  es  en  caso  de  colisionar  con  el 
recuadro;  (530-540)  estas  es  en  caso  de  comerte  una 
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manzana  o  cereza  respectivamente;  (520)  en  caso  de 
colisionar  con  el  mismo  gusanito;  (550)  esta  es  en 
caso  de  toparte  con  algún  monstruito. 

620-640:  Aquí  te  da  un  punto  por  cada  objetivo  que  te  has 
comido. 

650-690:  Final  de  juego. 

700-745:  En  caso  de  colisionar  con  las  paredes  busca  la 
dirección  a  seguir. 

800-930:  DATAS  para  efectuar  el  título  del  comienzo  y  para  la 
creación  de  los  caracteres. 

Después  de  esta  explicación  del  programa,  pasaré  a  su 
utilización. 

Tu  objetivo  es  dirigir  el  gusanito  por  el  recuadro  con  las  teclas 
/A/=izquierda;  /D/=derecha;  /W/=arriba;  /X/=abajo  (¿se 
nota  que  no  poseo  joystick?) 

Cada  20  objetivos  que  hayan  aparecido  te  volverá  a  reducir  el 
gusanito  a  su  primitiva  forma,  sumándote  puntos  por  la 
longitud  que  hayas  conseguido  lograr. 

El  truco  de  la  cuestión  está  en  que  por  lo  menos  de  esos  20 
objetivos  hayas  conseguido  uno,  de  esta  manera  seguirá  la 
partida,  aumentándote  la  cantidad  de  monstruitos  nocivos  para 
la  salud  de  nuestro  gusanito. 

En  caso  de  que  poseáis  mayor  capacidad  de  memoria  que  la 
mía  (que  es  la  original)  podéis  mejorar  el  programa  poniendo 
récord,  dos  jugadores,  tiempo,  etc. 

Espero  vuestras  noticias,  sobre  lo  que  hayáis  conseguido. 


1  PRINT"CCLR3" 

2  RERDZ1 : 2*96+128 ■ IFZ1-0THENGOTO10 

3  I  FZ  1  ■  1 69THENZ-95+ 1 26 

4  IFZ1-119THENZ-93 

3  IFZ1-143THENZ-95+128 

6  I FZ 1  * 1 20THENZ- 1 00 

7  IFZ1-235THENZ-42 

8  POKEZ1+7700J Z : POKEZ1+7700+30720J  2 ¡ 
GCIT02 

10  PR I NT " C 1 7CRSRD 3 " 

12  INPUT"DIFICULTRDC3PC3  <0/9) " JK :  IFK 
<0ORK>9THENRUN 

15  fl-7168  :  FORI-RTÜR+51 1 :  POKEI  >  PEEK< I 
+25600) ■ NEXT ■ N-7 1 67 
20  RERDR : I FRO- 1 THENN-N+ 1 : P0KEN j  R :  G0 
TO20 

30  PR I NT " C  CLR 3 " i P0KE56 i  28 ¡ P0KE32 j 28 : 
P0KE36869j255 

80  V-38399 ■ DIPIV<20> 

81  FORX-7680TO7701 

82  Y-V+l 

83  POKEXj  4  ^  POKEVj  7 

84  P0KEX+484j4:P0KEY+484 ,7 
83  NEXT  '•  Y-38378 

100  FÜRX-7680TO8 1 42STEP22 

110  Y-Y+22 

120  POKEXj  4  i POKEVi 7 

125  PÜKEX+21  j  4 :  POKEY+21 <  7 

130  NEXTX 

135  FQRX-1T0K42 

140  C- 1 NT  <  RND  <  1 ) 4437 >  +7725 

145  I FPEEK  <  C )  O32G0T0 1 40 

146  POKEC j  2 :  POKEC+30720 <  0 :  NEXTX 

1 50  R-7703 ¡  B-H  ¡  C-38423  :  B*-"D"  i  TF-40  ¡ 
K-0 i Rl-0 ¡ Bl-0 

170  F0RX- 1 T08 : POKER , 32 : FORV-1 TO200 ¡ N 
EXT1 V : POKER . 5  i P0KEC ,  2 : FQRZ- 1 T0 1 00 ¡ NEX 
TZ : NEXTX 

173  Y-30720 ¡ Z-36878 
180  GOSUB300 

190  GETfl* : I FOBi>20THENOB»0 ¡ K-K+ 1  i J-9 ¡ 
G0T0622 

191  IFR1>19THENR1*0 

192  IFBl>19THENBl-0 

200  IFR *■" "0Rft*-Vf THENRí-B* : GOTO210 


215  I Ffi$- " X " GOTO230 
21 7  IFfl*-"fi"GOTG260 
219  IFfl*-"D"GOTO280 
221  IFfl*-"W"G0T0225 
223  GOTO190 

225  fl»fl-22:B*ofl*:fll-fll+l :V(R1)— 22 í I 

FPEEK  <  R ) OS2THEN J "22 ¡ GOTO500 

228  GOTO400: GOTO 190 

230  fl-fl+22 ■ Bí-fl* : Rl-Rl+1 : VCfil )-22 ¡ IF 

PEEK  <  fi  ) 032THEN  J--22 : GOTO500 

250  GOTO400: GOTO 190 

260  R-fl-1 : B*=fl* ¡ fll-fil+1 : VCfil )--l : IFP 

EEK<fl)032THENJ-l  :QOTO500 

270  GOTO400: GOTO 130 

280  fl-fl+1 •Bí»fi*:Rl»fll+l : VCR1 : IFPE 

EK<R)032THENJ— 1  : GQTO500 

290  GÚTO400: GOTO 190 

300  Tfl-0 ¡ 0B-QB+1 ■ IFOB>20THENRETURN 

310  D-INT<RND<1>*10)+1 

311  I FD>8THEND- 1 : P-5 : G0T03 1 3 

312  D-0:P-2 

315  C-INT <RND< 1 )4484)+7703 
320  IFPEEK<C>O32GOTO310 
330  POKECj  D i P0KEC+Vj P 
340  RETURN 

400  POKER 1 5 ¡ POKER+V  j 2 : P0KEB < 32 
410  Bl-Bl+i :B«B+V<B1> 

460  GOTO750 

500  REMRQUI  CURNDO  COLISION 

510  I FPEEK  <  R ) ■4GOTO700 

520  I FPEEK < R ) -5THENF0RX- 1 TO 1 00 : P0KEZ 

j 15 ; P0KEZ-2i 215 ! NEXT : GOTO620 

330  IFPEEK<R)*lTHENSC"SC+4 

540  I FPEEK  <  fl  > -0THENSC-SC+2 

550  I FPEEK  <  fi ) -2THENP0KE36878  < 13 : P0KE 

36876 < 200 ¡ F0RX- 1 TO500 i NEXT ¡ P0KE36876 

i  0 : GOTO650 

560  P0KE36875, 130 : POKEZj  15 '•  F0RX-1T01 

00 : NEXT : P0KE36875j  0 

600  POKER j  5 : POKER+V j  2 • L0-LG+1 

610  GOSUB300 : GOTO750 

620  fi-fl+J : POKEZj  0 ; GOTO650 

622  P0KE36875 ,130. P0KEZ  <13: F0RX» 1 3T0 
0STEP. 25 ; POKEZj INT<X) : FORY-1TO500 : NE 
XTV 

623  NEXTX :POKE36875<0 

624  IFLO-0GQTO650 

625  P0KEB<  32 

628  B 1 »B 1+1 : IFB1>20THENB1«1 

629  B-B+V<B1> 

630  POKEZj 1 5 ¡ P0KE36875 < 200 : F0RM- 1 T01 
00 ¡ NEXTM : P0KE36875j  0 

640  IFBORTHENSC-SC+1  >  G0T0623 
642  POKER < 32 

644  LO-0 

645  IFJ-9THENG0T0135 

650  PR I NT " C  8CRSRD 3 C  CRSRR 3  TUS  C  SPC  3 PUN 
TOS: " SC 

660  PR I NT " C  CRSRD  3 1 CRSRR  3  F 1  £  SPC  3  OTRO " 

670  GETZ* : IFZ*-" "GOTO670 

680  I FZ*- " I F 1 3 " THENCLR : P0KE36869 j 240 

:  RUN 

690  GOTO670 
700  fi=fl+J : fll-Rl-1 

710  1  FPEEK  <  fl- 1 )  04RNDPEEK  <  R- 1  >  05RND 

V*0"fi"THENB*-"fl“  :GOTO750 

720  I  FPEEK  <  fi+ 1  >  04RNDPEEK  <  fi+ 1 )  05RND 

V<tO"D"THENB*-"D"  :  GOTO750 

730  I  FPEEK  <  fl+22 ) 04RNDPEEK  <  R+22 > 058 

NDVÍO " X “ THENBÍ- " X " : GOTO750 

740  I  FPEEK  <  fl-22 ) 04RNDPEEK  <  fl-22  )  038 

NDV*0 "  W  "  THENBÍ- "  W “  :  GOTO750 

745  GOTO650 

750  IFB*-"W"THENV*-"X" 

760  I FB*- " X " THENVÍ- " U " 

770  I  FBí- 11  fl  "  THENVí-  "  D 11 
780  IFB$-"D"THENV*-"fl" 

790  GOTO 190 


210  Tfl-Tfl+1 : IFTR-TFTHENPOKECj 32 ¡ GOSU 
B300 


)  DATA97,98,99,107,108,109 
)  DATA119,120,130 
)  DATA136, 137, 138, 143, 146, 148,  132 
j  DATA 158, 163, 164, 165, 168, 169, 170, 
1 

3  DATA180, 182, 190, 192 
9  DATA202, 203, 204, 207, 208,209,212, 
1, 217,218,219 
i  DATA229, 23 1,235, 239, 241 
9  DATA246, 248, 231 , 232, 253, 257, 261 , 

3 

3  DATA268, 270, 273, 275, 279, 283, 264, 
5 

3  DATA290, 292, 301 
9  DATA312, 313, 314, 323,0 
3  DATAS, 8, 28, 20, 36, 231, 231, 231, 2, 4 
3,62,62,62,54,20 

3  DATA56, 84, 56, 16, 108, 130, 130,68,0 


Como  su  nombre  indica,  se  basa  en  un  conocido  juego  de 
niños  que  se  utiliza  para  desarrollar  la  memoria  visual;  lo 
cual  no  quiere  decir  que  no  puedan  pasar  sus  buenos  ratos 
con  él  los  que  no  son  tan  niños... 

Consta  de  un  tablero  con  9  cartas  horizantales  por  5  verticales 
(45  cartas  en  total)  las  cuales  se  encuentran  boca  abajo.  El 
juego  consiste  en  que  en  cada  turno  de  ambos  jugadores 
levanten  dos  cartas,  primero  una  y  a  continuación  la  otra 
tratando  de  encontrar  las  22  parejas. 

Cada  jugador  en  su  turno  levanta  2  cartas,  indicando  sus 
coordenadas  si  al  levantar  la  primera  recuerda  donde  estaba  la 
pareja  (si  ha  aparecido  ya),  pulsa  sus  coordenadas  y  gana  1 
punto  y  continúa  jugando.  Parece  sencillo  ¿no? 

El  programa  esta  basado  en  Sprites  multicolores,  como  hay  23 
dibujos  distintos,  lógicamente  hay  gran  cantidad  de  Datas 
¡Cuidado  al  copiarlo?  Aunque  si  os  equivocáis  en  alguno  será 
fácil  verlo  al  ver  los  dibujos. 


Al  comenzar  el  juego  os  aparecen  las  instrucciones,  hasta  que 
pulséis  una  tecla,  una  vez  pulsada  os  aparecerá  el  tablero  con 
las  cartas  cubiertas,  pero  debéis  de  esperar  aproximadamente  1 
minuto  para  que  el  C-64  baraje  y  distribuya  las  cartas,  hasta 
que  debajo  del  jugador  nQ  4  aparezca  la  leyenda  “OBJETO  1”, 
y  ya  podéis  empezar  a  hacer  memoria. 

Si  algún  SPRITE  no  os  gusta  o  tenéis  por  ahí  otros  más 
“monos”  ya  sabéis,  lo  cambiáis  en  los  datas,  pero  recordad 
que  han  de  ser  Sprites  multicolor. 

La  estructura  del  programa  es  como  sigue: 

10  Introduce  los  Datas  en  posiciones  de  memoria. 

18-90  Inicializa  variables. 

100-170  Presenta  instrucciones. 

180-260  Dibuja  tablero. 

263  Envía  a  borrar  cartas  encontradas. 

270  Si  es  Ia  pasada  baraja  y  reparte  las  cartas. 

275-360  Entrada  para  Objeto  Ia,  inicializa  sprite  y  lo 
coloca. 

361-420  Idem  para  Objeto  2a. 

430-530  Analiza  si  ambas  cartas  son  iguales.  Si  son 
distintas  lo  manda  a  empezar  de  nuevo. 

RUTINAS 

1000-1060  Baraja  y  reparte  cartas  (sprites),  en  el  tablero. 

1 100-1220  Coloca  cada  sprite  en  la  posición  que  dan  las 
coordenadas. 

2000-2400  Si  ambas  cartas  son  iguales  busca  la  música  y 
limpia  el  lugar  ocupado  por  ambas. 

2500-2900  Limpia  el  tablero  de  todas  las  parejas 
encontradas. 

3000-3090  Ganador  y  posible  repetición  del  juego. 
14000-14030  Carga  Datas  en  posiciones  de  memoria. 
15000-16570  Datas  de  Sprites,  Colores  de  sprites,  Músicas. 

Si  después  de  todo  esto  os  queda  alguna  duda  no  reparéis  en 
escribirme  os  contestaré  a  todos. 


1  REM  MEM0RVA  POR  MIGUEL  BERMEJO 
10  G0SUB 14000 
18  CLR 

30  DIMX1 (22) , VI (22) , X2(22) , V2(22) 

90  V-53248 ¡ J 1 -0 : J2»0 : CT-0 ¡ S-54272 : H* 

0 

100  PR I NT " [ CLR  3 " : POKE53280 , 1 0 : P0KE53 
281, 10: PRINT" [C0MM23" 

110  PRINT"[7CRSRR3 [CRSRD3VAMOSISPC3A 
[ SPC  3  JUGAR  C  SPC  3  AL [ SPC  3 MEM0RV A " 

1 15  PRINT" [ 3CRSRR 3 C CRSRD 3 [ 4SPC 3  JUEGA 
[ SPC  3  EL [ SPC  3  JUGADOR [ SPC  3  AMAR I LLO " 

120  PR I NT " [ VEL  3 [  2CRSRD 3 1 . - C  SPC  3  T I ENE 
i  SPC  3  QUE  t  SPC  3  DAR  [  SPC  3  SUS  C  SPC  3  COORDEN 
A  DAS  [  CRSRR  3  P  AR  A  [  2SPC  3  EL  [  SPC  3  PR  I  MER  [  SPC  3 
OBJETO, " J 

130  PRINT" CCRSRR3PRIMEROCSPC3LACSPC3 
LETRA  [ SPC  3  V  [  4SPC  3 LUEGO  [ SPC  3  EL  C SPC  3  NU 
MERO" 

140  PRINT" CBLU3 C CRSRD 32. -ESPERE C SPC 3 
QUE  C  SPC  3  APAREZCA  í SPC  3  EL  C  SPC  3  PR I MER [ SPC  3 
OBJETO" 

150  PRINT" [RED3 [CRSRD33. -CSPC3REPITA 
[  SPC  3  LA  C  SPC  3  M I SMA l SPC  3  0PERAC 1 0N , í CRSRR  3 
PARA  [ SPC  3  EL [ SPC  3 [ CRSRR  3  SEGUNDO  C  SPC  3  0 
BJET0" 

155  PRINT" CCVN3 CCRSRD34. -SI CSPC3AMB0 
S  C  SPC  3  SON  C  SPC  3 1 GUALES  C SPC  3  C0NT I NUE , C SPC  3 
S I C  SPC  3N0  C  SPC  3  JUEGA  í SPC  3  EL I SPC  3  OTRO  C  SPC  3 
JUGADOR" 

157  PRINT"[BLK3  CCRSRD35. -ATENCION [SPC 3 
HAV [ SPC  3  UN  C  SPC  3  OBJETO  C  SPC  3  DESPAREJAD 
0" 

160  PR I NT " [ C0MM4 3  C 2CRSRD  3  S I C SPC  3  HA [ SPC  3 
ENTEND I DO  C  SPC  3  PULSE  C  SPC  3  UNA  C  SPC  3  TECL 
A" 

170  GETA*: IFAÍ-" "THEN170 

180  POKE53280, 8 ¡ P0KE53281 , 8 ¡ PRINT" [RED 3 

[CLR3 [2CRSRL3 "  i 


Le  presentamos  a  SPINNAKER. 

Para  que  también  nuestros  hijos  aprendan  jugando  con  el  ordenador. 


Muchos  padres  ya  conocen  que  el  ordenador  doméstico  pue¬ 
de  servir  para  que  nuestros  hijos  jueguen  y  pasen  largos  ratos  de 
ocio  Con  SPINNAKER  los  juegos  de  ordenador  además  sir¬ 
ven  para  aprender 

SPINNAKER  es  la  firma  líder  mundial  en  juegos  educativos  para 
ordenador.  Ahora  llega  a  nuestro  país  para  que  también  nuestros 
hijos  aprendan  jugando  con  el  ordenador. 

Nuestros  juegos  están  llenos  de  emoción,  entretenimiento  co¬ 
lor,  música...  Pero  además  poseen  un  alto  grado  de  valor  educati¬ 
vo  ayudando  a  los  niños  a  que  desarrollen  sus  habilidades  y  apren¬ 
dan  de  una  divertida  manera.  Aprovechando  al  máximo  las  nuevas 
posibilidades  que  nos  ofrece  el  mundo  de  las  computadoras. 

En  su  elaboración  han  intervenido  especialistas  en  la  educación, 
la  didáctica,  la  música,  los  gráficos  y  la  programación,  que  han  rea¬ 


lizado  un  cuidado  producto  especialmente  pensado  para  la  edu¬ 
cación. 

Estos  son  los  motivos  por  los  que  miles  de  niños  de  todo  el 
mundo  son  verdaderos  fans  de  SPINNAKER.  Y  sus  padres  también. 

Si  Ud.  realmente  desea  que  su  ordenador  familiar  sea  una  ayu¬ 
da  útil  para  el  futuro  de  sus  hijos,  recuerde  este  nombre:  SPIN¬ 
NAKER:  Una  divertida  familia  de  juegos  educativos. 


Gran  Via  Cartas  III,  97  K.  08028  BARCELONA 


SPINNAKER  SOFT  COR.  CAMBRIDGE,  MASS.  USA. 


¿Utiliza  sólo  un 


Utilizar  un  COMMODORE  64  únicamente 
para  jugar,  es  como  pedirle  a  Albert  Einstein  que 
nos  resuelva  la  raíz  cuadrada  de  cuatro. 

El  cerebro  del  ordenador  apenas  funciona. 

Para  aprovecharlo  al  máximo,  lo  que  Vd. 
necesita  son  programas  interesantes  (archivo  de 
documentos,  educación  interactiva,  estimulantes 
juegos  o  proceso  de  textos )  y  lógicamente  los 


periféricos  adecuados: 

—  La  unidad  de  disco  Commodore,  un 
almacenaje  de  datos  muy  rápido,  fiable  y  de 
gran  capacidad. 

—  La  unidad  de  cassette  Commodore,  una 
forma  económica  de  introducir  y  almacenar 
programas. 

—  El  monitor  en  color  Commodore,  para 


MICROELECTRONICA  Y  CONTROL  el  Valencia,  49-53. 08015  Barcelona,  el  Princesa,  47, 3.°  G.  28008  Madrid. 
UNICO  REPRESENTANTE  DE  COMMODORE  EN  ESPAÑA 


COMMODORE  MPS  801 
Impresora  de  matriz 


COMMODORE  COMPUTER  Advierte  que  a 
comprar  uno  de  sus  productos  exija  la  garantí! 
MICROELECTRONICA  Y  CONTROL,  S.A., 
única  válida  para  todo  el  territorio  nacional. 


COMMODORE  MCS801 
Impresora  cuatro  colores 


COMMODORE  DPS 1101 
Impresora  de  margarita 


COMMODORE  1520 
Printer  plotter  cuatro 
colores 

COMMODORE  1541 
Unidad  de  disco  170  K 


10%  de  su  cerebro? 


lograr  que  los  textos  y  gráficos  sean  más 
claros  y  vivos  que  en  un  televisor. 

—  3  impresoras  y  un  printer-plotter,  para 
copias  en  papel,  en  blanco  y  negro  o  color. 

—  Los  joystick  y  paddles,  para  conseguir  que 
los  juegos  sean  más  excitantes. 

Sea  exigente.  Si  su  cerebro,  el  de  su 
COMMODORE  64,  puede  darle  100,  no  se 
conforme  con  10. 


fí  commodore 

COMPUTER 

la  emoción  del  futuro 


Suscríbase 

SUcroSistemos 

y  le  llevaremos  a  su  casa 
un  APPLE  II  c 


Suscríbase  a  MicroSistemas  antes  del  30  de  noviembre  próximo 
y  participará  en  el  sorteo  de  un  magnífico  ordenador  personal 
APPLE  II  c. 

Para  los  que  ya  estén  suscritos  también  tendrán  opción  de 
conseguir  el  APPLE  II  c.  Si  desea  conocer  su  número  en  el 
sorteo  llámenos 
al  teléfono 
231  23  95. 

Habrá  también 
otros  premios 
para  nuestros 
suscriptores 
que  daremos 
oportunamente 
a  conocer.  El 
sorteo  tendrá 
lugar  en 
nuestro  stand 
del  SIMO. 


BOLETIN  DE  SUSCRIPCION  A  MICROSISTEMAS 


Nombre  y  Apellidos  . 

Puesto  . 

Compañía  . . . - _ 

Actividad  Empresa  . . . 

Dirección  . . .  Teléf: 

Ciudad . D.  P . Provincia . 

Suscripción  anual  2.950  ptas. 

Deseo  iniciar  la  suscripción  con  el  próximo  número 

□  Adjunto  cheque  por  2.950  ptas. 

□  Reembolso  más  gastos  del  mismo  al  recibir  el  primer  número  de  la  suscripción. 
(Enviar  a  Gravina,  13-1°  Izda.  Madrid-4  -  Teléf.:  231  23  88/95) 


'  1 


I  Commodore  World 


ESPECIAL  PROGRAMAS 


1 82  CT-CT+ 1 ■ POKES+24 -  0 ¡ P0KE53269 / 0 

183  PRINT" C21CRSRD3 " 

184  1 FCT/2® I NT  <  CT/2  3 THENPR I  NT  "  C  RED  3  J 
UGAD0RCSPC31 CSPC3®" j  J1 j " C9CRSRR3  CVEL3 
JUG ADOR  C  SPC  3  2  C  SPC  3 ■ " ; J2 i " [ RED  3  C  HOM  3 " 

1 85  I FCT/20 1 NT  <  CT/2 ) THENPR I NT " C  VEL  3 
JUGADOR  C  SPC  3 1 C  SPC  3 - " J  J 1 ; " C  9CRSRR  3  C  RED  3 
JUGADOR  C  SPC  3  2 1 SPC  3 ■ " / J2  j " C  RED  3 [ HOM  3 " 


190  FOR  N-1T015 

200  PR I NT " C  COMM83 C  2SPC 3  C  RVSON  3  C  3SPC 3 
C  RVSOFF 3  I  SPC  3  í R VSON  3  í 3SPC  3 [RVSOFF 3 [ SPC  3 
C  RVSON  3  C3SPC3  C RVSOFF  3  í SPC  3  E RVSON  3  [  3SPC 3 
C  RVSOFF  3  C SPC  3  C RVSON  3  C  3SPC 3  C  RVSOFF  3  C  SPC  3 
[RVSON3  C3SPC3 " j 

202  PR I NT " C  RVSOFF  3  í SPC  3 1 RVSON  3  [  3SPC 3 
C  RVSOFF  3  í SPC  3  C RVSON  3  C  3SPC  3  C  RVSOFF  3  [ SPC  3 
C  RVSON  3  C  3SPC 3 [ RVSOFF  3 " 

210  I FN/3® I NT CN/33 THENPR I NT 
250  NEXT 

260  PR I NT " [ HOM  3  C  RED  3  C 2CRSRD  3 1 C  CR8RL  3 
C4CRSRD32CCRSRL3  C4CRSRD33CCRSRL3  C4CRSRD3 
4  t CRSRL 3 C 4CRSRD  3  5  C  4CRSRD  3  C VEL  3 " 

263  GOSUB2500 : P0KE53269 z 0 
270  IFH-0THEN1000 

275  IFCT/2-INT<CT/23THENPRINTTAB<223 
"CSPC3"J 

276  PR I NT " OBJETO  C  SPC  3 1 : [ SPC  3 " j 

277  GETL1*¡ IFL1*-" "THEN277 

279  I FASC ( L 1  * 3  <650RASC  C  L 1 « 3  >73THEN27 
7 

280  PRINTL1*! j 

282  GETN 1  *  ¡ IFN 1 *■ " " THEN282 

283  I FASC í  N 1  * ) C490RASC (  N 1  *  3 >53THEN28 
2 

284  PR I NTN 1  * ¡  POKE V+28 ¡  3 

320  Ll®ASC(Ll*3-64 ¡ NI -VAL (NI *3 ¡ FORE® 
0TO30 ¡ NEXT 

322  PR I NT " [ CRSRU  3  C 37SPC 3 " ¡ PRINT" CCRSRU3 


340  C®39 ¡ P1®0 ¡ CX"0 ¡ CV®1 : 0®1 ¡ GOSUB1 10 
0 ; POKEV+21 1  1 

360  I FCT/2- 1 NT (CT/23 THENPR INTTABC 22) 
" CSPC3" J 

361  PRINT"OBJETOCSPC32¡ CSPC3”i 

362  GETL2*¡ IFL2*®" "THEN362 

363  I FASC  C  L2*  > C650RASC  <  L2*  3  >73THEN36 
2 

365  PRINTL2*/ "-"  J 

366  GETN2# ¡  IFN2*®"  11 THEN366 

368  I  FASC  <  N2 *3  C490R ASC  <  N2*  3  >53THEN36 


400  POKEV+21 z 0 : L2-ASC(L2*3-64 ¡ N2-VAL 
<N2*3 

403  IFCL2-L1 3AND(N2®N1 3THEN360 
405  I FO (L2 / N2  3 -0THEN3S 1 
410  POKE2041 j 229+0CL2/ N23 
415  02*0(L2z  N2) 

420  C®40 ¡ CX®2 ¡ CV®3 ¡ L1-L2 ; N1®N2 ¡ 0-2 ¡ G 
OSUB1 100 

430  POKEV+21 / 2 ¡ IFO1-O2THEN2000 
435  PRINT"LO[SPC3SIENTOCSPC3TIOC8PC3 

FALLASTE . 11 

440  F0RL*ST0S+24  ¡  POKEL ,  0 ¡  NEXT 

450  POKES+5 > 96 • POKES+6 z 200 ¡ POKES+24  z 

79 

470  FORA-0TO50STEP3 ¡HF®PEEK< 14592+ A 3 

•  LF-PEEK  ( 1 4593+A  3 

480  DR=PEEKC14594+A3*4 

490  POKES+ 1 / HF • POKES / LF : POKES+4 > 33 


510  FORT® 1 TODR ¡ NEXT • POKES+4/  32 ¡ FORT» 

1 TO50 ; NEXT ; NEXT 

530  PR I NT" t CRSRU 3 C28SPC 3" ¡PRINT" C CRSRU 3 

540  GOTO 180 

999  END 

1000  DIMOÍ9/53 

1005  PRINT"  UN  C  SPC  3  M I ÑUTO  C  SPC  3  PAR A [ SPC  3 
COLOCAR  C  SPC  3  LOS  [  SPC  3  D I BU JOS  [ 5SPC 3  [ CRSRU  3 

1010  FOR  N®1  T09  ¡  FOR  M-1T05 

1020  AL®INT(RNDC03#453+1 

1030  FORP® 1  TON ¡ FORO® 1  TOS 

1033  IFAL®0(P/ Q3THEN1020 

1 035  NEXTQ : NEXTP ¡ O (Ni M3-AL ¡ NEXTM ¡ NEX 


1054  NEXT ¡ NEXT ¡H®1 

1058  PRINT"! 39SPC  3  C  CRSRU  3 " 

1060  G0T0275 

1100  XJ®40+(32i<LJ”l 33 ¡  VI *60+ (32* (NI 

-D) 

i  1 10  I F ( O® 1 3  AND ( X 1 >255  3  THENP 1 ■ 1 
1115  I F ( 0®2  3  AND  <  X 1 >255  3  THENP 1 ®P 1 +2 
1130  I FX 1 >255THENX 1 ®X 1 -256 
1140  POKEV+CX/ XI ¡ POKEV+16, P1 : POKEV+C 
V/Vl 

1150  POKEV+37/ PEEKÍ 16193+3*<0CL1 . NI 3 
-133 

1 160  POKEV+38, PEEKÍ 16194+3KK0ÍL1 ,  NI  3 
-133 

1170  POKEV+C> PEEKC 16195+3M(0(L1 / NI 3- 
133 

1180  F0RL-ST0S+24: POKEL/ 0¡ NEXT 
1190  POKES+5/ 9 ¡POKES+6/ 32 
1200  POKES+24/ 15 ¡ POKES+1 / 60 ¡ POKES/ 20 
0 

1210  POKES+4 / 33 ¡ FORN-0TO50 ¡ NEXT ¡POKE 

S+24/0 

1220  RETURN 

2000  I FCT/2- 1 NT  C  CT/2  3 THEN J2® J2+ 1 
20101 FCT/20 1  NT  <  CT/2  3  THEN  J 1  ®  J 1  + 1 
2020  PR I NT " MUV [ SPC  3  B I EN  C  SPC  3 CONSEGU I 
STE [ SPC  3  UNA  C  SPC  3  PAREJA " 

2030  P0KE53269 , 3 ¡ S-54272 

2040  F0RL®ST0S+24¡ POKEL/ 0¡ NEXT 

2050  POKES+3/ 15 ¡ POKES+2/ 15 ¡ POKES+5/ S 

8 ¡ POKES+6 / 89 ¡ POKES+24 / 1 5 

2060  FORQ-0TO36STEP3 ¡ HF=PEEK ( 1 4644+Q 

3 ¡ LF-PEEK <1 4645+Q  3 ¡ DR-PEEK  < 1 4646+Q  3  * 

4 

2065  P0KE53269/3 

2070  POKES+ 1 / HF ¡ POKES / LF ¡ POKES+4 / 65 ¡ 
FORT® 1 TODR ¡ NEXT ¡ P0KE53269 / 0 
2080  POKES+4 / 64 ¡ FORT® 1TO50¡ NEXT 
2085  NEXTQ 

2140  IFJ1+J2-0THEN2590 

2150  NU-J1+J2 

2155  I FNU-22THEN3000 

2160  XI <NU3*ASC<Ll$3-64 ¡VI (NU3®VALCN 

1*3 

2170  X2<NU3®L1¡V2(NU3»N1 

2380  OÍASC<Ll*3-64/VAL<Nl*33®0¡O(Ll/ 

NI  3=0 

2390  PR I NT " C CRSRU  3  C  33SPC 3 " ¡ PR I NT " C CRSRU  3 

2400  CT-CT-1 ¡GOTO180 
2500  IFNU-0THENRETURN 
2510  FORWS-1TONU 
2512  PRINT"CHOM3"j 

2515  FORN®lTOC  < VI CWS3-1 3*43+1 ¡PRINT" 
CCRSRD3"/ ¡NEXT 

2520  PRINTTABC ( (XI <US3-1  3*43+23 " CCOMM1  3 
C  RVSON  3 1 3SPC  3  C  RVSOFF  3 " j  ¡ PR I NTSPC ( 37  3 
" C  RVSON  3  C  3SPC  3  í R VSOFF  3 " i 
2525  PR I NTSPC (37) "C RVSON 3 C 3SPC 3 C RVSOFF 3 


2330  PRINT" CHOMI " J 

2540  F0RN*1T0( (V2(WS)-1  )IM)  +  1  : PRINT" 
CCRSRD3"; ■ NEXT 

2550  PR I NTTAB  < ( <X2  <  WS  ) - 1 ) *4 ) +2 ) " C COMM 1 3 
í RVSON 3C3SPC3C RVSOFF ] " 1 ¡ PR I NTSPC ( 37 ) 

" [ RVSON ] C  3SPC ] C RVSOFF ] " i 

2555  PRI NTSPC (37) " [ RVSON  3C3SPC3C RVSOFF  3 

2557  PRINT"CHOM3"J 
2570  NEXT 

2590  PR  I  NT 1 11 C  23CRSRD  3  "  ¡  "  C  VEL  3  "  i 
2900  RETURN 

3000  I F J 1  > J2THENAÍ-  "  GANA  t  SPC  3  EL  C  SPC  3 
JUGADOR! SPC JN.  CSPC3 1 " 

30 1 0  I F J2> J 1 THENAÍ» " GANA  C  SPC  3  EL  í SPC  3 
JUGADORÜSPC3N. CSPC32" 

3020  POKE53280 , 3 ¡ P0KE3328 1 ,  5 ¡ PR I NT " C CLR  3 
CCOMM23" i 

3030  IFJ1-J2THEN3060 

3040  PRINT" CBCRSRD3 í 1 1 CRSRR 3 ENHORABU 

ENA" 

3050  PRINT" C4CRSRD3 [7CRSRR3 " 1 Af 
3035  I F J 1 0 J2THEN3070 
3060  PRINT" C 1 1CRSRD3 C6CRSRR3PORCSPC3 
ESTA  í  SPC  3  VEZ  C SPC  3  EMPATASTE I S " 

3070  PR I NT " [ 5CRSRD 3  E WHT  3 QUERE I S  C  SPC  3 
PROBAR  C  SPC  3  OTRA  C SPC  3  VEZ  C SPC  3 S/N? " 

3030  GETBí : I FBí » " S " THENRUN 1 8 

3085  I FBí  ■ " " THEN3080 

3090  PRINT" C CLR 3 " • END 

1 4000  FORN* 1 4720TO 1 6 1 9 1 : RE ADA : POKEN , 

A :  NEXT 

14010  FORN* 1 6 1 93T0 1 6262 : READA ¡ POKEN  , 

A :  NEXT 

14020  FORN*  14592T0 14681  ¡  READA  '■  POKEN* 

A : NEXT 
14030  RETURN 

1 5000  REMtt«**««*M*«*BARBERO*MÍ*Í«*ÍM 
ttW 

13010  DATA0, 0,0, 0,17, 0,1 >85, 80, 5, 89, 

84.4. 170 

15020  DATA132, 22, 170, 163, 18, 170, 161, 

14.106.108.14.174.172.14 

15030  DATA191, 172, 14,191,172,2,170,1 

60.2.153.160.2.170.160 

15040  DATA0, 187, 128,0,174, 128,0,42,0 
,0,42,0,0,8 

15050  DATA0, 0,0, 0,0, 0,0,0 
1 5060  REM#*#*#i*#i***P I  NO**#*#**#**#*# 

15070  DATA0, 0,0, 0,4, 0,0, 21, 0,0, 83, 64 
,0,21 

15080  DATA0, 0,85, 64, 1,83,80,0,85,64, 
1,85,80,5 

15090  DATA85, 84, 1,85,80,3,83,84,21,8 
3,85,0,8,0 

15100  DATA0, 8, 0,0, 8, 0,0, 8, 0,0, 8, 0,0, 

8 

15110  DATA0, 0,0, 0,0, 0,0,0 

15120  REM*****l«4lltl**PAVASO*i«MÍIII*ÍW*«tt 

15130  DATA0, 21, 0,0, 21, 0,0, 21,0, 1,85, 

80.13.170 

15140  DATA188, 62, 170, 175,62,187, 175, 

62.235.239. 14. 171. 172. 14 

15130  DATA166, 172, 14, 149, 172, 14, 16 6, 

172.2.170.160.2.170.160 

15160  DATA0, 187,128,0,174,128,0,42,0 
,0,42,0,0,8 

15170  DATA0, 0,0, 0,0, 0,0,0 

15180  REMM**M**ftttiK¡«MAZ I NGER***»*tt«*« 

15190  DATA21 , 83, 84, 23, 213, 212, 21 , 85, 

84,21,85,84,90,  170 

15200  DATA165, 90, 170, 165,95,235,245, 

95 ,255,245, 223 , 253 , 247 , 223 

13210  DAT A253 , 247 , 23 ,  235 , 1 64 , 26 , 235 , 

164,26, 190, 164,26, 190,  164 

15220  DATA58, 170, 172, 10, 170, 160, 14, 1 


90.176.4.190.128.2.170 

15230  DATA192,0, 170,0,0,203,0,0 
1 5240  REM*«*****«**CAS I TA****«*««iMf« 

15250  DATAS, 87, 64,6, 87, 80, 6, 87,  80,  26 
, 149,84,26, 149 

15260  DATA84, 107, 163,85, 107, 165,83, 1 

70, 170, 170, 170, 170,  170,  170 

13270  DATA171 , 234, 170, 171,234, 173, 17 

1.234. 175. 171.234. 175. 170. 170 
15280  DATA175, 170, 170, 173, 170, 170, 17 
5, 170, 170, 13,0,0,3, 192 

15290  DATA0, 0,240, 0,0, 60, 0,235 
1 3300  REMW**«*4l*l««l«BARCO»*«l«i«*l«*l|lll«i«* 

15310  DATA  0,  0,  0,  0,  0,  48,  0,  0, 
48,  48,  0,  240,  48,  0 
15320  DATA  192,  16,  3,  0,  48,  21,  0, 
48,  21,  0,  16,  63,  0,  240 
15330  DATA  63,  0,  232,  21,  0,  207,  6 
3,  0,  253,  63,  0,  85,  85,  84 
15340  DATA  85,  83,  80,  83,  85,  80,  2 
1,  83,  80,  3,  83,  96,  170,  170 
13330  DATA  170,  170,  170,  170,  170, 
170,  170,  253 

1 3360  REM*«*W*«**ft*PATO«**Í*tt**«§**« 

«** 

15370  DATA  0,  0,  0,  0,  80,  0,  1,  84, 
0,  41,  212,  0,  9,  80 
15380  DATA  0,  0,  64,  0,  0,  64,  0,  0, 
64,  0,  1,  64,  0,  5 
15390  DATA  64,  0,  5,  80,  0,  21,  84, 
0,  21,  85,  80,  21,  85,  64 
13400  DATA  21,  85,  0,  3,  84,  0,  1,  8 
0,  0,  8,  8,  0,  40,  10 
15410  DATA  0,  255,  233,  255,  253,  23 
3,  255,  253 

1 5420  REM*«***W««**MANZANAWNtlif««***§ 

«*« 

15430  DATA  0,  2,  0,  1,  8,  16,  1,  8, 

16,  5,  72,  84,  3,  72 

15440  DATA  84,  21,  83,  85,  21,  83,  8 

3,  21,  83,  85,  21,  83,  85,  5 

15430  DATA  83,  84,  5,  86,  148,  3,  86 
,  148,  1,  87,  176,  1,  86,  220 
15460  DATA  1,  83,  83,  1,  85,  83,  0, 
85,  64,  0,  81,  64,  0,  81 
15470  DATA  64,  0,  17,  0,  0,  0,  0,  0 
1 5480  REM****«****«LAMPARA»*«******* 
**« 

15490  DATA  0,  16,  0,  0,  84,  0,  0,  22 

0,  0,  1,  117,  0,  1,  83 

15300  DATA  0,  3,  83,  64,  3,  83,  64, 

21,  85,  80,  55,  119,  96,  93 

15510  DATA  221,  212,  83,  83,  84,  0, 

168,  192,  0,  168,  192,  2,  170,  192 

15320  DATA  10,  170,  192,  42,  170,  22 

4,  42,  170,  160,  10,  170,  128,  2,  17 
0 

15530  DATA  0,  2,  170,  0,  2,  170,  0, 

255 

15540  REM*»lt<l««i«tt*«i«CHINOl«**W4l*W*«Wi«l|l 

15550  DATA  0,  0,  0,  0,  4,  0,  0,  21, 
0,  0,  85,  64,  0,  85 
15560  DATA  64,  1,  85,  80,  3,  83,  84, 
5,  85,  84,  21,  83,  85,  38 
13370  DATA  170,  168,  58,  234,  232,  1 
4,  187,  160,  50,  170,  160,  14,  170, 
160 

15580  DATA  30,  170,  160,  12,  187,  12 
8,  48,  174,  128,  12,  42,  0,  48,  42 
15590  DATA  0,  48,  8,  0,  0,  0,  0,  253 

1 5600  REM*****«*«*«FLORERO«*****«*** 

**« 

15610  DATA  0,  0,  0,  0,  0,  0,  1,  1,  0 
,  5,  69,  68,  7,  3 

15620  DATA  65,  3,  51,  13,  31,  12,  51 


|  Commodore  World 


ESPECIAL  PROGRAMAS 


-  207,  204 j  192 j  0,  31,  0,  63 
15630  DATA  51,  0,  51,  51,  0,  218,  17 
0,  160,  242,  170,  128,  80,  170,  0 
15640  DATA  0,  170,  0,  0,  170,  0,  0, 
170,  0,  0,  170,  0,  32,  40 
15650  DATA  8,  42,  170,  168,  42,  170, 
168,  255 

1 5660  REM##W*###MW*COCHE*###**####** 
*** 

15670  DATA  0,  0,  0,  0,  0,  0,  1,  85, 
64,  1,  85,  64,  1,  16 
15680  DATA  64,  1,  16,  64,  1,  16,  64, 
1,  16,  64,  5,  16,  64,  3 
15690  DATA  16,  64,  3,  85,  84,  3,  83, 
84,  7,  85,  212,  215,  83,  215 
13700  DATA  223,  215,  247,  13,  195,  1 
12,  3,  0,  192,  3,  0,  192,  170,  170 
15710  DATA  170,  170,  170,  170,  170, 
170,  170,  233 

1 5720  REM**********CARAC;OL**«*«***** 
*** 

15730  DATA  0,  0,  0,  0,  0,  0,  0,  0,  0 


15740  DATA  0,  3,  64,  0,  61,  112,  0, 
213,  80,  0,  213,  92,  0,  221 
15750  DATA  92,  51,  215,  92,  34,  215, 
92,  34,  213,  213,  34,  213,  213,  10 
15760  DATA  23,  87,  2,  62,  87,  40,  42 
,  254,  168,  170,  170,  160,  83,  169 
15770  DATA  168,  85,  85,  83,  85,  85, 
85,  255 

1 5780  REM****#*****TETERA*********** 

15790  DATA  0,  0,  0,  0,  12,  0,  0,  4, 
0,  0,  21,  1,  0,  83 
15800  DATA  65,  5,  255,  197,  5,  85,  6 
9,  20,  85,  68,  20,  85,  68,  81 
15810  DATA  85,  100,  81,  85,  100,  65, 
83,  100,  65,  83,  100,  69,  85,  92 
15820  DATA  69,  85,  92,  85,  85,  84,  8 
3,  83,  84,  21,  83,  85,  21,  83 
15830  DATA  85,  0,  0,  0,  0,  0,  0,  255 

1 5840  REM**********riANZANOi«********* 

13850  DATA  0,  20,  0,  1,  83,  64,  3,  8 
5,  80,  7,  87,  80,  23,  87 
15860  DATA  84,  21,  83,  84,  21,  117, 
92,  21,  117,  92,  29,  85,  212,  29 
15870  DATA  85,  212,  5,  117,  80,  3,  1 
17,  80,  3,  105,  80,  1,  103,  112 
15880  DATA  0,  40,  48,  0,  40,  0,  0,  4 
0,  0,  0,  40,  0,  0,  40 
15890  DATA  0,  85,  105,  83,  83,  105, 
83,  255 

15900  REM****«**«**CARA  PALO******** 
*#* 

15910  DATA  3,  255,  240,  3,  255,  240, 
3,  255,  240,  63,  255,  233,  1,  83 
13920  DATA  80,  3,  255,  240,  1,  247, 
208,  1,  247,  208,  1,  85,  80,  1 
15930  DATA  85,  80,  1,  93,  80,  1,  127 
,  80,  1,  83,  80,  1,  106,  80 
15940  DATA  1,  85,  80,  0,  21,  0,  0,  2 
9,  0,  0,  63,  0,  0,  63 
15930  DATA  0,  0,  0,  0,  0,  0,  0,  235 
1 5960  REM#########*MOL I NO*#**#*****# 
*** 

13970  DATA  0,  0,  0,  0,  20,  0,  0,  85, 
0,  48,  83,  12,  13,  83 
15980  DATA  112,  3,  85,  192,  1,  215, 
64,  1,  125,  64,  2,  190,  128,  2 
15990  DATA  233,  128,  3,  170,  192,  14 
,  170,  176,  30,  170,  140,  2,  170,  12 
8 

16000  DATA  2,  170,  128,  2,  170,  128, 
2,  150,  128,  2,  130,  128,  2,  130 
16010  DATA  128,  2,  150,  128,  2,  150, 
128,  255 


1 6020  REM######M#M*NINA##*#*######K# 
### 

16030  DATA  0,  0,  0,  0,  0,  0,  5,  69, 
64,  5,  85,  64,  21,  85 
16040  DATA  80,  21,  101,  80,  22,  170, 
80,  22,  170,  80,  26,  170,  144,  26 
16050  DATA  170,  144,  25,  101,  144,  2 
6,  170,  144,  26,  170,  144,  26,  170, 
144 

16060  DATA  90,  170,  148,  90,  186,  14 
8,  10,  186,  128,  2,  170,  0,  0,  168 
16070  DATA  0,  0,  32,  0,  0,  0,  0,  235 


1 6080  REM«W*ÍW**#*«C  I GARRO#***#***** 
*** 

16090  DATA  0,  0,  0,  0,  0,  10,  0,  0, 
10,  0,  0,  170,  0,  0 
16100  DATA  42,  0,  0,  42,  0,  0,  128, 
0,  0,  128,  0,  2,  0,  0 
16110  DATA  0,  0,  0,  40,  0,  0,  168,  0 
,  2,  128,  0,  2,  128,  0 
16120  DATA  8,  0,  0,  32,  0,  0,  62,  17 
0,  149,  62,  170,  149,  62,  170 
16130  DATA  149,  0,  0,  0,  0,  0,  0,  25 

16140  REMM****«W«**P A J AR I T A********* 

16150  DATA  0,  29,  221,  0,  53,  116,  0 

,  29,  208,  0,  55,  112,  0,  29 

16160  DATA  192,  0,  53,  64,  0,  29,  19 

2,  0,  55,  112,  0,  29,  220,  0 
16170  DATA  55,  116,  0,  29,  221,  0,  1 
19,  119,  0,  221,  221,  3,  119,  119 
16180  DATA  13,  221,  221,  7,  116,  33, 
29,  220,  13,  119,  112,  3,  221,  208 
16190  DATA  1,  0,  0,  0,  0,  0,  0,  255 
1 6200  REr'1*#******«*PARAGUA3******#«* 

16210  DATA  0,  40,  0,  0,  40,  0,  2,  17 
0,  128,  10,  170,  160,  42,  170 
16220  DATA  168,  170,  170,  170,  170, 
174,  170,  128,  140,  130,  128,  140,  1 
30,  128 

16230  DATA  140,  130,  0,  12,  0,  0,  12 

,  0,  0,  12,  0,  0,  12,  0 

16240  DATA  0,  12,  0,  0,  12,  0,  0,  12 

,  0,  0,  68,  0,  1,  4 

16230  DATA  0,  1,  4,  0,  0,  84,  0,  235 

1 6260  REM*«*******MCABALL I TO#*#**##* 
### 

16270  DATA  0,  0,  0,  0,  0,  0,  0,  128, 
0,  2,  0,  0,  170,  0 
16280  DATA  0,  42,  0,  0,  170,  0,  0,  4 
2,  0,  0,  10,  191,  232,  10 
16290  DATA  191,  226,  10,  191,  226,  1 
0,  170,  162,  2,  170,  162,  0,  136,  12 
8 

16300  DATA  0,  128,  128,  0,  128,  32, 

2,  0,  8,  72,  0,  9,  88,  0 
16310  DATA  5,  21,  85,  84,  5,  85,  80, 
255 

1 6320  REM##########AV I Oh*##*#**#**#* 

16330  DATA  0,  0,  0,  0,  0,  0,  0,  0,  0 

,  0,  0,  10,  0,  0 

16340  DATA  40,  0,  0,  160,  0,  2,  130, 
192,  74,  2,  193,  90,  2,  202 
16350  DATA  170,  170,  42,  170,  170,  2 
02,  170,  168,  194,  170,  160,  194,  12 

16360  DATA  10,  0,  0,  40,  0,  0,  160, 

0,  0,  0,  0,  0,  0,  0 

16370  DATA  0,  0,  0,  0,  0,  0,  0,  233 

16400  REM######COLORES  SPRITES****** 

16420  DATA0, 2, 10,3, 13,9,9,0, 10,2,0,8 

,2,0 

16430  DATA1, 2, 0,6, 8, 0,2, 10, 0,2, 3, 0,6 


, 2 

16440  DATA0,  7, 2, 5, 9,  14,  0,  9,  5,  0- 8;  4,  0 

,0 

16430  DATAS, 2, 9, 8, 0,2, 2,0, 1,9, 2, 8, 9, 
11 

16460  DATA12,6,2,0,8, 10,14,11,10,2,1 
,0, 14,235 

1 6500  REM#W*#lli#i»MU3 1 C  8*4*1»  «**  ******  * 
*** 

16530  DATA15, 197,62, 18,234,62, 15, 197 
,62, 15, 197,62, 15, 197,31, 18,234,31,22 
,114 

16540  DATA1S7, 15, 197,62, 18,234,62,9, 
83,62,9,83,62,9,83,62,11,174,15,14,8 
3 

16350  DATA15, 15, 197,62,14,83,31,9,83 
, 62, 255, 34,75,62, 43, 32,62, 31 , 97, 93, 4 
3,32 

16360  DATA31 , 51 , 97, 62, 57, 172,62,51,9 
7, 125,0,0,31,43,52,62,31,97,62,57, 17 
2 

16570  DATA250, 51, 97, 123,0,0 


Triángulos 

Ricardo  Montañana  Gómez 

Horno,  n°  4-ls 

Madrigueras  (Albacete) 

VIC-20 

jftÜ 

CttAtavií 

TRIANGULOS  proporciona  una  solución  de  ángulos,  lados  y 
funciones  trigonométricas  de  los  ángulos  por  pantalla  y  por 
impresora  (opcional).  ^ 

El  programa  se  basa  en 

un  triángulo  de  forma:  \ 

_ Ü _ !  \B 

pidiendo  siempre  tres  datos  y  devolviéndonos  los  otros  tres  y 
sus  funciones  trigonométricas. 

El  programa  está  estructurado  de  la  siguiente  forma: 

Líneas  1-80  Presentación  del  programa  (menú  principal  de 
opciones) 

Líneas  90-100  Ejecuta  la  subrutina  indicada  por  el  menú. 
Líneas  1000-1110  Subrutina  de  2  lados  y  ángulo  comprendido. 
Líneas  2000-2110  Subrutina  de  1  lado  y  ángulos  adyacentes. 
Líneas  3000-3 1 10  Subrutina  de  2  lados  y  ángulo  no  comprendido. 
Líneas  4000-4100  Subrutina  de  un  lado  1  ángulo  adyacente  y 
el  ángulo  opuesto. 

Líneas  6000-6043  Subrutina  de  comprobación  de  los  tres  lados 


(para  saber  si  forman  un  triángulo  las  cantidades  introducidas 
o  no). 

Líneas  6100-6190  Cálculo  de  los  resultados  con  los  tres  lados. 
Líneas  7000-7070  Subrutina  de  salida.  Aquí  se  pide  la  salida  o 
no  de  los  datos  por  impresora  y  si  se  quiere  acabar  ya  con  el 
programa. 

Líneas  9000-9060  Subrutina  de  salida  de  datos  por  pantalla. 
Líneas  10000-11150  Subrutina  de  salida  de  datos  por 
impresora. 

El  programa  ocupa  4434  bytes  de  memoria,  por  lo  tanto  no  se 
puede  ejecutar  sin  disponer  de  ampliación  de  memoria. 
Aunque  sí  se  podría  ejecutar  con  la  memoria  estandard  si  se 
quita  la  subrutina  de  salida  de  datos  por  impresora,  el 
programa  funcionará  igual  de  bien,  ya  que  la  salida  de  datos 
por  este  periférico  es  opcional. 

La  adaptación  de  este  programa  a  un  64  creo  que  es  muy 
sencilla,  tan  sólo  se  trata  de  cambiar  el  POKE  de  la  línea  10 
(este  POKE  cambia  el  color  de  la  pantalla). 


10  P0KE36879, 123 : PRINTCHRSC 14) : PRINT 
" [CLR3 " 

20  PRIHT  " C HOM ] C R VSON 3 C PUR 1  £ 6SPC 3CSHIFTT3 
[SHIFTR3 [SHIFTI 3ISHIFTA3 [SHIFTN3 [SHIFTG3 
[SHIFTU3 [SHIFTL3 [SHIFT03[SHIFTS3[6SPC3 
[RVS0FF3 " 

30  PRINT  " [ 2CRSRD 3 1 ... C SPC 3 [ R VSON 3 [ WHT  3 
2 [ PUR  3 [  SPC  3  LADOS  C  SPC  3  V  C  SPC  3  ANGULO 11  :  P 
R I NT " [  5CRSRR  3  C RVS0N  3  C  2SPC  3 COMPREND I D 
0." 

40  PRINT  "[CRSRD32. . . [SPC3[WHT3[RVSON3 
1 [PUR3  CSPC3LADOC2SPC3VCSPC3  CWHT32CPUR3 
í SPC  3  ANGU-C 5CRSRR 3 1 2SPC 3  LOS  [  SPC  3  AD VA 
GENTES. C2CRSRU 3" 

50  PRINT  "3. . . CSPC3CWHT3CRVSQN32CPUR3 
[SPC 3 LADOS CSPC 3 VC SPC 3 ANGULO" ¡ PRINT" [5CRSRR3 
[ RVSON 3 [ 2SPC  3  NO [ SPC  3  COMPREND I DO " 

60  PRINT" [CRSRD34. . . [SPC3[WHT3[RVSON3 
1 [ PUR  3 [ SPC  3  LADO [ SPC  3  UN [ SPC  3  ANGULO " 

61  PRINT  " [ 5CRSRR 3 [ RVSON 3 [ 2SPC 3 ADVAC 
ENTE  C  SPC  3  V [ SPC  3  EL [ RVS0FF  3 [ 6SPC  3 [ RVSON  3 
[2SPC 3 ANGULO [SPC 3 OPUESTO.  " 

63  ,  FILE  EXISTS, 00, 00 

70  PRINT  "5. . . [SPC3 [RVSON3TRESISPC3L 

AD0S. 

80  PRINT  "[2CRSRD36. . . [ SPC 3 [RVSON 3 SA 
LIDA.ÍBLU3" 

90  GETAS ■ S*VAL<AS3 • IFS>?0RS<1THEN  90 

100  0N  S  GÜSUB  1000,2000,3000,4000,6 
000,7000 : GOTO  10 

1000  REM  ****  2  LADOS  V  ANGULO  C0MPR 
ENDIDÜ  **** 

1010  PRINT  " [ CLR 3 [ WHT 3 [ RVSON 3 [ SPC 3 [ RED 3 
2ÍWHT3 [SPC3 [SHIFTL3  ÍSHIFTA3 [SHIFTD3 [SHIFT03 
[SHIFTS3 [SPC3 [SPC3 [SHIFTV3 [SPC3 [SHIFTA3 
[SHIFTN3 [SHIFTG3 [SHIFTU3 [SHIFTL3 [SHIFT03 
[8SPC3 [SHIFTC3 [SHIFT03 [SHIFTM3 [SHIFTP3 
[SHIFTR3 [SHIFTE3 [SHIFTN3[SHIFTD3 [SHIFTI 3 
[SHIFTD3 [SHIFT03 . [6SPC3ÍPUR3 " 

1020  INPUT  "ANGUL0[SPC3'[SHIFTA3/M;A 

1030  INPIJT  "LAD0SISPC3  /B’'  [SPC3VISPC3 

/C/[SPC3"JB,C 

1040  AA«tt*A17180 

1 050  A»ABS ( SQR  <  B  T2+C 12- <  2*B*C*C0S  C  AA 

)))) 

1 060  SENC»S I N (.  AA ) HC/ft  •  CC=ATN( SENC/SQ 

R  (  -SENC*SENC+ 1  >  >  =  C1  -CC*  1 807tt 

1070  Bl-lS0-Al-CUBB-Bl*tr7180 

1080  G0SUB  9000 

1090  IF  SW*1  THEN  GOSUB  10000 

1100  GET  Aí :  IF’  AÍO"R"  THEN  1100 

1110  RETURN 

2000  REM  **««  1  LADO  V  ANGULOS  ADVAC 
ENTES  **** 

2010  PRINT  " [CLR3 [WHT3 [RVS0N3 [SPC3 [RED3 
1 [UHT3 [SPC3 [SHIFTL3 [SHIFTA3ISHIFTD3 [SHIFT03 


CSPC] CSHIFTV] [SPC ][ RED] 2C WHT] [SPC] CSHIFTR] 
CSHIFTN] [SHIFTG]  CSHIFTU] [SHIFTL] CSHIFTO] 
CSHIFTS] C SPC] C7SPC] CSHIFTR] [SHIFTD] CSHIFTV] 
CSHIFTR] [SHIFTC] CSHIFTE ] CSHIFTN] [SHIFTT] 

C SH I FTE ] C  SH I FTS ] . [ 6SPC ] C  PUR ] " 

2020  INPUT  "ANGULOSCSPC] ' [SHIFTC] ' [SPC] 
VCSPC] ' CSHIFTB] ' [SPC] " ; C1 . B1 
2040  INPUT  " LADO [ SPC ] ' fi ' [ SPC ]  "  j  fi 
2050  fi  1  ®  1 80-B 1-C1 ;  fifl=iT*fi  1/130  :  BB®tr*B 
1/180 :  CC=»iíi*C  1/180 
2060  B=ñ*SIN<BBVSIN<RA> 

2070  C=ft*SIN(CC)/SIN<fifl) 

2080  GÜSUB  3000 
2090  IF  SW»1  THEN  GÜSUB  10000 
2100  GET  fií  '■  IFfiíO"R"THEN  2100 
2110  RETURN 

3000  REM  *««*  2  LADOS  V  ANGULO  NO  CO 
MPRENDIDO  ***« 

3010  PRINT  " CCLR] [WHT] [RVSON] CSPC] [RED] 
2CWHTHSPC] [SHIFTL] [ SHIFTR] [SHIFTD] [SHIFTO] 
CSHIFTS][SPC] CSHIFTV] [SPC] CSHIFTR] CSHIFTN] 
[SHIFTG][SHIFTIJ] [SHIFTL] [SHIFTO] [SPC] 
[SHIFTN] [SHIFTÜ] [6SPC] [SHIFTC] [SHIFTG] 
[SHIFTN] [SHIFTP] [SHIFTR] [SHIFTE] [SHIFTN] 
CSHIFTB] CSHIFTI ] [SHIFTD] CSHIFTO] . C6SPC] 
[PUR]" 

3020  INPUT  "ANGULOCSPC]' CSHIFTB] 'CSPC] 

" ;  Bl 

3030  INPUT  "LADÚS[SPC]'B'[SPC]VCSPC] 

'C' CSPC] " <  B>  C 
3040  BB®ir*Bl/180 

3050  SENC»C*S I N ( BB ) /B : CC-ATN < SENC/SQ 
R  <  -SENCÍSENC+ 1 )  >  •  C 1 = 1 80*CC/tr 
3060  R1  =  180-B1-C1  :fifl=fil*tr/180 
3070  fi=B*SIN(HPO/SIN<BB] 

3080  GOSUB  9000 
3090  IF  SW®1  THEN  GOSUB  10000 
3100  GET  Rí  :  IF  RíO"R"THEN  3100 
3110  RETURN 

4000  REN  ****  1  LRDÜ  EL  ANGULO  OPUES 
TO  V  EL  ANGULO  ADVACENTE  **** 

4010  PRINT  "CCLR] [WHT] [RVSON] CSPC] [RED] 

1 [WHT] CSPCHSHIFTL] CSHIFTR] [SHIFTD] CSHIFTO] 
[SPC] [RED] 1 [WHT] CSPC] CSHIFTR] CSHIFTN] 
CSHIFTG]CSHIFTU]CSHIFTL] [SHIFTO] CSPC] 
[SHIFTR] [SHIFTD] CSHIFTV] [SHIFTfl]-[SHIFTC] 
CSHIFTE] [SHIFTN] [SHIFTT] [SHIFTE] [SPC] 
CSHIFTV] [SPC] [SHIFTR] [SHIFTN] [SHIFTG] 
CSHIFTU] [SHIFTL] [SHIFTO] CSPC] [SHIFTO] 
[SHIFTP] [SHIFTU] [SHIFTE] CSHIFTS] [SHIFTT] 
[SHIFTO] CPUR] " 

4020  INPUT  " RNGULOS [ SPC ]'[ SHIFTC]'! SPC ] 

VCSPC] ' [SHIFTR] ' [SPC] " iCljfíl 

4030  INPIJT  "LRDOCSPC]  'R'  [SPC]"  ;  R 

4040  B1=180-C1-R1 : fifi*fil*ff/180 : BB®B1* 

ir/180:CC=Cl*ff/180 

4050  C=R*SIN(CC)/SIN<Rfl> 

4060  B=fii*S  I N  <  BE’ )  /S I N  (  fifi  ] 

4070  GOSUB  9000 
4080  IF  SW=1  THEN  GOSUB  10000 
4090  GET  fií  •  IF  RíO"R"THEN  4030 
4100  RETURN 

6000  REN  **«»  TRES  LADOS.  **** 

6010  PRINT  " C CLR ] [ WHT ] [ RVSON ] C 5SPC ][ SHIFTC] 
[SHIFTO] CSHIFTN] [SHIFTP] CSHIFTR] [SHIFTO] 
CSHIFTB] [SHIFTR] [SHIFTC] CSHIFTI] [SHIFTO] 
CSHIFTN] C5SPC] [ RVSOFF ] C  PUR ] " 

6020  INPUT  " C CRSRD ] LRDO [ SPC ] 1 C CONNV ] 

: ",  FU  INPUT  " C CRSRD] LRDOCSPC ]2C CONNV] 

INPUT  "C CRSRD ] LADO [ SPC ] 3 C CONNV ] 

:  ";C 

6030  P®(R+B+C>/2  :  S=(P*<P-fi)¡tKP-B)*<P 

-C) ) 

6031  IF  S>0. 0THEN  PRINT  " C2CRSRD] [RVSON] 
[WHT] CSPC] TODO CSPC] [SHIFTO] . CSHIFTK] 

CSPC] CPUR]" : PRINT  " [2CRSRD] [RVSON] [WHT] 

[ SPC ] PULSA [ SPC ] ' C  SH I FTR ] ' C  SPC ] C  PUR ] " 

•  GOTO  6042 

6040  PRINT  "CBLK] ESE CSPC] TRIANGULO CSPC] 

NO  C  SPC ] EX I S-TE " = PRINT  1  HALA [ SPC ]SUER 


TE. " : PRINT  " CSPC]PULSR[SPC]LR[SPC] ' CSHIFTR] 
¡SH-l 

6042  GET  A*:IFA*O"R"THEN6042 

6043  I FSH® 1 THENSH®0 : GOTO  10 

6100  PRINT  " [CLR] [WHT] [RVSON] C5SPC] [SHIFTT] 
CSHIFTR] CSHIFTE] CSHIFTS] CSPC] [SHIFTL] 
CSHIFTR] [SHIFTD] [SHIFTO] CSHIFTS] . C6SPC]  . 
CPUR] “ 

6110  INPUT  "LRDOCSPC] 'fi' , 'B' CSPC] VCSPC] 

'C' CSPC] " ;  fi,  B,  C 

6120  CÜR®<-fiT2+BT2+C12>/< 2*8*0 

6 1 30  fifi=-RTN  ( COR/SGlR  C  -C0fi*C0fi+ 1 )  )  +ir/ 

2:fll*Afi#180/lT 

6140  SENB»SIN<fifi)*B/fl:BB=ATN<SENB/SQ 

R ( -SENBÍSENB+ 1 > > • B 1 =BB¡* 1 80/ n 

6150  C 1  =  1 80-R 1  — B 1 ;  CC®C  1  íir/ 1 80 

6160  GOSUB  9000 

6170  IF  SW®1  THEN  GOSUB  10000 

6180  GET  fií : IF  RÍO "R" THEN  6180 

6190  RETURN 

7000  REN  ****  SALIDA.  ***« 

7010  PR I NT " CCLR ] C  HON ] C  WHT ] C RVSON ] [ 8SPC ] 
CSHIFTS] CSHIFTR] [SHIFTL] CSHIFTI] [SHIFTD] 
CSHIFTR] C8SPC]" 

7020  PRINT  " CPUR] C4CRSRD] CSPC] CSHIFTF] 

CSHIFTI ] CSHIFTN] " i  ■ INPUT  SNÍ 

7030  IF  SNÍ®"SI "THEN  END 

7040  PRINT  "[ CRSRD ][ SPC ][ SHI FTS ]RL ID 

RCSPC] INPRESORR" ; : INPUTSNÍ 

7050  IF  SNÍ»" SI" THEN  SW®1:Q0T0  7070 

7060  SW=0 

7070  RETURN 

9000  REN  ****  PANTALLA  **** 

9010  PRINT  "CCLR] CSPC] LOS CSPC] ANGULO 
SC2SPC] ' CSHIFTR] ' , ' CSHIFTB] ' CSPC] VCSPC] 

' CSHIFTC] ' [SPC] SON : " 

9020  PRINT  "CSHIFTR]="R1 :PRINT  "CSHIFTB] 
■"Bl: PRINT  "CSHIFTC]="C1 
9030  PRINT  "LOS C SPC] LADOS [SPC ] 'fi  ' ,  'B 
' , CSPCJVC2SPC] 'C' CSPC] SON ¡ " 

9040  PRINT  "fi="fi : PRINT"B®"B • PRINT"C® 

"C 

9050  PRINT  "C2CRSRDK RVSON] CWHT] CSPC] 

PULSA [ SPC ] LR  C  SPC ]' R '[ SPC ][ PUR ] " 

9060  RETURN 

10000  REN  ****  IMPRESORA  ***« 

10010  CLÜSE4 ¡ ÜPEN4, 4, 7 : PRINT#4 
10020  PR I NT#4 , " [RVSON] C19SPC] [SHIFTT] 

CSPC] CSHIFTR] CSPC] CSHIFTI] CSPC] CSHIFTR] 
CSPC] CSHIFTN] CSPC] [SHIFTG] CSPC] CSHIFTU] 
CSPC] [SHIFTL] CSPC] [SHIFTO] CSPC] CSHIFTS] 
CSPC] . C28SPC] " 

10030  PR I NT #4 ■ PR I  NT #4 

10040  PRINT#4, " [ SH I FTL ] OS [ SPC ] ANGULO 

SC SPC] VALEN CSPC] EN CSPC] GRADOS : " 

10042  PRINT#4 : PRINTÍ4 

10050  PRINT44, "CSHIFTR]“"fil :PRINT#4, 

" CSHIFTB]® "Bl ;PRINT#4, " CSHIFTC]®"C1  ¡ 
PRINT44, " [SHIFTR]+[SHIFTB]+CSHIFTC]® 
"R1+B1+C1 

10060  PR I NT#4 : PR I NT#4 , " CSHIFTV] CSPC] 

EN  C  SPC ] RfiD I fiNES [ SPC ] VALEN : " 

10065  PR  I  NT #4  ■'  PR  I  NT#4 

10070  PR I NT #4 , "CSHIFTA]-"fifi:PRINT#4i 

" CSHIFTB]® "BE : PRINT#4, " [SHIFTC]="CC ■ 

PRINT#4, " CSH IFTfl]+[ SHI FTB]+C SHIFTC]® 

"fifi+BB+CC 

10080  PRINT#4,  "í=ta=íBc»==!=ss:aMi 


10090  PR I NT #4 , " [ SH IFTL ] OS C SPC ] LADOS C SPC ] 
VALEN : " 

10100  PRINT#4,  " A=  " R "  [ SPC ] UN I DRDES,.  " 

10110  PRINTÍ4, " B= " B " C SPC ]UNIDADES. " 

10120  PR I NT#4 , " C® " C " [ SPC ] UN I DRDES . " 

10130  PRINT#4 

10140  PRINT#4, "C70COMMC] " 

10150  PRINT#4;PRINT#4, " CSHIFTL]flSCSPC] 
FUNC I ONES  [  SPC  ]  TR I GONOMETR I CRS  C  SPC  ]  DE 
[ SPC ] ESOS [ SPC ] ANGULOS  C  SPC ] SON : " 
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10160  PR I  NT #4  ■'  PR I NT #4 .  "  CSHIFTS] CSHIFTE] 
CSHIFTN] CSHIFTO] CSPC] DECSPC] ' CSHIFTR] 
^"SINÍFlFO  ¡PRINT#4.  " CSHIFTC] CSHIFTO] 
CSHIFTS] CSHIFTE] CSHIFTN] CSHIFTO] CSPC] 
BECSPC] ' CSHIFTR] '="COS(RR> 

10170  IF  COS<flfl>=<0  THEN  PRINT#4. "CSHIFTT3 
CSHIFTR] CSHIFTN] CSHIFTO] CSHIFTE] CSHIFTN] 
CSHIFTT] CSHIFTE] CSPCJDECSPC] ' CSHIFTR] 
/=CSPC]8CSPC] " -GOTO  10172 

10171  PRINT#4. " CSHIFTT] CSHIFTR] CSHIFTN] 
CSHIFTO] CSHIFTE] CSHIFTN] CSHIFTT] CSHIFTE] 
CSPC] CSHIFTD] CSHIFTE] CSPC] ' CSHIFTR] ' 

■" TANCAR) 

10172  PR I NT#4 : PR I NT#4 . " CSHIFTC] CSHIFTO] 
CSHIFTS] CSHIFTE] CSHIFTC] CSHIFTR] CSHIFTN] 
CSHIFTT] CSHIFTE] CSPCIDECSPC]" CSHIFTR]  ' 

' ■ " 1 /S I N  <  flfl  > 

10180  PRINT#4. " CSHIFTS ] CSHIFTE] CSHIFTC] 
CSHIFTR] CSHIFTN] CSHIFTT] CSHIFTE] CSPC] 
DECSPC] 'CSHIFTR] '=" 17C0SCRR) : PRINT#4 
. " CSHIFTC] CSHIFTO] CSHIFTT] CSHIFTR] CSHIFTN] 
CSHIFTO] CSHIFTE] CSHIFTN] CSHIFTT] CSHIFTE] 

C  SPC ] DE  C  SPC ] ' CSHIFTR] '=" 1 XTRN C Rfi ) 

10200  PRINT#4 : PRINT#4. " CSHIFTS] CSHIFTE] 
CSHIFTN] CSHIFTO] CSPC] DE CSPC]' CSHIFTE] 
'“"SI1KBB) : PRINT#4. " CSHIFTC] CSHIFTO] 
CSHIFTS] CSHIFTE] CSHIFTN] CSHIFTO] CSPC] 

DE  C  SPC ] ' t  SH I FTB ] ' = "COS  <  BB  > 

10210  IF  CQSCBBX-0  THEN  PRINT#4.  " CSHIFTT] 
CSHIFTR] CSHIFTN] CSHIFTO] CSHIFTE] CSHIFTN] 
CSHIFTT] CSHIFTE] CSPC]DECSPC] ' CSHIFTB] 
'■CSPC]8CSPC]" 'GOTO  10212 

10211  PRINT#4. " CSHIFTT] CSHIFTR ] CSHIFTN] 
CSHIFTO] CSHIFTE] CSHIFTN] CSHIFTT] CSHIFTE] 
CSPC]DECSPC] '  CSHIFTB] '="TRN<BB) 

10212  PR I NT #4 : PR I NT#4 , " CSHIFTC] CSHIFTO] 
CSHIFTS] CSHIFTE] CSHIFTC] CSHIFTR] CSHIFTN] 
CSHIFTT] CSHIFTE] CSPC] CSHIFTD] CSHIFTE] 

CSPC] ' CSHIFTB] '="1/SIN<BB> 

10220  PRINT44. " CSHIFTS] CSHIFTE] CSHIFTC] 
CSHIFTR] CSHIFTN] CSHIFTT] CSHIFTE] CSPC] 

DE  C  SPC ] ' C  SH IFTB ] ' «" 1 2C0SÍBB > : PR INT#4 
. "CSHIFTC] CSHIFTO] CSHIFTT] CSHIFTR] CSHIFTN] 
CSHIFTO] CSHIFTE] CSHIFTN] CSHIFTT] CSHIFTE] 

C  SPC ] DE  C  SPC ] ' CSHIFTB] '  =  " 1XTANCBB) 

10300  PRINT#4 • PRINT#4j " CSHIFTS] CSHIFTE] 
CSHIFTN] CSHIFTO] CSPC] DE CSPC] ' CSHIFTC] 
'■"SINCCO  •’ F'RINT#4.  "CSHIFTCHSHIFTO] 
CSHIFTS] CSHIFTE] CSHIFTN] CSHIFTO] CSPC] 

DE CSPC] ' CSHIFTC] '="COSCCC> 

10310  IF  COS(CCX=0  THEN  PRINT#4,  " CSHIFTT] 
CSHIFTR] CSHIFTN] CSHIFTO] CSHIFTE] CSHIFTN] 
CSHIFTT] CSHIFTE] CSPC]DECSPC]' CSHIFTC] 

'  =  CSPC]IICSPC]"  :OOTO  10312 

10311  PRINT44/ "CSHIFTT] CSHIFTR] CSHIFTN] 
CSHIFTO] CSHIFTE] CSHIFTN] CSHIFTT] CSHIFTE] 
CSPC] 'CSHIFTC] '■"TRN(CC) 

10312  PRINT#4 : PRINT#4j " CSHIFTC] CSHIFTO] 
CSHIFTS] CSHIFTE] CSHIFTC] CSHIFTR] CSHIFTN] 
CSHIFTT] CSHIFTE] CSPC]DECSPC]' CSHIFTC] 

'=" 17SINCCC) 

10320  IF  COS < CC ) O0THEN  PRINT#4, "CSHIFTS] 
CSHIFTE] CSHIFTC] CSHIFTR] CSHIFTN] CSHIFTT] 
CSHIFTE] CSPC]DECSPC]' CSHIFTC] '=CSPC] 
8CSPC]" :PRINT#4, "CSHIFTC] CSHIFTO] CSHIFTT] 
CSHIFTR] CSHIFTN] CSHIFTO] CSHIFTE] CSHIFTN] 
CSHIFTT] CSHIFTE] CSPC]DECSPC]' CSHIFTC] 
'■CSPG]@CSPC] " : GOTO  10330 

10321  PRINT#4j " CSHIFTS ] CSHIFTE] CSHIFTC] 
CSHIFTR] CSHIFTN] CSHIFTT] CSHIFTE] CSPC] 

DE CSPC] ' CSHIFTC] l/COS<CC) : PRINT44 

> "CSHIFTC] CSHIFTO] CSHIFTT] CSHIFTR] CSHIFTN] 
CSHIFTO] CSHIFTE] CSHIFTN] CSHIFTT] CSHIFTE] 
CSPC] DE CSPC] 'CSHIFTC] 12TRN<CC> 

10330  REM  * 

11140  PRINT#4,  "  étt+tfé.************** 
**■****#*****$*********************** 
*#*4*********“ 

11150  RETURN 


Hundir  la  fleta 


Hundir  la  flota  consiste  en  destruir  un  barco  mediante  los 
torpedos  lanzados  por  un  submarino;  el  barco  navega  desde  el 
mar  hasta  la  entrada  del  puerto  o  viceversa;  su  trayectoria  no 
es  continua,  es  decir,  el  barco  puede  salir  desde  el  puerto, 
llegar  a  la  parte  izquierda  de  la  pantalla  y  volver  a  salir  otra 
vez  del  puerto,  o  darse  la  vuelta,  etc.  (Su  misión  es  despistar  al 
jugador  para  que  no  sepa  por  dónde  sale  el  barco). 

Al  mismo  tiempo  el  barco  irá  disparando  cargas  de 
profundidad.  El  juego  a  “primera  vista”  parece  muy  simple, 
pero  este  se  va  acomodando  a  la  habilidad  del  jugador. 

Pueden  existir  casos  en  que  al  disparar,  el  barco  detecte  la 
posicióndel  submarino  y  dé  la  vuelta,  no  es  extrañéis,  está 
diseñado  así.  El  juego  está  animado  con  efectos  sonoros  y 
visuales. 


1  REM  HUNDIR  Lfl  FLOTR 

2  3=54272 • FÜRL=1TÜ24 : POKES+L ,  0 : NEXT 

3  POKES+24 i 4 : POKES+5 .15: POKES+6 , 200 

4  PRINT" CBLU] CCLR] " 

5  P0KE5328 1.5: POKE53280 . 0 

6  3=54272 : F0RL= 1 T024  =  POKES+L , 0 : NEXT 

8  POKES+24 , 4 : POKES+5. 1 5 : POKES+6. 200 

9  F0RYT=23T018TEP-1 : PRINTTRB(VT) " CRED] 
HUND I R  C  SPC ] Lfl  C  SPC ]FLOTR " : POKES+4 . 33 : 
POKES+1 . YT : NEXT 

10  PRINT" C24CRSRU]" 

11  FOR  E 1 = 1 T023 :PRINTTRB<E1)"CBLU]HU 
NDIRCSPC]LflCSPC]FLOTR" : POKES+4. 33  'P 
OKES+1 . El : NEXT 

13  PR I NT " C  2CRSRU ] C  3CRSRR ] C 1 0CRSRU ] C  RED ] 
P0RC2CRSRU] " : FORT-10TO1STEP-. 4 : POKES 
+24. T : PÜKES+4. 129 

14  POKES+1. 5: NEXT:  PRINT" C32CRSRR] CRED] 
L.M.G." 

15  PR I NT " C  CRSRB ] C  32CRSRR ] C  RED ] SOLRNR 

16  FORT=10TO1STEP-. 4: POKES+24. T:  POK 
ES+4.  129 : POKES+1 . 5 : NEXT 

18  IFQE-1THEN  POKES+24. 8 : G0T028 

1 9  POKES+24 . 8 : POKES+4 . 33 : FORTY- 1 T036 
: RERDR : RERDB 

20  RERDC : F0RT-1T0C23  =  POKES+1 . fl ¡ NEXT ¡ 
NEXT : G0T029 


21  DflTfi  28,214,90  ,19,63,90,28,214,9 
0,19,63,90  ,28,214,90  ,19,63,90 

22  DATA28,214,90  , 25, 177, 55, 22, 227, 5 
5,21, 154,55,22,227,90 

23  DATA15, 70, 90  , 22, 227, 100, 15, 70, 10 
0,  22,227,75, 15,70, 100,22,227, 100,21 
, 154,75 

24  DRTA19, 63, 75, 17,37, 100,25,177, 100 
, 17,37, 100 

25  DATA25, 177, 100, 17,37, 100,25, 177, 1 
00, 17,37, 100,22,227,75,21, 154,75 

26  DRTR19, 63,  75, 17,37,75, 16,47, 100, 1 
7,37, 100, 19,63, 100,20, 100, 150, 19,63, 

100 

27  DflTfi  17,337,150 

28  FORR-1TO20:  FORT=1TO200STEP10  :POK 
ES+4 ,17:  P0KE8+ 1 ,  T  :  NEXT  ¡  NEXT  •'  POKES+4 , 

0 

29  F'RINT"  CCLR1 "  •'  GOTG3000 

30  PRINT" CCLR3C 7CRSRD 3 " 

34  FORA- 1 TO 1 5 : PR I  NT " C  BLU  ][ RVSON ] C  40SPC ] 
" J  : NEXT 

35  FORA=920TO 1 000 : PÜKE 1 024+fl , 224 : POK 
E55296+R, 9 : NEXT 

36  F0Rfl*354T0359 ¡ POKE1024+A, 224 : P0KE 
55296+fi, 0  : NEXT 

37  F0RR*314T0319 : POKE1024+A, 1 1 4 : POKE 
55296+fl, 0: NEXT 

50  V=53248 
60  POKEV+21 , 38 

70  POKEV+40, 10 : POKEV+4 1 , 0 : POKEV+42, 1 
0 

80  POKE204 1,193: POKE2042 ,194: POKE204 
3,195: POKE2044, 196 : POKE2045, 197 
90  POKEV+2, 63 : POKEV+6, 67 
92  POKE  V+29 ,  54  :  POKE  V+4 , 0  •'  POKE V+23 , 8 
100  PÜKEV+3, 198 : POKEV+5, 98  :P0KEV+7, 

205 

109  IFQE-1  THEN218 

1 1 0  FORX-0TÜ62 : REflDfl : POKE 1 2352+X , ft : N 
EXT 

120  FORX-0TO62 : REflDB : P0KE12416+X, B : N 
EXT 

1 25  FORX-0TO62 : REflDC ¡ POKE12480+X, C : N 
EXT 

1 26  FORX-0TO62 :  RE  ADR  :  POKE  1 2544+X ,  R  :  N 
EXT 

127  FORX-0TO62 : READD : POKE 1 2608+X , D  ¡  N 
EXT 

1 28  FORX-0TO62 ;  REflDF  ¡  POKE  1 2800+X ,  F  :  N 
EXT 

1 29  FORX-0TO62 : REflDP : POKE 1 2864+X , P : N 
EXT 

1 30  FORX*0TO62 : READZ : POKE 1 2928+X , Z : N 
EXT 

1 35  FORX=0TO62  ¡  REflDL  ¡  POKE  1 2992+X ,  L  :  N 
EXT 

140  POKES+4, 0 

218  01=4  :  PP=4  :  TI$="000000" 

219  POKEV+44, 0 

220  POKES+4, 0:POKEV+7, 205  :P0KES+24, 

4 : POKES+5, 15 : POKES+6,  200 

221  I FP 1 >2THENQ 1=6 

222  I FP 1 >4THEN0 1 =8 : PP=6 

223  IFP1>6  THENOl=10:pp=7 

224  IFP1>8  THENO 1 » 1 2 : PP=3 

225  IFP1>10  THENO1=10 : PP=7 

226  IF  Pl>12  THEN01=12 : PP=8 
228  IFB=0ORB=254  THENGOTO4000 

230  I FflU=30RflU* 1 THENB=B-0 1 : G0T0238 
235  I FfiU=40RflU=2THENB=B+0 1 
238  IFBC0GRB>254  THENGOTO4000 

258  I FPEEK ( 1 97) = 1 0THENX*X-PP 

259  IFPEEK(197)=13THENX=X+PP 

260  I FX>255THENX=255 

270  I FXC30THENX*30 

271  POKEV+ 1 0 , B : G*G+5 : I FG> 1 60THENG=0 

272  POKEV+1 1 , 92+G 

273  I FPEEK < V+30 ) ANDO» 1 05ANDB>X-50AND 


BCX+50  THEN  1000 
280  POKEV+2, X : POKEV+6, X : POKEV+4, B 
290  I FPEEK  < 1 97 ) ■54THENPQKEV+2 1 , 46 : P2 
■P2+1 : G0T0294 

293  GOTO220 

294  FORE* 1 TO 1 54STEP4 

295  POKES+4 ,129: POKES+ 1 , 1 5+E : POKES , 7 
0 

300  C=205-E 

304  IFE>97  THENPOKEV+42, 6 

305  B-B+01 

306  I FB>254THEN4000 
310  POKEV+7 , C : POKEV+4 ,  B 

330  I FPEEK  <  V+30 ) ANDO 1 03RNDCC 1 1 7RNDG 
O0THEN500 

331  P0KEV+ 1 0 , B : G=G+5 

332  IFG>160  THENG=0 

333  POKEV+1 1 , 92+G 

334  I FPEEK  < V+30 ) ANDO» 1 05ANDB>X-50AND 
BCX+50  THEN  1000 

340  I FPEEK  <1 97 )  =  1 0THENX=X-PP 
350  I FPEEK ( 1 97 ) ■ 1 3THENX*X+PP 
360  I FX>255THENX*255 
370  IFXC30  THENX*30 
380  POKEV+2, X 
390  NEXT 

400  I FPEEK ( 197) «54THEN294 : P2-P2+1 
405  POKEV+2 1,38  : POKEV+42, 8 
410  GOTO220 

500  POKEV+43 , 0 : POKEV+8 , B : POKE V+9 , 98 : 
POKEV+21, 18: P=0 

508  PÜKES+24 ,  1 5 : FORW= 1 5TO0STEP- . 2 : PO 
KES+24,W: POKES+4, 129: POKES+5, 15: POKE 
S+6,200 

509  POKES+ 1,5:  POKES ,  25  •’  P-P+ 1  :  POKE  V+9 
,  98+P : NEXT 

570  FORT* 1 75T021 5STEP. 1 : POKE V+9, T : NE 

XT :FORZ=1TO300:NEXT 

580  POKEV+21 , 38 : B=0 : X=95 : POKEV+2, X ¡ P 

1 =P 1 + 1 : POKEV+42 , 8 : GOTO4000 

830  DflTfl0, 0,0, 0,8, 0,0, 8,0, 0,8, 0,0, 24 

,0,0,24,0,0,24,0,0,56,0,0,56,0,0,56, 

0 

840  DATA63, 255, 248, 127,255,252,255,2 
55,254, 127, 255, 252, 63,255,248 
850  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0, 0,0 

860  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0, 0,0,0, 16,0,0, 16,0,0, 16,0 
870  DATA0, 24, 0, 0, 24, 0, 0, 255, 0, 0, 255, 
0,243,255, 207,63, 255,254 
880  DATA3 1 , 255 , 252 , 1 5 , 255 , 248 , 7 , 255 , 
240,3,255,224,0,0,0 
890  DATA0, 0,0, 0,8, 0,0, 8, 0,0, 28, 0,0, 2 
8, 0,0, 0,0, 0,0  ,0,0, 0,0, 0,0, 0,0 
900  DATA0, 0, 0  ,0,0,0  ,0,0, 0,0, 0,0,0, 
0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,  0,0, 
0,0 

910  DATA0, 0,0, 0,0, 0,0,0 

920  DATA  0.0,0,34,3,32,0,7,0,0,0,0,0 

,0,0,56,0, 14,60, 128,94,24, 195, 124 

930  DATA4, 127, 127, 0, 63, 254, 7, 31 , 254, 

32, 15,249,6,71,250, 18, 7, 246, 0, 1 1 1 , 23 

3 

940  DATA0, 31 , 222,24,63, 190,  0, 127, 128 

,0,126,128,0,254,0,0,0,0 

950  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,  0,0, 

0,0, 0,0 

960  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,56,0, 14,56,0, 14,56,0, 14 

965  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0,0,0,0,0,0,0,0,0,4,209, 128,6, 153, 
128 

966  DATA0, 0,0, 1,205, 128,99,255, 128,4 
7,255,216, 15,55,0,0,0,0 

967  DATA3, 51, 128,2, 1,0, 0,0, 0,0, 0,0,0 
,0,0 

968  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
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0,1 7,  144,0, 25,25, 128, 0, 1 , 128, 0, 0, 0, 8 
,0,0,24 

969  DRTA230, 192, 1 , 238, 192, 0, 17, 224, 1 
95, 121,0,79,53,0, 15,57,24 

970  DATA  0,0,03,53,0,4,2,0,0,0,0,0,0 
,0,0 

975  DRTR0, 0, 0,0, 0,0, 0,0, 0,35, 16,0,50 
,24,96,0,0,96,0,0,0,0,0,0,16,22 7 
980  DRTR  0,49,251,48,0,0,48,0,0,120, 

0,0, 0,0, 16,0, 140, 120 
990  DRTR  64,152,48,192,28,49,192,0,0 
,6,0,0,0,1,152,224,1,0,64 
992  DRTR70, 8, 0,98, 12, 48, 0,0, 48, 0,0,0 
,0,0,0,0,0,0,0,0,0,16,  109 
994  DRTR192, 48, 241, 192,0,0,0,0,0,0,0 
,0,6, 0,0, 6, 0,0, 15,0 
996  DRTR0, 0, 0,0, 0,0, 0,0,0, 16,0,0,  120 
,0,6,48,64,30,48, 193,31, 1, 192 
1 000  POKEV+2 1,6: PQKES+5 ,15: P0KES+6 , 8 
0 

1004  FORG-1TÜ10  :fl»R+20:H-H+l : IFR>10 
0  THEN  fi=0 

1005  IFH=15  THEN  H-0 

1 006  POKEV+40 , H : POKES+4 , 33  i FORW» 1 02- 
RT01STEP-6 

1010  PQKES+1 , W ¡ POKES, 70 
1 030  NEXT : NEXT : H=0 : POKE V+23 , 2 
1040  PQKE2041 , 200 : F0RT-15T012STEP-. 8 
: POKES+24 , T : POKES+4 , 1 29 : POKES+5 , 1 5 
1 045  POKES+6 , 200 : P0KES+ 1 , 3 : POKES , 25 : 

NEXT : POKE204 1,201 : FORT» 1 2T08STEP- . 8 
1 050  POKES+24 , T : POKES+4 , 1 29 : POKES+5 , 

1 5 : POKES+6 , 200 : PGKES+ 1 , 3 : POKES , 25 : NE 
XT 

1 055  POKE204 1,202: F0RT-8T05STEP- . 8 : P 
OKES+24, T : POKES+4, 129 ¡ POKES+5, 15 
1 060  POKES+6 , 200 : POKES+ 1 , 3 : POKES , 25 : 

NEXT : POKE2041 , 203 : FORT»5TO0STEP-.  09 
1 065  POKES+24 , T : POKES+4 ,129: PQKES+5 , 

1 5 : POKES+6 , 200 : POKES+ 1,3: POKES , 25 ¡ NE 
XT 

1 070  PÜKEV+2 1,4:  POKE  V+23 , 8  ■'  POKE204 1 , 

193 

1 080  POKEV+40 ,10: POKEV+2 1 , 46 : X» 1 00 : P 
OKEV+2, X  : POKEV+4, 0 : B-0 : POKEV+1 1 , 92 
1090  P3»P3+1 : G»0 ; POKEV+42, 8 : IFP3>1TH 
EN  5000 
2000  GOTO220 

3000  PRINT" CCR3RR] CBLU3  C 1 1CRSRR] C 15CQMMP3 

3001  PRINT" C 1 1CRSRR] CSHIFTN] C14SPC3  CSHIFTN3 
[COMMH 3 " 

3005  PR I NT " C1 1 CRSRR  3 [ SHI FTO  3 [ 1 3C0MMV ] 

[ SH I FTP  3 [  SPC ] C  COMMH 3 " 

3020  PRINT" C11CRSRR3C COMMH 3INSTRUCCI 
ONES  [  COMMN 3  [  SPC  3  [  COMMH 3 " 

3030  PR I NT " [ BLU  3 [ 1 1 CRSRR 3 [ SH I FTL  3 [ 1 3C0MMP I 
[SHIFT83CSHIFTN3" 

3031  PR I NT " í VEL  3 1 2CRSRD3  C 8CRSRR 3  PÜLS 
RRCSPC3  CRED3RCBLU3  CSPC3PRRRCSPC3 IZQU 
IERDR" 

3032  PRINT" C8CRSRR3PULSHRCSPC3 CRED3S 
[  BLK  3  [ SPC  3 PRRR [ SPC  3  DERECHA " 

3033  PRINT" C8CRSRR3PULSRRCSPC3 CRED3 1 
[  VEL3  [SPC3PARRÍSPC3DISPRRQ" 

3040  PRINT" C2CRSRR3 CCOMM23 CCRSRD3 C4CRSRR3 

. DCSPC3RCSPC3TCSPC30CSPC3S. . . 

. . [RED 3 PUNTOS" 

3045  PR I NT " [ 2CRSRR  3  C UHT 3  C  CRSRD 3  C  4CRSRR 3 
POR [ SPC  3  BARCO  í 2SPC 3  HUND I DO [ SPC  3  C  RED  3 
[ CRSRR  3  C4SPC3 250  C  SPC  3 " 

3050  PR I NT " C  2CRSRR 3 [ BLU  3  C  CRSRD  3  C  4CRSRR 3 
POR [ SPC  3  TORPEDO [ SPC  3  D I SPRRRDO í RED  3 [ 3SPC 3 
-13" 

3070  PR I NT " C  CRSRR  3 [ BLK  3 [ CRSRD  3 [ SPC  3 [ 4CRSRR 3 
DISPONESCSPC3DECSPC3  CRED32CBLK3  CSPC3 
SUBMARINOS" 

3080  PR I NT " [ 3CRSRD  3  C RVSON  3  C  RED  3  C  2CRSRR  3 
PRES I ONA C2SPC3 IJNH  C  2SPC 3  TECLA  C 2SPC 3  PR 
RR [ 2SPC  3  EMPEZAR " 


3090  F0RP*1T025  STEP. 9 : POKES+4, 33 : PO 
KES+1 , P : NEXT 

3095  IFPEEKC 1973=64  THEN3090 

3100  : POKES+4, 0:GOTO30 

4000  RU»INT (RND( 1 )#4)+l ¡ IFRU-30RRU-1 

THENB=254 

4010  I FRU»2ORRU»4THENB=0 
4020  POKEV+42, 8: GOTO  230 
5000  PRINT" CCLR3" : P0KE53281 , 6 : F0KE53 
280, 7: POKEV+2 1,0 

5005  PR I NT " [ R VSOFF 3  C 5CRSRD 3  C VEL 3  C 3CRSRR 3 
TU  C  SPC  3  T I EMPO  C  SPC  3  ES [ SPC  3  DE  C  2SPC  3 " J T 

I*" 

5006  PR I NT " C  CRSRR  3  C  CRSRU  3  C  27CRSRR  3  SE 
GUNDQS" 

5008  TT»P1#250+P2*-13 

5009  PR I NT " C  CRSRR  3  C  3CRSRD 3  C  9CRSRR 3  PU 
NTURCIONCSPC3TOTRL" )  TT 

50 1 0  PR I NT " C  2CRSRD  3 [ 1 0CRSRR  3  F I N [ 3SPC  3 
DE  C  3SPC  3  PRRT I DR " 

6000  PR I NT  »  C  2CRSRD 3  C  RVSON  3 [1 0CRSRR  3 [ SPC  3 
ESPERA [ SPC  3  UN [ SPC  3  MOMENTO  C  SPC  3  S I " 

6004  PRINT" C2CRSRD3 CRVSON3 C9CRSRR3 CSPC3 
QU I ERES  C  SPC  3  JUGAR  t  SPC  3  DE  C  SPC  3  NUEVO " 

: FORL=0TO24 : POKES+L , 0 : NEXT 

6005  FORL* 1 T073 : A0-A0+6 : POKES+24 , 8 : P 
OKES+5, 15: POKES+6, 200 :IF  AO>150  THEN 
AO=0 

6007  FORLP» 1 00+AOTO 1 0STEP-20 : POKES+4 

, 33 : POKES+ 1 , LP : NEXT : NEXT 

6010  P1 »0 : P2»0 : P3»0 : QE» 1 : PL» 1 00 ; GOTO 

4 


Help 


Luis  Jorge  López 
Río  Genil,  15-3»  B 
Móstoles  (MADRID) 


VIC-20 


Este  programa  le  he  puesto  yo  como  ayuda  escolar,  pero  sirve 
como  diario,  agenda,  guía  telefónica,  etc. 

El  programa  no  es  de  un  estilo  muy  bueno,  pero  son  mis 
primeros  pasos  en  la  programación. 

Es  para  el  VIC-20  con  o  sin  ampliaciones. 

Espero  que  les  interese,  puesto  que  puede  serle  útil  a  alguien. 
El  programa  Consiste  en  la  apertura  de  una  serie  de  ficheros  en 
el  datassette,  que  luego  pueden  ser  leídos  otra  vez  por  el 
ordenador. 
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10  POKE  36879, 110 
20  PRINT" ECLR3 " 

23  PRINT" EWHT3" 

30  Xí="E2SPC3E C0MM+ ] E SPC ] E  CÜMM+ ] C  2SPC 3 
E  3C0MM+  3  E  2SPC  3  E  COMM+  3  E  4SPC  3  E  3C0MM+  3  E  2SPC  3 

40  FOR  >1  TO  22 • P0KE36874, 245 ¡ FORN“ 

1 5TO0STEP- 1 : P0KE36B7S, N : NEXTN 

50  POKE36874/0 

60  PRINTMIDíEXí, I > 1 > ; • NEXTI 

70  Jí»  "  E  2SPC 3 E  C0MM+ 1 E  SPC 3  C C0MM+ 3 £  2SPC 3 

[ COMM+ 3  E4SPC3  E COMM+ 3 E  4SPC ] E  CGMM+ ] C  SPC 3 

ECOMM+3E2SPC3" 

80  FOR  I-1TO  22 ■ P0KE36875, 155 i FORNal 

5TO0STEP- 1 : P0KE36878 , N : NEXTN 

90  P0KE36875, 0 

100  PRINTMIDÍCJÍ, I, 1)J ¡NEXTI 

110  Bí- " E 2SPC  3 C  3C0MM+ 3  E  2SPC  3 E 2C0MM+ 3 

E 3SPC ] E  CQMM+ 3  E  4SPC  3  E  3C0MM+ 3 C  2SPC ] " 

120  FOR I - 1 T022 : P0KE36876 ,176: PORN- 1 5 

TO0STEP-1 :P0KE36878,N: NEXTN 

130  P0KE368 76,0 

140  PRINTMIDÍCBÍ,  1 , 1  >  i  '■  NEXTI 

150  Oí* " E  2SPC  3  E  COMM+ 3  E  SPC  3  E COMM+ 3E2SPC3 

E  COMM+ 3E4SPC3E CQMM+ 3  E 4SPC 3  E COMM+ 3  E4SPC3 

160  FOR  I » 1 T022  ’•  P0KE36877 ,  255  : FORN" 1 

5TO0STEP-1 : P0KE36878, N : NEXTN 

170  P0KE36877, 0 

180  PRINTMIDíCOÍ, I, 1)J  .NEXTI 

190  Hi=" E 2SPC 3  C  COMM+  3 1 SPC  3  í COMM+ 3  C  2SPC 3 

C  3C0MM+  3  C2SPC3  C 3C0MM+  3  C  2SPC  3  C  COMM+ 3C4SPC3 

200  FOR I ■ 1 T022 : P0KE36876 , 198 : F0RN«15 

TÜ0STEP-1 : P0KE36878, N : NEXTN 

210  P0KE36876, 0 

220  PRINTMIBÍCHÍ, I, 1)J  : NEXTI 

225  PRINT" C3CRSRB3 " 

230  Lí- " C  SPC  K  C ) C  SPC  3LU 1 8  C  SPC 3  JORGE  C  SPC  3 
L0PE2C2SPC3" 

240  FOR  I»1T022 : FORJ"1TO150 ! NEXTJ 
250  PRINTMIDÍÍLÍ, I, 1), : NEXTI 
260  FOR  L-1TO  200 : NEXTL 
270  PRINT "CCLR 3“ 

280  GOSUB  50000 
320  PRINT"C3CRSRD3" 

330  PR I  NT " ESTE C  SPC 3 PROGRAMA C SPC 3  TE C SPC 3 
SER V I RA [ SPC  3  COMO  C  SPC  3  AYUDA  <  HELP  >  EN  C  SPC  3 
LOSE SPC 3 ESTUDIOS." 

340  PRINT" CON L SPC 3 EL C SPC 3 PODRAS í SPC 3 
REPASAR  C  SPC  3  TUS E  SPC  3  APUNTESE  SPC  3 O  E  SPC  3 
RESUMIR" 

350  PRINT" LAS E SPC 3 PARTES E SPC 3 MAS E SPC 3 
I MPORT ANTES  E  SPC  3  DE  E  SPC  3  UNA  E  SPC  3  LECC I 
ON." 

360  FOR  N“1  TO  8000: NEXTN 
370  PRINT" ECLR3" 

380  GOSUB  50000 
420  PRINT" E3CRSRD3» 

430  PR I NT "PARRE SPC 3 ELLOE SPC 3 DEBERAS! SPC 3 
I NTRODUC I R  E  SPC 3  TUS  E  SPC  3  APUNTESE  SPC  3 O 
E  SPC  3  RESUMENES  E  SPC  3  DEL  E  SPC  3  S I GU I ENTE 
ESPC3MODO. " 

440  PR I NT " ELEG I  RAS  E  SPC  3 ENTRE  E  SPC  3  REP 
AS0ESPC30ESPC3 INTRGDUCIRESPC3 . " 

450  FOR  N» 1 TO8000 ¡ NEXTN 
460  PRINT" ECLR3 " 

470  GOSUB  50000 
480  PRINT" E3CR3RD3 " 

490  PRINT" PARA E SPC 3 REPASAR E SPC 3 PULSA 
E  2SPC 3  R  E  SPC  3  Y  E  SPC  3  ESPERA " 

500  PR I NT "PARRE SPC 3 INTRODUCIRE SPC 3PU 
LSAESPC3 1 E  SPC  3  Y  E  SPC  3  HAZ  E  SPC  3LO  E  SPC  3  Q 
UEESPC3TEESPC3DIGAESPC3ELESPC30RDENA 
DOR" 

505  FOR  N=1  TO  8000: NEXTN 

510  PRINT" ECLR3" 

511  GOSUB  50000 

512  PRINT" E3CRSRD3 " 


5 1 3  PR I NT " S I E  SPC  3  DEC  I DES  E  SPC  3  REPASAR 
E  SPC  3  DEBERAS ,  DESPUES  E  SPC  3  DE  E  SPC  3  HABE 
R  E  SPC  3  PULSADO  E  SPC  3  LA  E  SPC  3  R " 

514  PRINT" ESPC3 INTRODUCIRESPC3ELESPC3 
NGMBREESPC3YESPC3ELESPC3NO.QUEESPC3D 

I STE  E  SPC  3  A  E  SPC  3  TUS  C  SPC  3APUNTESE  SPC  3  C 
U ANDO  E  SPC  3  LOS  E  SPC  3 1 NTRODUC I STE " 

515  PR I NT " DEBERAS E SPC 3  TENER E  SPC 3 PREP 
ARADA E SPC 3LAE SPC 3CINTA" 

520  FOR  J» 1TO8000: NEXTJ 
530  PRINT" ECLR3" 

532  GOSUB  50000 


534  PRINT" E3CRSRD3SI E SPC 3 DECIDESE SPC 3 
I NTRODUC I R  E  SPC  3 DEBERAS  E  SPC  3  METER  E  SPC  3 
EL  E  SPC  3  TEXTO  E  SPC  3  EN  E  SPC  3  PARRAFOS  E  SPC  3 
NO  E  SPC  3  MAYOR  E  SPC  3  DE  E  SPC  3  4  E  SPC  3  L I " 

536  PRINT"NEASESPC3ACTOE SPC 3 SEGU I DO E SPC 3 
PULSA  E  SPC  3  RETURN E  SPC  3  Y  E  SPC  3  CONT I NUA  E  SPC  3 
RSIESPC3SINESPC3EXCEDERTEESPC3ENESPC3 
L A  E  SPC  3  CANT I DAD " 

538  PR I NT " DEL  E  SPC  3  TEXTO  E  SPC  3  QUE  E  SPC  3 
INTRODUCES" 

790  PRINT"PULSAESPC3 IESPC30ESPC3R" 

800  GET  A$ ; IF  Aía" "THEN  800 
810  IF  Aí = " R " THENGOTO2000 
820  IF  Aí»" I "THEN  GOTO 10000 
1000  GOTO800 
2000  PRINT" ECLR3 " 

2005  GOSUB  50000 

2010  PR I NT " E  2CRSRD 3  NUMERO  E  SPC  3  DE  E  SPC  3 
F I CHERO  E  SPC  3  QUE  ESPC3DISTE" : INPUTA 
2020  PRINT " NOMBRE E SPC 3 QUE E SPC 3 AS I GNA 
STE" : INPUTZí 
2030  OPENA, 1,0, Zí 

2035  PRINT" E2CRSRR3ERVSON3FICHEROESPC3 
ABIERTOERVSOFF3 " 

2039  INPUT#A, Aí 

2040  PR I NTAÍ : GOSUB60500 

2041  INPUT4A, Sí 

2042  PRINTSí : GOSUB60500 

2043  INPUTiA, D$ 

2044  PRINTDí : GOTÜ60500 

2045  INPUT#A,FÍ 

2046  PRINTFí : GOSUB60500 

2047  INPUT4A, Gí 

2048  PR I NTGÍ : GOSUB60500 

2050  GOSUB  60000 

2051  INPUT#A,HÍ 

2052  PR I NTHÍ : GOSUB60500 

2053  INPUT#A, JJ 

2054  PRINTJí ; GOSUB60500 

2055  INPUT4A, Kí 

2056  PR I NTKÍ : GOSUB60500 

2057  INPUT4A, Lí 

2058  PR I NTLí ¡ GOSUB60500 

2059  INPUT4A, Qí 

2060  PRINTQí : GOSUB60500 

2061  INPUTtA, Wí 

2062  PR INTUÍ : GOSUB60500 

2063  INPUT4A, E$ 

2064  PRINTEÍ : GOSUB60500 

2066  GOSUB  60000 

2067  INPUT#A,RÍ 

2068  PRINTRí : GOSUB60500 

2069  INPUT4A, Tí 

2070  PRINTTí : GOSUB60500 

2071  INPUTíA, Yí 

2072  PR I NTYÍ : GOSUB60500 

2073  INPUT4A, Uí 

2074  PR INTUÍ : GQSUB60500 

2075  INPIJT4A,  lí 

2076  PR I NT I í : GOSUB60500 

2077  INPUT4A, Oí 

2078  PRINTOÍ : GOSUB60500 

2079  INPUT#A, Pí 

2080  PRINTPí : GO3UB60500 

2081  INPUT#A, Vi 

2082  PRINTVí : GOSUB60500 

2083  PRINT» PULSA E SPC 3 UNA E SPC 3 TECLA " 
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2100  GET  Z*:IF  Zi-""THEN  2100 
2110  PR I NT " C  CLR  3 " ¡ GOSUB  50000 
2120  GOTO  20500 
10000  PRINT"CCLR3" 

10010  GOSUB  50000 

10020  PRINT" [CRSRD 3 AHORA  C  SPC ] I NTRODU 
C I  RAS  [  SPC  3  LOS  r SPC  3  DATOS  [  SPC  JEN [  SPC  3  P 
ARRAFOS C  SPC  3  DE [ SPC  3  4  C SPC  3  L I NE AS  C  SPC  3 
MAX I MO  C  SPC  3  V  C  SPC  3  SOLO  C  SPC  3  20  C SPC  3  PAR 

10030  PR I NT " POR  C  SPC  3  F I CHERO , O i SPC  3  SE 
A  [  SPC  3  80  C  SPC  3  L I NEA3 . CUANDO [ SPC  3  VA  C  SPC  3 
NO [ SPC  3  QU I ERAS  C  SPC  3  METER  [ SPC  3  MAS  [ SPC  3 
DATOS  C  SPC  3  Y  C  SPC  3  EL [  SPC  3  ORDENADOR " 

1 0040  PR I NT " TE  i SPC  3  LOS  C  SPC  3  P I DA  C  SPC  3 
PON [ SPC  3  STOP [ SPC  3  Y  C  SPC  3  DA [ SPC  3  AL [ SPC  3 
RETURN [ SPC  3  AS I C  SPC  3  HASTA  C SPC  3  QUE  C  SPC  3 
NOCSPC3TECSPC3PIDA" 

10050  PR I  NT " HAZ  í SPC  3  LO  C  SPC  3 QUE  C  SPC  3  T 
E [ SPC  3 1 ND I QUE [ SPC  3  EL [ SPC  3  ORDENADOR , [  SPC  3 
PASO  [  SPC  3 AC SPC  3  PASO " 

10060  FOR  N-l  TO15000 ■ NEXT  N 
10070  PRINT" CCLR3  CCRSRD3 " 

10080  GOSUB  50000 

10090  PRINT" DEBERAS C SPC 3 AS I GNAR C SPC 3 
UN  C  SPC  3  NUMERO  C SPC  3  D I FERENTE  C  SPC  3  A  C  SPC  3 
CADA [ SPC  3  F I CHERO  t  SPC  3  PERO i SPC  3 SEGUID 
OSCSPC3EJ • 1 ,2,3,4" 

10100  PR I NT " V  C  SPC  3  TAMB I EN  C  SPC  3  DARLE  L SPC  3 
UN  C  SPC  3  NOMBRE [ SPC  3  POR [  SPC  3  EJEMPLO  C  SPC  3 
FISICACSPC3 1 CSPC30CSPC3C0M0CSPC3PREF 
I ERAS [ SPC  3  PERO  C  SPC  3  DEBERAS " 

1 0 1 1 0  PR I NT " APUNTAR [  SPC 3 TANTO C SPC 3 EL 
[  SPC  3  NOMBRE  í  SPC  3  COMO  C  SPC  3  EL  C  SPC  3  NUME 
RO  C  SPC  3  PARA  C SPC  3  CUANDO  C SPC  3  QU I ERAS  C  SPC  3 
REPASARLO" 

10115  PR I NT " S I E  SPC  3  EL  C  SPC  3 ORDENADOR  C SPC  3 
AL  C SPC  3  METER  C  SPC  3 ALGUNOS  t SPC  3  DATOS [ SPC  3 
TE  C  SPC  3  D I CE  C  SPC  3  EXTRA  C  SPC  3 1 GNORED  C  SPC  3 
VUELVE  t  SPC  3  A  C  SPC  3 METER  C  SPC  3  LOS " 

10116  PRINT"MISMOSCSPC3 DATOS, CSPC3PO 
R  C  SPC  3  ULT I MO [ SPC  3  MANTEN  C  SPC  3  EL  C  SPC  3  D 

A  TASSET  TE  C  SPC  3  CON  C  SPC  3  RECORD  C  SPC  3  4  C  SPC  3 
PL  A  Y  [ SPC  3  PULSADO " 

10120  FOR  N-l  TO20000 : NEXTN 
10130  PRINT" CCLR 3" ■GOSUB  50000 
10140  PRINT"! CRSRD 3 DA C SPC 3 NUMERO "  :  IN 
PUT  A 

10150  PRINT"DACSPC3NOMBRE" ¡ INPUT  Zi 
10160  OPEN  A, 1 , 1 , Zi 

10170  PR I NT " C  2CRSRR3  C RVSON  3ESCR I BA  C  SPC  3 
DATOS" 

10180  PRINT 

10190  INPUT  Aí 

10191  PRINT4A,  A$  '•  GOSUB60500 

10192  INPUT  Si 

10193  PR I NT# A , Si : GOSUB60500 

10194  INPUTDi 

10195  PR I NT#A , Di ' GOSUB60500 

10196  INPUTFt 

10197  PRINTiA,  Fi  '■  GOSUB60500 

10198  INPUTGi 

10199  PRINT#A, Gi : GOSUB60500 

10200  INPUTHi 

10201  PRINT#A, Hi ! GOSUB60500 

10202  INPUTJi 

1 0203  PR I NT#A , Ji : GOSUB60500 

10204  INPUTKi 

10205  PRINTUA, Ki : GOSUB60500 

10206  INPUTLi 

10207  PR I NTiA , Li ; GOSUB60500 

10208  INPUTQi 

10209  PRINT#A, Qi : GOSUB60500 

10210  INPUTWi 

10211  PRINT#A,LIÍ:  GOSUB60500 

10212  INPUTE1 

10213  PR I NT#A , Ei ' GOSUB60500 

10214  INPUTRl 

10215  PRINTKA, Ri ¡ GOSUB60500 


10216  INPUTTi 

10217  PRINTiA, Ti : GOSUB60500 

10218  INPUT Vi 

10219  PRINTiA, Vi : GOSUB60500 

10220  IHPUTUi 

1 022 1  PRINTiA,  Ui  ■’  GOSUB60500 

10222  INPUTIt 

10223  PRINTiA, Ii : GOSUB60500 

10224  INPUTOi 

1 0225  PRINTiA, OÍ ■ GOSUB60500 

10226  INPUTPi 

10227  PRINTiA, Pt ; GOSUB60500 

10228  INPUT Vi 

1 0229  PRINTiA, Vi : GOSUB60500 
20000  CLOSE  A 

20100  PRINT" PULSA L SPC 3 UNA C SPC 3 TECLA » 


20200  GETZi : IF  ZÍ-" "THEN20200 
20300  PRINT" CCLR 3" 

20400  GOSUB  50000 

20500  PRINT"! CRSRD 3 S I C SPC 3 QU I ERES C SPC 3 
REPAS AR  C  SPC  3  O  C  SPC  3 1 NTRODUC I R  C  SPC  3  PUL 
SACSPC3F1 CSPC3VCSPC3SI CSPC3NOCSPC3PU 
LSACSPC3F7" 

20600  GET  Ni ; IF  Ni-" "THEN20600 

20700  IF  Ni=" CF1 3 "  THEN  790 

20750  IF  Ni*" CF73 "  THEN  PRINT" CCLR3 CRVSON3 

ME  C  SPC  3  ESTOY  C SPC  3 DESTRUYENDO  C RVSOFF  3 

" ■ FOR  N-1TO  1000: NEXTN: SYS  64002 

50000  PRINTTABC4) " V I C-20 C 3SPC 3 HELP " 

50010  FOR  J-0TO21 
50020  PRINTCHRK 164) J 
50025  NEXTJ 
50030  RETURN 

60000  PR I NT " PULSA  C  SPC  3UNA  C  SPC  3  TECLA " 


60020 

60500 

60510 

60520 

60530 

60540 

60550 

60560 

60570 

60580 

60590 


60620 

60630 

60640 

60650 

60660 

60670 

60680 

60690 

60700 


GET  Zi 
RETURN 
IF  Ai-1 
IF  Si*1 
IF  Di-1 
IF  Ft* 
IF  Gi-1 
IF  Hi-1 
IF  Ji-1 
IF  Ki- 1 
IF  Lí=' 
IF  Qi-1 
IF  Wi-1 
IF  Ei-1 
IF  Ri-1 
IF  Ti-' 
IF  Vi-1 
IF  Ui-' 
IF  Ií=' 
IF  Oi-' 
IF  Pt-1 
IF  Vi*' 
RETURN 


IF  Zi-""THEN  É 


'STOP' 

'STOP' 

'STOP' 

'STOP' 

'STOP' 

'STOP'1 

'STOP" 

'STOP'1 

'STOP" 

'STOP" 

'STOP" 

'STOP" 

'STOP" 

STOP" 

'STOP" 

STOP" 

STOP" 

'STOP" 

'STOP" 

'STOP" 


THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 
THEN  20000 


Magia 

Protecciones  contra  escritura 

Las  etiquetas  de  protección  de  escritura  para  los  discos 
son  ideales  para  las  cintas  de  cassette. 

Después  de  haber  roto  la  protección  de  la  cinta,  tápala 
con  una  de  estas  etiquetas  cuando  quieras  grabar  en  ella. 
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Este  programita  se  graba  al  principio  de  cada  cinta  y  después 
se  pueden  grabar  los  demás  programas. 

Este  programa  que  he  hecho  en  el  C-64  también  puede 
cargarse  en  el  VIC-20,  sólo  teniendo  que  cambiar  los  dos 
POKES  de  color  de  la  línea  20  del  programa  (fondo  y  borde 
azul  claro).  Así  también  puede  ir  con  la  unidad  de  discos 
siendo  mucho  más  rápido. 

El  Menú  Cinta  te  da  las  siguientes  opciones: 

— Ver  los  programas  contenidos  en  la  cinta. 

— Ver  el  contador  de  cada  programa  (para  buscarlo  más 
rápidamente  en  el  Datacassette). 

— Buscar  el  programa  automáticamente,  solamente  tocando  el 
número  de  opción  (eficaz  en  la  unidad  de  discos). 

— Ver  notas  sobre  la  cinta  (o  disco)  y  los  programas 
contenidos  en  ella. 

En  el  programa  he  puesto  el  ejemplo  de  Video  Casino, 
pudiéndolo  cambiar  por  otro  accediendo  al  listado.  A 
continuación  os  pongo  las  partes  del  listado  para  cambiar  los 
nombres: 

— Líneas  1999-2040,  para  cambiar  la  cabecera  del  programa. 

— Líneas  4999-5060,  para  cambiar  el  nombre  de  los  programas. 
— Líneas  7999-8060,  para  cambiar  el  número  de  los  contadores. 
— Líneas  9999-10050,  para  cambiar  los  nombres  del  comando 
Load. 

— Líneas  10599-10633,  para  cambiar  las  notas. 

Espero  que  os  sea  de  utilidad  y  sin  nada  más  que  añadir  se 
despide  un  commodoriano. 

¡Adeu! 

NOTA:  Para  los  usuarios  de  la  Unidad  de  disco  flexible  tienen 
que  añadir  al  comando  LOAD  el  ,8  ( que  hace  acceder  a  dicha 
unidad). 


3  REM  ***************************** 


4  REM  i*  MENU  CINTA  * 

5  REM  *  * 

6  REM  W  AUTOR:  TONV  RUEDA  R0SELL0  « 

7  PPM  * 

8  REM  *  JULIO  1384  * 


9  REM  **********************1*1****** 

10  : 

20  POKE53280/ 14 : PGKE53281 ¡ 14 


21  REM  ********************** 

22  REM  *  MENU  PRINCIPAL  * 

23  REM  ********************** 

30  PRINT" CCLR) " 

35  PRINTCHRSC 143 " CBLU3 " 

48  GQSUB2000 

50  PRINT : PRINT : PRINT" C2SPC] CSHIFTM) CSHIFTEI 
C  SH I FTN  3  C  SH I FTU  3  C  SPC  3  C  SH I  FTP  3  C  SH I FTR  3 
CSHIFTI 3  CSHIFTN3  CSHIFTC) CSHIFTI I CSHIFTP] 
CSHIFTAI CSHIFTL) : " 

60  PRINT : PRINT" C3SPC3  CSHIFTE3LI JA : " 

70  PRINT : PRINT" [2CRSRR] CSHIFTAI. CCRSRRI 
C SH I FTM ] I RAR C SPC 3 LOS C SPC) PROGRAMAS C SPC 3 
QUE  C  SPC  3  CONT I ENE  C  8CRSRR  3  LA  C  SPC  3  C I NT A 

80  PR INT ; PRI NT " C 2CRSRR 3CSHIFTB3. C CRSRR 3 
C  SH I FTM  3 1 RAR  C  SPC  3  EL [ 2SPC  3 CONTADOR  C  2SPC 3 
DE  C  SPC  3  CADA  C  SPC  3  PRO- C  8CRSRR 3  GRAMA . " 

90  PRINT : PRINT" C2CRSRR) CSHIFTC 3 . CCRSRRI 
C  SH I FTC 3  ARGAR  C  SPC  3  EL  C  SPC  3  PROGRAMA  C  SPC  3 
ELEG I DO  C  SPC  3  EN  C  SPC  3  EL  C  8CRSRR  3  ORDENAD 
0R.  " 

100  PRINT : PRINT" C2CRSRR3 CSHIFTD3 . CCRSRRI 
C  SH I FTN 3 OTAS C SPC 3 DE C SPC 3 I NTERES .  " 

1 30  GETXí : I FXí* " " THEN 1 30 
140  I FX$* "A " THEN300 
150  I FXÍ= " B " THEN 1 000 
160  IFXJ*"C" THEN 1500 
170  IFXÍ«"D" THEN 1800 
180  GOTO 130 

499  REM  *************************** 

500  REM  *  MENU  SECUNDARIO  (A)  * 

501  REM  A************************** 

510  PRINT" CCLR) " 

515  GÜSUB20G0 

520  PR I NT : PR I NT : PR I NT  »  C  2CRSRR  3  C  SH I FTP  3 
CSHIFTR3  CSHIFT03  CSHIFTG3CSHIFTR3  CSHIFTAI 
CSHIFTM3  CSHIFTAI  CSHIFTS  3  C  SPC  3  CSHIFTC  3 
CSHIFT03  CSHIFTN3  CSHIFTT3  CSHIFTEI CSHIFTN3 
CSHIFTI 3 CSHIFTD3CSHIFT03 CSHIFTS) CSPC3 
CSHIFTEI CSHIFTN3  C SPC 3 CSHIFTL) CSHIFTAI 
CSPC3 CSHIFTC) CSHIFTI 3  CSHIFTN3  CSHIFTT3 
CSHIFTA3 : " 

530  GOSUB5000 

540  PRINT : PRINT : PRINT"CSHIFTP3ARACSPC3 
VOLVER C SPC 3 AL C SPC 3  CSHIFTM3  CSHIFTEI CSHIFTN3 
CSHIFTU3CSPC3 CSHIFTP) CSHIFTR3 CSHIFTI 3 
CSHIFTN3 CSHIFTC) CSHIFTI 3 CSHIFTP) CSHIFTAI 
CSHIFTL) CSPC3PULSARCSPC3 ' CSHIFTM) ' " 

550  GETSí : IFSÍ=" "THEN550 
560  IFS*O"M"THEN550 
570  I FS#“ " M " THEN30 

999  REM  *************************** 

1000  REM  *  MENU  SECUNDARIO  <B>  * 

1001  REM  *************************** 

1010  PRINT" CCLR) " 

1020  G0SUB  2000 

1030  PRINT : PRINT : PRINT" C2CRSRR3 CSHIFTC) 
CSHIFT03  CSHIFTN3  CSHIFTT3  CSHIFTAI CSHIFTD3 
CSHIFT03CSHIFTR3 CSHIFTEI CSHIFTS) CSPC3 
CSHIFTD3 CSHIFTEI CSPC3 CSHIFTL) CSHIFT03 
CSHIFTS) CSPC 3 CSHIFTP 3  CSHIFTR 3  CSHIFT03 
CSHIFTG3CSHIFTR3 CSHIFTAI CSHIFTM) CSHIFTAI 
CSHIFTS):" 

1040  GOSUB8000 

1050  PRINT : PRINT : PRINT" CSHIFTP) ARA CSPC 3 
V0LVERCSPC3ALCSPC3 CSHIFTM) CSHIFTEI CSHIFTN3 
CSHIFTU3 CSPC) CSHIFTP) CSHIFTR3 CSHIFTI 3 
CSHIFTN3 CSHIFTC) CSHIFTI 3 CSHIFTP) CSHIFTA3 
C  SH  I FTL  3  C  SPC  3  PULSAR  CSPC)  •'CSHIFTM)  ' " 

1060  GETS*: IFSÍ-"" THEN 1060 
1070  IFSíO"M"THEN1060 
1080  I FSí = " M " THEN30 

1499  REM  *************************** 

1500  REM  *  MENU  SECUNDARIO  <C)  * 
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1501  REM  *************************** 

1510  PRINT" C CLR] "CHRÍC 14) 

1520  GOSUB2000 

1530  PRINT : PRINT : PRINT" C2CRSRR] CSHIFTC] 
CSHIFTA] CSHIFTR] C SHIFTG] CSHIFTR] CSHIFTR] 
CSPCHSHIFTPHSHIFTRHSHIFTOHSHIFTG] 
CSHIFTR] CSHIFTA] CSHIFTM] CSHIFTA] CSPC] 
CSHIFTE] CSHIFTL] CSHIFTE] C SHIFTG] CSHIFTI ] 
CSHIFTDHSHIFTÜ] : " 

1540  PRINT  PRINT : PRINT : PRINT" C4CRSRR] 

C  SH I  FTP  ]  ONGFl  C  SPC  ]  EL  C  SPC  ]  NUMERO  C  SPC  ]  D 
EL  C  SPC ] PROGRAMA C2SPC] QUE " 

1550  PR I NT " C  4CRSRR ] QU I  ERE C SPC ] CARGAR 
C 2SPC ] EN C SPC ] EL C SPC ] ORDENADOR ¡  CSPC]0 

1 560  PR I NT " C  4CRSRR ] S I C  SPC ] DESEA  C  SPC ] 

VOLVER  C  SPC ] AL  C  SPC ] C  SH I FTM ] C  SH I FTE ] C  SH 1 FTN ] 
CSHIFTU] CSPC] CSHIFTP] CSHIFTR] CSHIFTI] 
CSHIFTÑ] CSHIFTC] CSHIFTI ] CSHIFTP] CSHIFTA] 
CSHIFTL] " : PRINT" C4CRSRR]PULSECSPC] ' CSHIFTM] 

1570  GETSÍ : IFSÍ*" "THEN1570 
1575  PRINTCHRíC 142) 

1580  GOSUB  10000 
1590  IFS*="M"THEN30 
1600  PRINTCHR$( 14) 

1610  GOTO1570 

1799  REM  *************************** 

1800  REM  *  MENU  SECUNDARIO  <D>  * 

1801  REM  *************************** 

1810  PRINT" CCLR]" 

1820  GOSUB  2000 

1 830  PR I NT  :  PR  I NT  ■'  PR  I NT "  C 2CRSRR ]  C SH I FTN ] 
CSHIFTO] CSHIFTT] CSHIFTA ]CSHIFTS] : " 

1840  GOSUB 10600 

1850  PRINT  '■  PRINT :  PRINT"  CSHIFTP3ARACSPC] 

VOL VER  C  SPC ] AL  C  SPC ] C  SH I FTM ] C  SH I FTE ] C  SH I FTN ] 
CSHIFTU] CSPC] CSHIFTP] CSHIFTR] CSHIFTI] 
CSHIFTÑ] CSHIFTC] CSHIFTI] CSHIFTP] CSHIFTA] 

C  SH I FTL ] C  SPC ] PULSAR  CSPC] ' CSHIFTM] ' " 

1860  GETS$ : IFS$=" "THEN1860 
1870  I FSÍO  "  M  "  THEN1 860 
1890  IFSí-"M"THEN30 

1999  REM  ****  TITULO  7  CABECERA  **** 

*«** 

2000  PRINT" CCRSRU] C RVSON ] C 40SPC ] " 

2010  PRINT" CCRSRU] C RVSON ] C9SPC] CSHIFTM] 
CSHIFTE] CSHIFTÑ] CSHIFTU] C2SPC] CSHIFTC] 
CSHIFTA] C2SHIFTS]CSHIFTE]C2SHIFTT]CSHIFTE] 
C2SPC] CSHIFTÑ] CSHIFTO], CSPC] 1C10SPC] 

2020  PR I NT " C  CRSRU ] C RVSON ] C  40SPC ] " 

2030  PR I NT " C CRSRU ] C RVSON ] C9SPC] CSHIFTT] 
CSHIFTI] CSHIFTT] CSHIFTU] CSHIFTL] CSHIFTO] 

: C2SPC] CSHIFTV] CSHIFTI ] CSHIFTD] CSHIFTE] 
CSHIFTO]  CSPC]  CSHIFTC]  CSHIFTAHSHIFTS] 
CSHIFTI] CSHIFTÑ] CSHIFTO] C10SPC]" 

2040  PRINT" CCRSRU] C RVSON ] C40SPC] " 

2050  RETURN 

4999  REM  ****  PROGRAMAS  ************ 

**** 

5000  PRINT: PRINT 

5010  PRINT" C6CRSRR] 1 . CSPC] CSHIFTT] IR 
O CSPC] AL CSPC] BLANCO." 

5020  PR I NT " C 6CRSRR] 2 . C SPC ] C SH I FTB ] AT 
ALLA CSPC] NAVAL. " 

5030  PRINT" C6CRSRR]3. CSPC]CSHIFTM]OS 
QUITO. " 

5040  PRINT" C6CRSRRI4.  CSPCHSHIFTBIOM 
BARDEROCSPCILOCO. " 

5050  PR I NT " C  6CRSRR ] 5 . C  SPC ] C  SH I FTE ] L  C  SPC ] 
POZO. " 

5060  PRINT" C6CRSRRJ6. CSPC] CSHIFTO]BR 
AS CSPC] MAESTRAS.  " 

6000  RETURN 


7999  REM  ****  CONTADORES  *********** 

**** 

8000  PRINT: PRINT 

8010  PR I NT " C 6CRSRR ] 1 . CSPC] 03 1 C SPC ] - C SPC ] 
000" 

8020  PRINT" C6CRSRRI2. CSPC]000CSPC]-CSPC] 
000" 

8030  PR I NT " C 6CRSRR ] 3 . CSPC]000CSPC]-CSPC] 
000" 

8040  PRINT" C6CRSRR]4, CSPC]000CSPC]-CSPC] 
000" 

8050  PRINT" C6CRSRR]5. CSPC]000CSPC]-CSPC] 
000" 

8060  PR I NT " C  6CRSRR ] 6 . C  SPC ] 000  C  SPC ] - C SPC ] 
000" 

9000  RETURN 

9999  REM  **«*  LOAD'S  *************** 

**** 

1 0000  I FS$® " 1 " THENPR I NT " C  CLR ] " : LOAD 
" T I RO  C  SPC ] AL  C  SPC ] BLANCO " 

10010  I FS*= " 2 " THENPR I NT " C  CLR ] " :LOAD 
" BATALLA  C  SPC ] NAVAL " 

10020  IFSÍ» " 3 "THENPR I NT " C CLR ] " ; LOAD 
"MOSQUITO" 

1 0030  I FS$- " 4 " THENPR I NT " C CLR ] " : LOAD 
" BOMBARDERO  C  SPC ] LOCO " 

10040  I FS$* " 5 " THENPR I NT " C CLR] " 'LOAD 
"EL CSPC] POZO" 

10050  I FSÍ = " 6 " THENPR I NT " C  CLR ] " : LOAD 
" OBRAS  C  SPC ] MAESTRAS " 

10500  RETURN 

10599  REM  ***«  NOTAS  *************** 

10600  PRINT: PRINT: PRINT 

10610  PRINT" CCRSRR][SHIFTL]OSCSPC]PR 
OGRAMAS  C  SPC ICONTEN I DOS  C  SPC ] EN  C SPC ] ES 
TACSPCICINTA" 

10611  PR I NT " C  CRSRR ] SON  C  SPC ] DE  C  SPC ] TI 
POCSPCIRECREATIVO. " 

10620  PRINT" C CRSRR] CSHIFTEINCSPCIALG 
UNO  C  SPC ] DE  C  SPC ] ESTOS  CSPC] PROGRAMAS  CSPC] 
ESC2SPCINECE-" 

10621  PR I NT " C  CRSRR ] SAR I O  C  SPC ] UT I L I ZA 
RCSPCIELCSPCICSHIFTJ] CSHIFTO] CSHIFTV] 
CSHIFTS] CSHIFTT] CSHIFTI ] CSHIFTC] CSHIFTK] 

10630  PRINT" C CRSRR ] C SH I FTE ]6T0S CSPC] 
PROGRAMAS  C  2SPC ] ESTAN  C SPC ] COP I ADOS  C  2SPC ] 

DE CSPC] LA" 

10631  PR I  NT " C  CRSRR ] RE V I STA  C  2SPC ] C  SH I FTC ] 
CSHIFTO] C2SHIFTM] CSHIFTO] CSHIFTD] CSHIFTO] 
CSHIFTR] CSHIFTE] CSPC] CSPC] CSHIFTU] CSHIFTO] 
CSHIFTR] CSHIFTL] CSHIFTD] , CSPCIDELC2SPC] 
PRIMER" 

1 0632  PR  I  NT "  C  CRSRR  ]  NUMERO  C  SPC  ]  HASTA  C  SPC  ] 

EL  C  SPC ] NUMERO  C  SPC ] 6 - C  SPC ] EN  C SPC ] EL  C  2SPC ] 

10633  PRINT" C CRSRR ITADOC SPC] CSHIFTV] 

I DEO  C  SPC  ]  C  SH  I  FTC]  AS  I  NO  C  SPC  ]  DE  C  SPC  ]  D I 
CHA  C  SPC ] REV I STA . " 

10800  RETURN 


No 

derroche  dinero 
comprando  programas. 
Alquílelos 

y  disfrute  de  ellos  hasta 
que  se  aburra. 

Enviamos  a  toda  España. 


Pídanos  nuestro  extenso  catálogo 
al  Apdo.  ne  12  de  ILLORA  (Granada) 
y  asómbrese  de  las  ventajas. 

¡¡¡INFORMESE!!! 


Condiciones  especiales  para  socios. 


MEMT  S(Q)F¥=(B4¡  Apartado  12.  ILLORA  (Granada) 


LLEGUE, 


Uí, 


Y... 


CavaniH®s’  52  \\  LIBRERIA 

28007-madwd  II  ESPECIALIZADA  En 

I  inFDRmftTicfl 


SOLICITE  NUESTRO  CATALOGO  GENERAL 


'lln  nuzuo  connzhto  zn  m 


n RDEN 


-  ORDENADORES  PERSONALES  _ 


-PERIFERICOS  Y  ACCESORIOS 
-SOFTWARE  PARA  TODAS  LAS 
MARCAS 

-CURSOS  DE  BASIS  PARA  PRINCI¬ 
PIANTES  (PRACTICAS  CON  ORDE¬ 
NADOR) 

-GRAN  SURTIDO  EN  LIBROS  Y 
REVISTAS 


•  SINCLAIR  SPECTRUM  Y  PLUS 

•  COMMODORE  64 

•  ATARI  800  XL 

•  ORIC  ATMOS 

•  DRAGON  32  Y  64 


Página  100 


ESPECIAL  PROGRAMAS 


Commodore  World 


Al  mando  de  tu  nave  espacial  DEFENDER  tienes  que 
conseguir  matar  el  mayor  número  posible  de  nuestros  ya 
queridos  los  marcianitos. 

Pero  ojo!,  no  creáis  que  todo  termina  ahí,  en  la  pantalla  hay 
dispersadas  diversas  minas  e  incluso  algunos  marcianos  que 
pueden  acabar  contigo.  También  puedes  morir  desintegrado  al 
hacer  un  disparo  al  vacío  así  que  ya  sabes  y  afina  bien  la 
puntería. 

Bueno,  ya  se  me  olvidaba;  el  programa  viene  dividido  en  dos 
partes  y  entra  en  un  VIC  sin  ampliación  de  ninguna  clase. 

Es  el  primer  programa  que  hago  y  reconozco  que  no  está  como 
se  dice  perfecto  (aunque  hay  quien  dice  que  la  perfección  no 
existe)  pero  qué  pasa,  tampoco  es  una  NARRIA!!! 

Os  felicito  por  la  revista  de  todos  conocida  la  cual  considero 
que  es  una  gran  ayuda  para  todo  el  poseedor  de  un  VIC,  y 
aquí  dejo  mis  señas  por  si  alguien  de  la  zona  quiere  cambiar 
impresiones... 


Parte  lA 

9001  DATA  0  ,  24,  24;  60;  126;  255; 

255;  126;  60 

9002  BATA  1  ;  24;  60;  60;  60;  60;  60 
;  36;  36 

9003  BflTB  2  ;  24,  24,  60,  126,  255, 

255,  255,  255 

9004  BATA  3  ,  146,  102,  146,  102,  15 
0,  102,  150,  102 

9005  BATA  4  ,  60,  126,  219,  255,  255 
,  255,  66,  129 

9006  BATA  5  ,  60, 126,219,219,255,255 
,173,173 

1 0000  G 1 -32768 : 02-7 1 68 : FOR I -0TO5 1 1 

10001  P0KEG2+ I , PEEK ( G 1 + I 3 

10002  NEXTI 

10003  F0RI-1T0  6  : REABC : FORJ-0TO7 : RE 
ABK 

10004  P0KEG2+  (  C*8  3  +  J ,  K  :  NEXT  J ,  I  ;  P0KE5 
2, 28 : P0KE56, 28 

11000  P0KE63 1 , 131 ; PGKE 1 98 ,  1 
11500  P0KE36879, 254 

20000  PRINT" ICLR] " :  PRINT" CCRSRDÜ C6CRSRR] 


BEFENBER" 

21000  PRINT"! 2CRSRB 3 1 5CRSRR 3 CONTROLE 
8" 

21100  PR I NT "I CRSRD H CRSRR ]*Z-IZQUIER 
DA" 

21110  PRINT" í CRSRD I! CRSRR 3 *X"DERECHA 
21120  PR I NT " C  CRSRD 3  !  CRSRR 3  F 1 -D I SPARO 

21130  PRINT"! CRSRD  3  C  CRSRR  3  ESTE  C  SPC  3  P 
R00RAMA  C  SPC  3  0 BROA  C  38PC  3  LOS  C  SPC  3  GR AF I 
COS" 

21140  PR I NT " C  CRSRD  3  C  3CRSRR  3  27/09/84  C  SPC  3 
DAVIDCC3" 


Parte  2  a 

5  GOTO700 

6  P0KE36879, 239 

7  G-0  :j«7734:E-7768 

8  C-8100: 0-7856 :T-7812 

9  D-7910 : F-7954 ¡ H-7998 

10  PRINT" CCLR3" 

30  GETR* 

31  I FR$- " Z " THENG- 1 

32  I  FRí  - 11 X  "  THENG-2 

33  I FRf ■ " I F 1 3 " THEN56 

36  F0RL-1T02 ¡ POKE76B0+INT<RND< 1 3*200 
3,4: NEXTL 

37  F0RL- 1  TOS : POKE7680+ 1  NT  <  RND  < 1 3  *200 
),32i NEXTL 

38  F0RV-1T02  1  POKE?680+1NT(RND<  1 3*200 
3,5: NEXTV 

39  F0RV- 1T06 : POKE7680+INT CRNDC 1 3*200 
3,32: NEXTV 

55  G0T066 

56  REI1*DI  SPARO* 

57  F0RW- 1 T022 : F0RP- 1 T022 

58  V*C- < 22*W  3 : B-C- ( 22*P  3 

59  POKEV, 1 1 POKEB, 32 

60  I FPEEK  (  VANDB  3 -0THENGOTO  2000 

6 1  I FPEEK  <  VANDB  3 -3THENGOTO2200 

62  I FPEEK  ( VANDB  3 -5THENGOTO2400 

63  I FPEEK (VANDB 3 -4THENGOTO2600 

65  NEXTP, W 

66  IFG-1THENC-C-1 ; P0KEC+1 , 32 
70  I FG-2THENC-C+ 1 : P0KEC- 1 , 32 
80  I FC<8099ANBG- 1 THENC-8098 
90  IFC>81 18ANDG-2THENC-81 19 
110  POKEC, 2 

115  F0RV-1T0  100: NEXTV 

120  REM*MARC I ANO* 

121  U-INT(RND< 13*33 

122  IFU-1THENJ-J-1 :P0KEJ+1,32 

123  IFU-2THENJ-J+1 • P0KEJ-1 , 32 

124  IFJ<7747THENJ=7746 

125  I FJ>7766THENJ-7767 

126  POKEJ , 0 

127  Z-INT(RND( 1 3*33 

130  I FZ- 1 THENE-E+ 1 : P0KEE- 1 , 32 

131  IFZ-2THENE-E-1 : P0KEE+1 , 32 

132  IFEC7769THENE-7768 

133  IFE>7788THENE-7789 

134  POKEE, 0 

135  X-INT(RND< 13*33 

136  I FX"  1 THENT -T+ 1 : P0KET- 1 , 32 

137  IFX-2THENT-T-1 : P0KET+1 , 32 

138  I FTC78 1 3THENT -78 1 2 

139  I FT>7822THENT -782 1 

140  POKET , 0 

141  V-INT(RND( 13*33 

142  I FV- 1 THEN0-0- 1 ¡ P0KE0+ 1 , 32 

143  IFV-2THEN0-0+1 :POKEO-1,32 

144  I F0C7857THEN0-7856 

145  IF0>7876THEN0-7877 

146  P0KE0, 0 


147  W»INT<RND<1>*3> 

1 43  I FU» 1 THENB»D- 1 : POKED+ 1 , 32 

149  IFW»2THENB»D+1  •'  F'ÜKED-1 , 32 

150  I FB<790 1 THEND»7900 

151  I FD>?920THEND»792 1 

152  POKEB,  3 

153  Q»INT(RND(  1  )Dí3) 

154  I FGl» 1 THENF»F- 1 : POKEF+ 1 , 32 

155  IFQ»2THENF=F+1 :P0KEF-1,32 

156  IFFC7945THENF-7944 

157  IFF>7964THENF»7965 

158  POKEF  ,  3 

159  P»INT<RND( 1 )É3) 

160  I FP»  1 THENH»H- 1 ¡ PQKEH+ 1 >  32 

161  IFP»2THENH»H+1  '•  POKEH-1  ,  32 

162  IFH<7989THENH*7988 

163  IFH>8008THEHH«8009 

164  PÜKEH,  3 

670  PRINT" CHOM3CRVSON3  CWHT3  C21CRSRD3 
PUNTOS" J  PU 
690  OOTO30 

700  P0KE36869, 255 : PRINT" CCLR3 » : P0KE3 
6879,171 

710  PR I NT " C  CRSRD  3  C  7CRSRR  3  [  RVSON  3  DEFE 
NDER" 

720  PR I NT 1 "  í 5CRSRR 3 [ RVSON ] C 1 2C0MMU  3  » 

730  PR I  NT " C  2CRSRD ] C  5CRSRR 3 C  RVSON ] I NS 
TRUCO IONES" 

740  PRINT" C 3CRSRD 3 C CRSRR 3 1 RVSON 3 *Z» I 
ZGUIERBA" 

750  PR I NT " C  CRSRR  3  C  RVSON  3  «X-BERECHA " 

760  PR I NT " C  CRSRR  3  C  RVSON  3  *F 1 -B I SPARA 
762  PRINT" CCRSRD3 CCRSRR3 CRVSON3PTENC 
IONCSPC3LñSCSPC3MINftS[5SPC3VCSPC3flLO 
UNOS  C  SPC  3  MfüRC  I  ANOS  C  2SPC  3  TE  C  SPC  3  DESTR 
UVEN I  " 

770  PRINT" [ 4CRSRD 3 [ 5CRSRR 3 C RVSON 3 BUE 
NRC SPC 3 SUERTE" 

775  FORU» 1 TO2900 : NEXTU 
780  G0T06 

2000  P0KE36877 , 220 : FORV- 1 5TO0STEP- 1 
2010  P0KE36878, V'FORU*1TO500 
2015  NEXTU, V 

2020  P0KE36877,  0  ■'  P0KE36878, 0 
2100  PRINT" [HOM3 C7CRSRR3 C7CRSRD3 CRVSON3 
C  UHT  3  ORNE  C  SPC  3  O VER " : FORR- 1 TO3000 : NEX 
TR : RUN 
2110  00T06 

2200  P0KE36878, 15 : P0KE36875 , 232 ¡ POKE 
36876,230 

2210  FORT=1TO150 : NEXTT 

2220  P0KE36876 , 0 : P0XE36875 , 0 : P0KE368 

78,0 

2230  PU-PU+10 
2250  00T06 

2400  P0KE36878, 15 : P0KE36874, 201 
2410  P0KE36875, 201 : P0KE36876, 201 
2420  FORT» 1 TO 1 50 : NEXTT 
2430  P0KE36876 , 0 : P0KE36875 , 0 
2440  P0KE36874, 0  ’•  P0KE36878,  0 
2450  PU-PU+30 
2460  G0T06 

2600  P0KE36878, 15 : P0KE36874 ,241: POKE 
36875,241 

2610  P0KE36876,  241 
2620  FORT» 1TO 150: NEXTT 
2630  P0KE36876, 0 : P0KE36875, 0 
2640  P0KE36874 , 0 ¡ P0KE36878 , 0 
2650  PU-PU+50 


Este  programa  funciona  igual  que  una  ruleta  normal,  sólo  que 
no  se  puede  apostar  ni  al  0  ni  al  doble  00;  tampoco  se  puede 
apostar  a  dos  cosas  a  la  vez  (Ej.:  impar  y  rojo). 

El  programa  funciona  así: 

Primero  sale  la  presentación,  luego  te  pregunta  cuánto  deseas 
apostar,  luego  a  qué  y  al  final  sale  el  número  extraído  por  la 
ruleta,  y  si  has  ganado  te  dice  cuánto  y  suena  una  musiquilla; 
si  no,  suena  otra  musiquilla  anunciándote  que  has  perdido.  Al 
final  te  pregunta  si  quieres  jugar  otra  vez. 

1-20  Presentación  en  pantalla 
30  Pregunta  cuánto  quieres  apostar 

50-360  Pregunta  a  qué  quieres  apostar  y  lo  guarda  en  variables 

360-555  Se  elige  un  número  al  azar 

600-830  Muestra  el  número  elegido 

1000-1030  Comprueba  si  has  ganado 

1040  Si  has  perdido  te  lo  anuncia 

1045  Te  manda  a  la  subrutina  de  sonido 

1 100  Si  has  ganado  te  lo  anuncia 

1 101-1104  Te  informan  de  lo  que  has  ganado 

1 105  Te  manda  a  la  otra  subrutina  de  sonido 

1110  Te  pregunta  si  quieres  volver  a  jugar 

1130-1404  Se  despide 

2000-2300  Primera  subrutina  de  sonido 

2900-4500  Segunda  subrutina  de  sonido 


1  REM 

2  PÜKE53280, 2 

3  P0KE53281 , 6 

4  PRINT" CCLR 3" 

5  PRINT" C CRN 3" 

6  PR I NT " í 4SPC  3  LA [ SPC  3 RULETA  C  SPC  3 AMER 
ICANA" 

7  PRINT 

8  PR I NT " [ 3SPC  3  POR  C  SPC  3  SERG I C  SPC  3  ARBO 
SCSPC3MAURI" 

9  PRINT 

10  PRINT" CWHT3" 

11  PRINT" [RVS0N3  CSHIFTQ3  CSHIFTW3  CSHIFTQ3 
[SHIFTW3  CSHIFTQ3 [SHIFTW3CSHIFTQ3  CSHIFTW3 
CSHIFTQ3  CSHIFTW3  CSHIFTQ3  CSHIFTW3  CSHIFTQ3 
CSHIFTW3  CSHIFTQ3  CSHIFTW3  CSHIFTQ3  CSHIFTU3 


CSHIFTQ] CSHIFTW] CSHIFTQ] CSHIFTW] CSHIFTQ] 
CSHIFTW] CSHIFTQ] CSHIFTW] CSHIFTQ] CSHIFTW] 
CSHIFTQ] CSHIFTW] CSHIFTQ] CSHIFTW] " 

12  PRINT" CWHT] " 

13  PRINT" CRVSON] CSHIFTQ] CSHIFTW] CSHIFTQ] 
CSHIFTW] CSHIFTQ] CSHIFTW] CSHIFTQ 3 CSHIFTW] 
CSHIFTQ] CSHIFTW] CSHIFTQ] CSHIFTW] CSHIFTQ] 
CSHIFTW] CSHIFTQ] CSHIFTW] CSHIFTQ] CSHIFTW] 
CSHIFTQ] CSHIFTW] CSHIFTQ] CSHIFTW] CSHIFTQ] 
CSHIFTW] CSHIFTQ] CSHIFTW] CSHIFTQ] CSHIFTW] 
CSHIFTQ] CSHIFTW] CSHIFTQ] CSHIFTW]" 

14  PRINT" CSHIFTA 3  CSHIFTS] CSHIFTZ ] CSHIFTX] 
CSHIFTR] CSHIFTS] CSHIFTZ] CSHIFTX] CSHIFTA 3 
CSHIFTS] CSHIFTZ] CSHIFTX] CSHIFTR] CSHIFTS] 
CSHIFTZ] CSHIFTX] CSHIFTR] CSHIFTS] CSHIFTZ] 
CSHIFTX] CSHIFTR] CSHIFTS] CSHIFTZ] CSHIFTX] 
CSHIFTR] CSHIFTS] CSHIFTZ] CSHIFTX] CSHIFTR] 
CSHIFTS] CSHIFTZ] CSHIFTX]" 

15  PRINT" CRVSON] CSHIFTR] CSHIFTS] CSHIFTZ] 
CSHIFTX] CSHIFTR] CSHIFTS] CSHIFTZ] CSHIFTX] 
CSHIFTR] CSHIFTS] CSHIFTZ] CSHIFTX] CSHIFTR] 
CSHIFTS] CSHIFTZ] CSHIFTX] CSHIFTR] CSHIFTS] 
CSHIFTZ] CSHIFTX] CSHIFTR] CSHIFTS] CSHIFTZ] 
CSHIFTX] CSHIFTR] CSHIFTS] CSHIFTZ] CSHIFTX] 
CSHIFTR] CSHIFTS] CSHIFTZ] CSHIFTX]" 

16  PRINT 

17  PR I NT " LE  C  SPC ] DESEO  C  SPC ] MUCHA C  SPC ] 
SUERTE" 

18  FÜRI»1TO1500 
13  NEXTI 

20  PRINT" CCLR]" 

30  I NPUT " CUANTO  C  SPC ] DESEAS  C  SPC ] RPOST 
RR"JH1 

35  PRINT" CCLR]" 

45  PRINT 

50  PR  I  NT  "  QU I  ERES  C  SPC  ]  APOSTAR  C  SPC  ]  R  C  SPC  ] 

UN  C  SPC ] NUMERO  <  N ) ? " 

60  PRINT"RCSPC]UNCSPC]COLORCSPC]<C)? 

70  PRINT"ACSPC]PARCSPC30CSPC3IMPRR( I 

)?" 

80  PR I NT " R  C  SPC ] PRSSE  C  SPC ] O  C  SPC ] MRNQU 
E<R)?" 

30  INPUTJí 

35  IFJ$="N"THEN  GOTO200 
100  IFJí»"C"THEN  GOTO250 
110  IFJÍ*" I "THEN  GOTO350 
120  I F J$* " R " THENGOTO300 
123  END 

200  PR  I  NT 1 "  C  CLR  3  "  :  I  NPUT  " R  C  SPC  ]  QUE  C  SPC  ] 
NUMERO C SPC] QUIERES! SPC] APOSTAR" i S2 
210  GQTO500 

250  PRINT "CCLR]" : I NPUT "fl C SPC 3 QUE C SPC 3 
COLORI  SPC  3  QU  I  ERES  C  SPC  3  APOSTAR ,  RL  C  SPC  ] 
ROJOÍ Al > , O  C  SPC ] AL  C  SPC ] NEGRO  <  E ) " iP$ 

260  GOTO500 

300  PRINT" CCLR] " : INPUT"QUIERESCSPC]A 
POSTAR  C  SPC  3  A  C  SPC ] PRSSE  <  J ) O  C  SPC  3 MRNQU 
ECM) " <  Oí 
310  GOTO500 

350  PRINT"! CLR  3 " : I NPUT " QU I ERES  C  SPC  3 A 

POSTARCSPC]RCSPC]PAR<U)OCSPC] ACSPC] I 

MPARÍB1 ) " j  Kí 

360  GOTO500 

500  R»INT(38*RND( 1 ) )+l 

510  IFA»37THENA«0 

520  I FA*38THENR=00 

525  IFfi“0ORfl=00  THEN  GOTO800 

530  Q= A-2* I NT < R/2 ) 

550  IFQ»1THEN  GOTO  600 
555  IFQ*0THEN  GOTO700 

600  PRINT "CCLR3" : PRINT "EL C SPC] NUMERO 
C  SPC ] EXTRA I DO  C  SPC ] POR  C  SPC  3  LA  C  SPC ] RUL 
ETA" 

601  PRINT 

602  PRINT" C 15SPC3ESCSPC3EL"  •' PRINT 

603  PRINT"! RVSON ] "TRB( 16)A : PRINT 
603  PRINT" C15SPC3 IMPAR" 

615  PRINT 


620  PRINT" C15SPC3 NEGRO" 

625  PRINT 

630  IFfl>19  THEN  GOTO650 
640  PRINT" C15SPC3 MANQUE" 

645  G$»"M" 

647  GOTO660 

650  PRINT" C15SPC3PASSE" 

651  PRINT 
655  Gí="J" 

660  Dí="Bl " 

670  V$«"E" 

680  GOTO 1000 

700  PR I NT " C CLR] " : PR I NT " ELCSPC ] NUMERO 
C  SPC ] EXTRAIDO! SPC ] POR  C  SPC ] L A  C  SPC ] RUL 
ETA" : PRINT 

701  PRINT"C14SPC]E3C8PC]EL" :PRINT 

702  PR I NT » C RVSON ] "TABC 16)A ■ PRINT 

709  PRINT 

710  PRINT" C 14SPC3PAR" 

715  PRINT 

720  PRINT" C14SPC3RO JO" 

725  PRINT 

730  IFAM3THEN  GOTO750 
740  PRI NT" C14SPC] MANQUE" 

745  GÍ="M" 

746  GOTO760 

750  PRINT" C14SPC3PASSE" 

751  PRINT 
755  G$="J" 

760  D*="U" 

770  V$="A1 " 

780  GOTO 1000 

800  PRI NT "EL C SPC 3 NUMERO C SPC ] EXTRA I DO 
C  SPC ] POR  C  SPC  3  LA  C  SPC ] RULET A  C  SPC] " • PRI 
NT 

810  PRINT" C 13SPC3ESCSPC3EL" • PRINT 
820  PRINT" CRVSON] "TABC 16)A ¡ PRINT 

825  PRINT" C13SPC3VERDE" 

826  PRINT 
830  GOTO 1040 

RUN 

1000  IFDÍ-KÍTHEN  GOTO1100 

1010  IFVí=Pí  THENGOTOl 100 

1020  IFG$=0*THEN  GOTO1100 

1030  IFR=K2THEN  GOTO1100 

1040  PR I NT " LO  C  SPC ] S I ENTO  C  SPC  3  HAS  C  SPC ] 

PERDIDO" 

1045  GOSIJB2900 
1050  GOTO 1 1 10 

1100  PRINT :  PRINTTABO)  " ENHORABUENA ,  C SPC 3 
HAS C SPC] GANADO" 

1101  IFJ*="N"  THEN  H2-H1#37 

1102  IFJí="C"ORJ$=“ I "ORJÍ""R"  THEN  H 
2=H1*2 

1103  PRINT 

1104  PRINTTAB<5)H2"PESETAS!" 

1105  GOSUB2000 

1110  PRINT : I NPUT" OTRA <S/N> " i Ft 
1120  IFFÍ«="S"THEN  GOTO  1 
1130  PRINT"CCLR3" 

1400  FORI-1TO50 

1401  PRINT" VUELVA  C  SPC  3 AL  C  SPC ] GR AN  C  SPC ] 
CASINO" 

1402  NEXTI 

1403  PRI NT "CCLR] " 

1404  END 

2000  F0RL=54272T054296 : POKEL  > 0 : NEXT 

2010  VI «54236  :  Wl=54276 :  A3«=54277 :  Sl=5 

4278 : H3=54273 : L-54272 

2020  POKEV1, 15P0KEA3, ÍSG^POKES.SS 

2030  P0KEH3 ,43: POKEL , 52 

2040  POKEW 1 , 33 : FORT ■ 1 TO500 : NEXT 

2050  POKEW 1,32 

2060  P0KEH3 , 5 1 : POKEL , 97 

2070  POKEW 1,33: FORT» 1TO500: NEXT 

2080  POKEW 1,32 

2030  P0KEH3, 57: POKEL, 172 

2100  POKEW1, 33: FORT» 1TO500: NEXT 

2110  POKEW 1,32 


2 1 20  P0KEH3 , 43 ¡ POKEL  ,  52 

2130  PÜKEWl -  33 : FQRT-1TG500 : NEXT 

2140  POKEW  1 ,  32 

2150  P0KEH3, 51 : POKEL,  97 

2160  POKEW1 , 33 ¡ FQRT*1TO1000 : NEXT 

2170  POKEW 1, 32 

2180  PÜKEH3 ,  57  ¡ POKEL , 1 72 

2190  POKEW 1 , 33 1 FORT«l TOS00 : NEXT 

2200  POKEW 1 ,  32 

2300  RETURN 

2900  F0RL=54272T054296 ¡ POKEL , 0 : NEXT 

3000  VI *54296 : MI *54276 : 83*54277 : S*54 

278 ¡ H3=54273 • L*54272 

3010  POKEV1 , 15' P0KEA3, 190 : P0KE3, 89 

3050  PQKEH3 , 36 : POKEL , 85 

3060  POKEW  1 ,  33  ■'  FORT*  1 TO500  :  NEXT 

3070  POKEW 1,32 

3080  P0KEH3, 38 : POKEL, 126 

3090  POKEW 1 , 33 ¡ FORT* 1 TO500 ¡NEXT 

3100  POKEW 1 1  32 

3110  P0KEH3,  43 ¡ POKEL,  52 

3 1 20  POKEW 1 j  33 : FORT* 1 TO 1 000 ¡ NEXT 

3130  POKEW 1 , 32 

4020  P0KEH3  ,  34  ¡ POKEL ,  75 

4030  POKEW 1*33: FORT* 1 TO500 ¡ NEXT 

4040  POKEW 1 ,  32 

4500  RETURN 


Os  envío  una  nueva  versión  de  “BASE  LUNAR”,  original  y 
distinta  a  la  ya  aparecida  para  C-64.  El  programa,  en  su 
listado,  no  contiene  instrucciones  REM  ya  que  ocupa  la 
práctica  totalidad  de  la  memoria  del  VIC-20  sin  ampliar.  El 
juego  os  lo  envío  yo  como  suscriptor  de  la  revista,  aunque  su 
realización  corre  a  cargo  de  mi  hermano  Jorge  Juan,  que  tiene 
12  años.  Ahí  va  la  explicación  del  juego: 

0-40:  Instrucciones 
100-200:  Caracteres  programables 
203-204:  Variables 
205-310:  Dibujo  del  paisaje  lunar 
320-375:  Movimiento  base  lunar 
380-450:  Movimiento  de  la  nave  (bajada) 

3000-3030:  Destrucción  de  una  de  tus  naves 


3040-3120:  Fin  de  partida 
3500-3520:  Movimiento  del  astronauta 
3550-3590:  Movimiento  de  los  ovnis 
3595-3660:  Movimiento  de  tu  nave  (subida) 

4000-4170:  Datas  musicales 
4500-4510:  Indica  el  número  de  pantalla. 

Para  abandonar  la  nave  nodriza  debes  de  pulsar  “A” 

Y  algo  importante:  una  vez  ejecutado  el  programa,  la  escasez 
de  memoria  sólo  permite  la  grabación  del  mismo  en  una  cinta 
virgen  con  la  instrucción  SAVE  a  secas,  sin  poner  nombre  al 
programa,  ya  que  de  hacerlo  nos  encontraríamos  con  el 
mensaje  “OUT  OF  MEMORY”.  Para  cargar  el  programa  en 
otra  cinta  con  su  nombre,  por  ejemplo  “SAVE  BASE 
LUNAR”,  debemos  efectuar  esta  operación  ANTES  de 
ejecutar  el  programa. 


10  P0KE36879 , 8 ¡ PR I NT " [ CLR ] [  2SPC KRVS0N] 

C  VEL ] *BASE  C  SPC ]  LUNAR*  [RVS0FF] 

20  PRINT" CWHT3 C2CRSRDIGUI8CSPC3TUCSPC] 
NAVE [ SPC ] CON ¡ " ¡ PR I NT " [ CRSRD ] ' ¡ ' I ZQ . C  SPC  J 
VI SPC] ' i 'DER, 

35  PR  I  NT  "  C  2SPC  D I RVS0N  ]  í  3CRSRD  3  PULSA  C  SPC  ] 
UNA  C  SPC ] TECLA  C RVSOFF ] 

40  GETAI¡:  IFAí“"  "THEN40 

100  PRINT" CCLR] 11 

1 1 0  PGKE52 , 28 ¡ P0KE56 > 28 ¡ CLR 

120  FORX*? 1 68T07679 ¡ P0KEX, PEEKCX+256 

00) ¡ NEXTX 

130  P0KE36869<  255 

1 40  FORL-7 1 68TO7270 ¡ READD ¡ POKEL , D ¡ NE 
XTL 

150  DATA224.224.24e, 172,252,248,248, 

0 

160  DATA255, 60, 126,90,60,231,255,0 
170  DAT A3, 3, 31, 53, 63, 31, 31,0 
180  DATA255, 0,0, 0,0, 0,255,0 

191  DATA24, 60, 126, 90, 126, 60, 24, 231 

192  DATA255, 255,255,255,255,255, 255, 

255 

193  DATA28, 60, 124, 126,62,28,24,0 

194  DATA129, 195,255,255,60,60,60, 126 

1 95  DATA 1 36 , 204 , 238 , 255 , 255 , 255 , 255 , 

255 

196  DATA 126, 102, 102, 231 , 231 , 231 , 231 , 

195 

197  DATA0, 56, 124, 146,254,84,0,0 

198  DATA0, 24, 8, 56, 8, 20, 20, 0 

200  DATA 1 46,84,56, 254 ,56,84, 146,0 

203  MA=3 ¡ SC*0 ¡ MO-32 ¡ V-36878 ¡ S3“368 76 
¡LK-1 ¡P0KE788, 194 

204  PRINT"  CCLR]  "  ¡  (11*0  ¡  GOSUB4500 

205  FORSA-8120TO8141 
210  POKESA, 8 ¡ NEXT 
220  F0RSA*8 1 42T08 1 85 
230  POKESA, 5 ¡NEXT 
240  F0RSA*1T075 

250  X“INT<0+310*RND( 1 ) ) 

260  P0KE38444+X, 6 ¡ P0KE7724+X,  6 ¡ NEXT 
270  W*INT(0+21*RND< 1 ) ) 

280  POKE8076+22+W, 7 
290  W“INT<0+21*RNDC 1 )) 

293  I FPEEK <  8076-22+W ) *7THENW»W+ 1 

295  POKE8076+W, 7 ¡ POKE8076+W+22, 9 

300  FORA-38400TO38421 

310  POKEA, 4 : NEXTA 

320  FORN-7683TO7701 

350  P0KEN,  0 :  POKEN-1 , 1  •'  POKEN-2, 2  ¡  POKE 

N-3,32 

360  GETAí ¡ IFA$*"A"THEN380 

370  FORT*1TO150 ¡ NEXTT ¡ NEXTN 

375  POKE7680+2 1 , 32 ¡ POKE7680+20 , 32 ¡ PO 

KE7680+19, 32 ■ GOTO320 

380  P0KEN- 1 , 3 ¡ AD-N+2 1 ¡ P0KEAD , 4 ¡ FORT* 

1 TO500 ¡ NEXT 
390  GETB# 

410  IFBÍ-" : "THENB=AD ¡ AD*AD+21 ¡ G0T043 
5 
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420  I FBí- " ; " THENB-AD ¡ AD- AB+23 ¡ G0T043 
3 

425  B«=RD  '•  AD-AD+22 

433  I FPEEK (  AD J-7THENAB-B  :  GOTO3500 

437  P0KEV< 1 5 ; PQKES3 < 223 : FORT» 1 TO 1 00 : 
NEXT : P0KES3 < 0 : FGRSA- 1 T03 

438  F«INT<0+278*RND<0>) i IFF-ADORPEEK 
<7724+F)=6THEN438 

439  P0KE38444+F < 6 : P0KE7724+F < 6 ¡ NEXT 

440  I FPEEK  <  AD ) -60RPEEK < AD ) -8THEN3000 

450  POKEAD < 4 ¡ POKEB -  32 ¡ FORT- 1 TO400 ¡ NE 
XTT : OOTO390 

3000  POKEBj  32 : POKEADj 12 

3003  FORRT-15TO0STEP-1  ¡  POKEV <  RT  ¡  POKE 

36877 <  207 

3010  FORSA- 1 TO50 : NEXT : NEXT ¡ P0KE36877 
<  0 

3020  MA-MA-1 : I FMAC 1 THEN3040 
3030  GOTO204 

3040  PR I  NT  "  C  CLR  ]  "  :  P0KE36869 < 240  •'  PR I N 
T" I VEL3 [4CRSRD3  C7CRSRR3  CRVSON3QAMECSPC3 
OVER C RVSOFF ] " 

3050  PR I NT " [ 2CRSRD 3  HAS  C SPC  3  CONSEGU I D 
O : [RVSON] " SC " i RVSOFF  3  C  HOM  3  C1 0CRSRD  3  P 
UNTOS 

3070  GOSUB4000 

3080  PR I NT " C  CRSRD  3  C  WHT  3  C 3SPC 3  OTRA  í SPC  3 
VEZ?<S/N) 

3090  GETCÍ  '•  IFC$«"  "THEN3090 
3100  IFC<-“S"THENRESTORE ¡ GOTO100 
3110  I  FCfO  "N  "  THEN3090 

3120  PRI NT" [CRSRD] . ADIOS - 

_ " : END 

3500  SC-8C+150 

3505  P0KE81 19-MI <  1 1  ¡ FORRT-1TO50 ; NEXT 

: P0KE81 19-MI < MO : MI-MI+1 : MO-32 

3510  I FPEEK < 8 1 1 9-M I -22 ) -40RPEEK <8119 

-M I -44 ) -4THEN3530 

35151 FPEEK  <  8 1 1 9-M I > -9THENM0-9 

3517  I FPEEK  <811 9-M I ) -7THENM0-7 

3518  POKEV  > 1 5 : P0KES3 , 1 75 ¡ FORT- 1 TO50 ¡ 
NEXT : P0KES3^  0 

3520  GOTO3505 

3530  FORSA-7702TO8053 : POKESA ¡  32 ' NEXT 

3540  F0RSA-38444T038774 : POKESA> 1 ¡ NEX 
T 

3550  FORSA-7790TO7808STEP4 : POKESA+V, 

1 0  •  POKESA- 1 +V  j  32 :  NEXT  ■  V-V+ 1 :  IFV>3THE 
NV-0 

3570  F0RSA-7857T07876STEP4 : POKESA+V/ 

10 ; POKESA+V-1 > 32 : NEXT 

3580  F0RSA-7922T0794 1 STEP4 ¡ POKESA+V^ 

1 0 ¡ POKESA- 1 +V j 32 ; NEXT 

3590  FORSA-7969TO8007STEP4 ¡ POKESA+V, 

1 0 ; POKESA- 1 + V  j  32 : NEXT 

3595  IFPEEK<AB)-1 0THENPOKENA , 32 : POKE 

AB< 12 : GOTQ3005 

3600  GETDí ¡ IFD#-" : "THENNA-AB ¡ AB-AB-2 

3 : GOTO3630 

3610  IFDÍ-" j " THENNA-AB : AB-AB-2 1 ¡ GOTO 
3630 

3620  NA-AB : AB-AB-22 

3630  I FPEEK <AB)-10ORPEEK<AB)-0ORPEEK 
<  AB ) - 1 THENPOKENA , 32 : POKEAB <12: QOTO30 
05 

3640  I FPEEK <AB>=3THENP0KENA< 32 ¡ POKEA 
B<  1  '•  FORT- 1 TO500  ¡  NEXT  ¡  SC-SC+200  ¡  LK-LK 
+  1  :GOTO204 

3650  P0KES3 <  223 : FORT- 1 TO 1 00 : NEXT : POK 
ES3<0 

3660  POKENA  <  32  ¡  POKEAB  <  4  :  FORT- 1 TO500  ¡ 
NEXT : GOTO3550 
4000  POKEV < 15 
4010  READI 

4020  I F I  —  1 THENPGKES3 <  0 : RETURN 
4030  READK 
4040  P0KES3< I 
4050  F0RT-1T0K : NEXT 


4060  P0KES3<  0 
4070  FORT- 1TO20: NEXT 
4080  GOTO4010 

4 1 00  DATR0  <  225  <  360  <  225  <  360  <  225  <  240 
4110  DATA228<120<231<360<231<240 
4 1 20  DAT A228  < 1 20  <  23 1 <  240  <  232  < 1 20 
4130  DATA235<720<240<360<235<360 
4140  DATA23 1 <  360  <  225  <  360  <  235  <  240 
4150  DATA232<120<231<240<228<120 
4160  DATA225<  480 
4170  DATA-1 

4500  FORT- 1 T03 : PR I NT " C  9CRSRD ] i 4CRSRR ] 
C  WHT ] P  C  RVSON  3  AN  C  RVSOFF ] T  C  RVSON ] ALLA  H 
;LK:FORSA-1TO100:NEXTSA 
45 1 0  FORS A- 1 TO50 : PR I NT " C CLR ] » : NEXT : N 
EXTT : RETURN 


Este  programa  tarda  en  cargarse  en  cassette  3  minutos  15 
segundos.  Dispone  de  un  fichero  secuencial  con  la  información 
de  los  teléfonos  grabados  anteriormente,  al  ejecutar  el 
programa  por  primera  vez  dicho  fichero  no  está  aún  abierto. 

Es  aconsejable  guardar  el  fichero  en  una  cinta  independiente  de 
la  que  está  grabado  el  programa,  y  además  se  aconseja  grabar 
el  fichero  (una  vez  abierto)  al  principio  del  programa,  hacer 
todas  las  modificaciones  necesarias  y  guardar  de  nuevo  el 
fichero  modificado  al  final  de  la  ejecución,  recuerda  rebobinar 
la  cinta  donde  tienes  el  fichero.  Lógicamente  si  no  has  hecho 
modificaciones,  sólo  has  consultado,  no  es  necesario  guardarlo 
de  nuevo. 


9  P0KE53281 < 1 

10  POKE53280< 1 
20  GOSUB 13000 

22  D I MNGMÍ  <  30 1)  <  COGÍ  <  30 1  >  <  TEL*  <  30 1  >  < 
B*<20> 

24  POKE650<  255 

30  PR I NT " C  CLR ] C  2CRSRD ] 1 9CRSRR ] C  RVSON ] 
í 2SPC ] AGENDA  C  SPC ] TELEFON I CA C2SPC] " 

40  PRINT" CCRSRD] C12CRSRR] [RVSON] C8PC1 
MENU  C  SPC ] GENERAL  í SPC ] " 
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50  PR I NT " C 2CRSRD 3 [ 6CRSRR  3 1 [ SPC  3 - [ SPC  3 
INSTRUCCIONES 

55  PRINT" [CRSRD3 [6CRSRR32ÍSPC3-ÍSPC3 
LEER  C  SPC  3  EL I SPC 3  F I CHERO " 

60  PRINT" CCRSRD3 C6CRSRR33CSPC3-CSPC3 
ENTRAR  [  SPC  3  UN  C  SPC  3  TELEFONO  " 

70  PRINT" [CRSRD3 C6CRSRR34CSPC3-CSPC3 
BORRAR  C  SPC  3  UN  C  SPC  3  TELEFONO " 

80  PR I NT 1 "  C CRSRD 3  í 6CRSRR 3  5 [ SPC  3 - [ SPC  3 
BUSCAR [ SPC  3  UN [ SPC  3  TELEFONO " 

85  PR I NT " C CRSRD 3  C 6CRSRR 3 6CSPC 3 - C SPC 3 
GUARO AR  C  SPC  3  EL  [  SPC  3  F I CHERO " 

88  PR I NT " C  CRSRD  3 [ 6CRSRR 3  7 [ SPC  3 - [ SPC  3 
FINALIZAR" 

90  PR I NT " [  2CRSRD 3  [ 6CRSRR 3  C RVSON  3  [ SPC  3 
PULSA  C  SPC  3  L A  í SPC  3  ÜPC I ON  C  SPC  3 QUE  C SPC  3 
DESEES C SPC 3 " 

100  GETAí 

110  IFA*-"1"THEN  GGSUB300 : GOTÜ30 
115  IFÁ#="2"THEN  GOSUB6000 : GOTO30 
120  IFA$«"3"THEN  GOSUB700 : GOTO30 
130  IFA$="4"THEN  GOSUB4000 : GOTO30 
140  IFA*="5"THEN  GOSUB3000 : GOTO30 
150  IFA*-"6"THEN  GOSUB5000 : GOTO30 
160  IFAí*"7" THENPR I NT " [ CLR 3 " : END 
170  GOTO 100 

300  PR I NT " C  CLR  3  C  2CRSRD3 [  9CRSRR 3 [ RVSON  3 
C2SPC3 AGENDA  C SPC  3  TELEFON I C A  [  2SPC  3 " 

305  PR  I  NT  "  [ CRSRD  3  C 1 2CRSRR 3  C RVSON  3  C  SPC  3 
INSTRUCCIONES CSPC 3" 

310  PR I NT " [ CRSRD  3  C  3SPC 3  LA  t SPC  3  CAPAC I 
DAD  C  SPC  3  DE  C  SPC  3  ESTA  C  SPC  3  AGENDAC  SPC  3  E 
SC SPC 3 DE CSPC 3 300" 

320  PR I NT " [ CRSRU 3 NOMBRES, [ SPC 3 D I SPOS 
ESÍSPC3DEÍSPC3SEISÍSPC30PCI0NES : " 

321  PR I NT " [ CRSRD  3 [ 8CRSRR  3  VER [ SPC  3  LAS 
[SPC 3  INSTRUCCIONES" 

322  PR I NT " [ 8CRSRR 3  LEER [ SPC  3  EL [ SPC  3  F I 
CHERO" 

330  PR I NT " [ 8CRSRR 3  ENTRAR [ SPC  3  UNÍ  SPC  3 
TELEFONO" 

340  PRINT" [8CRSRR 3 BORRAR [SPC 3 UN [SPC 3 
TELEFONO" 

350  PR I NT " [ 8CRSRR  3  BUSCAR [ SPC  3  UN [ SPC  3 
TELEFONO" 

352  PR I NT " [ 8CRSRR 3  GUARDAR [ SPC  3  EL [ SPC  3 
FICHERO" 

360  PR I NT " [ CRSRD  3 [ 3SPC 3  LOS [ SPC  3  TELEF 
ONOS [ 2SPC  3  ESTANT [ SPC  3  GUARDADOS [ SPC  3  E 
N[ SPC 3 UN" 

365  PR I NT " [ CRSRU  3  UN I CO [ SPC  3  F I CHERO [ SPC  3 
SECUENC I AL .[ SPC  3  LA [ SPC  3  PR I MERA [ SPC  3  V 
EZ" 

370  PR I NT " [ CRSRU  3  QUE [ SPC  3  ES [ SPC  3UT I L 
I TZADO [ SPC  3  EL [ SPC  3  PROGRAMA [ SPC  3  EL [ SPC  3 
FICHERO" 

375  PR I NT " [ CRSRU  3  NO [ SPC  3  ESTA [ SPC  3  AUN 
[  SPC  3  CREADO ,  S I  [  SPC  3  P I  DES  [  SPC  3  LA  [  SPC  3 
OPCION [SPC 3 DE" 

380  PRINT" [CRSRU 3LEERÍSPC3ELÍ SPC 3FIC 
HEROÍ SPC 3 DARA [SPC 3 ERROR. " 

385  PR I NT "  [ 2CRSRD 3  [ 4CRSRR 3  [RVSON 3  [ SPC 3 
PULSA [ SPC  3  UNA [ SPC  3  TECLA [ SPC  3  PARA [ SPC  3 
CONTINUAR [SPC 3" 

390  GETA* • I FAÍ - " " THEN390 

395  PR I NT " [ CLR  3 [ 2CRSRD  3 [ 9CRSRR  3 [ RVSON  3 

[ 2SPC  3  AGENDA [ SPC  3  TELEFON I CAÍ  2SPC  3 " 

400  PR I NT " í  CRSRD  3 [ 1 2CRSRR 3 [ RVSON  3 [ SPC  3 
INSTRUCCIONES [SPC 3" 

402  PRINT"[CRSRD3[3SPC3CUANDO[SPC3EN 
TRES [ SPC  3  UN [ SPC  3  TELEFONO [ SPC  3  DEBERAS 
[SPC 3 DAR" 

404  PR I NT " [ CRSRU  3  TAMB I EN [ SPC  3  EL [ SPC  3 
NOMBRE [ SPC  3  V [ SPC  3  APELL I  DOS [ 2SPC  3  DE [ SPC  3 
LAÍSPC3PER-" 

406  PRINT" [CRSRU3SONAÍSPC3AÍSPC3LAÍSPC3 
QUE [ SPC  3  PERTENECE .  CUANDO [ SPC  3  HAVAS [ SPC  3 
EN-" 

408  PR I NT " [ CRSRU  3  TRADO [ SPC  3  LOS [ SPC  3  D 


ATOS, SI [SPC3SON[SPC3CORRECTOS[SPC3AP 
RIETA" 

4 1 0  PR  I  NT  "  [  CRSRU  3  RETURN ,  S I  NO  [  SPC  3  LA  [  SPC  3 
TECLA  [  SPC  3  <  I  > ,  L  A  [  SPC  3  QUAL  [  SPC  3  TE  [  SPC  3 
PER-" 

412  PR I NT " [ CRSRU  3  M I T I RA [ SPC  3  MOD I F I CA 
R[ SPC 3 EL [SPC 3 ERROR. " 

414  PRINT"  ÍCRSRD3  [2SPC3SI ÍSPC3LOSÍSPC3 
DATOS [ 2SPC  3  SON [ SPC  3  CORRECTOS [ SPC  3  PUE 
DES [SPC 3 EN-" 

416  PR I NT " [ CRSRU  3  TRAR [ SPC  3  OTRO [ SPC  3  N 
OMBRE  [  SPC  3  APRETANDO  [  SPC  3  RETURN ,  [  SPC  3 
GUAR-" 

418  PRINT "[CRSRU 3 DANDO [SPC3ESTEÍSPC3 
EN [ SPC  3  UNA [ SPC  3  L I STA [ SPC  3  ORDENADA . " 

420  PR I NT " [ CRSRD  3 [ 3SPC 3  PARA [ SPC  3  BORR 
AR [ SPC  3  UN [ SPC  3  TELEFONO [ 2SPC 3  DEBES [ SPC  3 
DE [SPC 3 EN-" 

422  PR I NT  » [ CRSRU  3  TRAR [ SPC  3  UNA [ SPC  3  RE 
FERENC I A [ SPC  3  DEL [ SPC  3  NOMBRE [ SPC  3  DE [ SPC  3 
LA [SPC 3 PER" 

424  PR I NT " [ CRSRU  3  SONA [ SPC  3  V [ SPC  3  AUTO 
M AT I C AMENTE [ SPC  3  QUEDARA [ SPC  3 BORRADO . 

426  PR I NT " [ CRSRU  3  S I [ SPC  3  HAV [ SPC  3  DOS [ SPC  3 
REFERENC I AS [ SPC  3 1 GUALES [ SPC  3  SE [ SPC  3  B 
ORRA-" 

428  PR I NT " [ CRSRU  3  RA [ SPC  3  EL [ SPC  3  PR I ME 
ROÍSPC3DEÍSPC3LAÍSPC3LISTA. " 

430  PR I NT " [ 2CRSRD 3 [ 4CRSRR 3 [ RVSON  3 [ SPC  3 
PULSA  [  SPC  3  UNA  [  SPC  3  TECLA  [  SPC  3  PARA  [  SPC  3 
CONTINUAR [SPC 3" 

432  GETAí  :  IFA#«="  "THEN432 

440  PR I NT " [ CLR  3 [ 2CRSRD  3 [ 9CRSRR  3 [ RVSON  3 

[  2SPC  3  AGENDA  [  SPC  3  TELEFON  I  CAÍ  2SPC  3  " 

450  PR I NT " [ CRSRD 3 [ 1 2CRSRR 3 [ RVSON 3 [ SPC 3 
INSTRUCCIONES [SPC 3" 

460  PR I NT " [ CRSRD  3 [ 3SPC 3  PARA [ SPC  3  BUSC 
AR [ SPC  3  EL [ SPC  3  TELEFONO [ SPC  3  DE [ SPC  3  UN 
AÍSPC3PERS0-" 

470  PR I NT " [ CRSRU  3  NA [ SPC  3  TENDRAS [ SPC  3 
QUE [ SPC  3  ENTRAR [ SPC  3  UNA [ SPC  3 REFERENC I 
AÍSPC3TAL" 

480  PR I NT " [ CRSRU  3  COMO [ SPC  3  L A [ SPC  3  PR I 
MERA [ SPC  3  O [ SPC  3  LAS [ SPC  3  PR I MERAS [ SPC  3 
LETRAS [SPC 3 DE" 

490  PR  I  NT  "  [  CRSRU  3  SU  [  SPC  3  APELL  I  DO .  ENT 
ONCES [ SPC  3  VERAS [ SPC  3  TODOS [ SPC  3  LOS [ SPC  3 

500  PR I NT " [ CRSRU  3  LEFONOS [ SPC  3  DE [ SPC  3 
LAS [ SPC  3  PERSONAS [ SPC  3  CON [ SPC  3 1 DENT I C 
A [SPC 3 RE-" 

510  PRINT" [CRSRU 3 FERENC I A.  " 

520  PRINT"[CRSRD3 [3SPC3SI ÍSPC3QUIERE 
S  [  SPC  3  VER  [  SPC  3  TODOS  [  SPC  3  LOS  [  SPC  3  TELE 
FONOS [SPC 3 DE" 

530  PRINT" [CRSRU3LAÍSPC3LISTAÍSPC3AP 
R I ET A [ SPC  3  RETURN [ SPC  3  V [ SPC  3  LOS [ SPC  3  V 
ERAS [SPC 3 ALFA-" 

540  PR I NT " [ CRSRU  3  BET I CMENTE , [ SPC  3 POR 
[ SPC  3  PANTALLAS [ SPC  3  DE [ SPC  3 1 6 [ SPC  3  NOM 
BRES. " 

550  PR I NT " [ 3SPC  3  CUANDO [ SPC  3  HAVAS [ 2SPC  3 
ACABADO [ SPC  3  DE [ SPC  3  CONSULTAR [ SPC  3  S I " 

560  PR I NT " [ CRSRU  3  HAS [ SPC  3  MOD I F I CADO [ SPC  3 
EL [ SPC  3  F I CHERO  C SPC  3  RECUERDA [ SPC  3  REBO 

570  PR I NT " [ CRSRU  3  B I NAR [ SPC  3  LA [ SPC  3  C I 
NTAÍSPC3HASTAÍSPC3ELÍSPC3LUGARÍSPC3A 
DECUADO [ SPC  3  Y " 

580  PRINT" [ CRSRU 3 APRETAR-6-PARA [ SPC 3 
GUARDAR  í  SPC  3  EL [ SPC  3  NUEVO [ SPC  3  F I CHERO 

660  PR I NT " [ CRSRD  3 [ 4CRSRR  3 [ RVSON  3 [ SPC  3 
PULSA  [  SPC  3  UNA  [  SPC  3  TECLA  [  SPC  3  PARA  [  SPC  3 
CONTINUAR [SPC 3" 

670  GETA* : IFA*»""THEN670 
680  RETURN 


700  I F YC300THEN7 1 4 

702  PRINT"! CLR 3" 

703  OP-18 

704  FÜRWÜ-0TO25 

705  FORX» 1 TO250 • NEXT 

706  PRINTCHRÜOP) » ÍHOM3 C 1 2CRSRD 3 [ 6CRSRR ] 

I  SPC 3 SOLO  ! 3PC 3 PUEDO  C  SPC 3 ADM I T I R  C SPC  3 
300 !  SPC  3  NOMSBRES  " 

707  IF0P-18THENQP-146 • GOTO709 

708  I  FOP-  1 46THEN0P»  1 8 

709  NEXTWQ 

710  RETURN 

714  PRINT" ICLR3  Í2CRSRD3  Í9CRSRR3  ÍRVSON3 
!  2SPC 3  AGENDA ! SPC  3  TELEFON ICAI2SPC3 " 

715  PR I NT  ■ "  I  CRSRD ] £ 9CRSRR 3 I RVSON  3  t 2SPC 3 
ENTRAR ! SPC  3  UN ! SPC  3  TELEFONO  !  SPC  3 " 

720  PR I NT " C  4CRSRD3  C 5CRSRR 3  NOMBRE ¡ I  4SPC 3 
! 10COMM03 " 

730  PRINT"! 2CRSRD3  [ 5CRSRR 3RPELLI DOS  ¡ 

C  SPC  3  [  20COMM0 3  " 

740  PRINT" I2CRSRD3 I5CRSRR3TELEFONO : C2SPC3 
I7COMM03" 

750  PRINT» ÍHOM3I8CRSRD3" : I-0:KK-0;Y- 
Y+ 1 : XX» i 0 : VV-32 :  GOSUB  10000 
755  IFBí<0) -CHRÍ <133 THENY» Y- 1 : 00T075 
0 

760  FOR  J-0  TO  1-1 

770  NQMÍ < V 3 -NÜMÍ <  Y ) +BÍ  <  J ) 

780  NEXT : Ni-BÍ<0) 

790  PRINT» IHQM3 ! 1 1CRSRD3 " : 1-0 : KK-120 

¡XX-20 ¡GOSUB 10000 

795  I FBí  <  0  3  -CHRÍ  < 1 3  3 THEN790 

800  FOR  J-0  TO  1-1 

810  COGÍ<Y)-CÜGÍ<Y>+BÍ<J> 

820  NEXT : Cí-Bí<0) 

830  PR I NT  »  C  HOM  3  C 1 4CRSRD 3 " ¡ I -0 : KK-240 

¡ XX-7 ■ QL» 1 : GOSUB 1 0000 ¡ GL-0 

835  I FBÍ  <  0 ) -CHRÍ  < 1 3 ) THEN830 

840  FOR  J-0  TO  1-1 

850  TELÍ<Y)-TELí<Y)+Bi<J> 

860  NEXT ; Ti-Bí <03 

870  PRINT" C 2CRSRD 3 C 2CRSRR 3 ! RVSON 3 C SPC 3 
S I ! SPC  3  SON  í  SPC  3  LOS ! SPC  3  DATOS ! SPC  3  COR 
RECTOS !  SPC  3  APR I ETA I  SPC  3  i CRSRD  3  » 

880  PR I NT " ! RVSON  3  í  5CRSRR  3  I SPC  3  RETURN 
ÍSPC3SI CSPC3SONCSPC3 INCORRECTOS [SPC 3 
< 1 3  CSPC3 " 

890  GETft# 

900  I Fft* ■ » I » THENGOSUB2000 : GOTO870 

910  IF«íOCHR$<  133THEN890 

980  FORHH-1TOV-1 

990  I FCOGí  <  HH  3  >COGí  <  V  3  THEN 1006 

1000  NEXTHH 

1003  GQTO1040 

1006  RN$*NOM$< V3 

1007  RCí»COG$<V) 

1008  RTí“TELí< V3 

1010  FORFF-YTOHHSTEP-1 

1012  NOM#  <  FF ) »NOM$  <  FF- 1 > 

1013  C0GÍ<FF)»C0GÍ<FF-13 

1014  TELÍ<FF3-TELÍ<FF-13 
1016  NEXTFF 

1020  NOM$<HH3=RN* 

1023  COGÍ <HH3*RCÍ 
1026  TELÍ <HH3aRTí 

1040  PRINT» C CRSRD 3  C RVSON 3 í 2CRSRR 3 [ SPC 3 
S I C  SPC  3  NO  C  SPC  3  ENTRAS í SPC  3  MAS í SPC  3  NOB 
RESCSPC3APRIETACSPC3  <P3  CSPC3 " 

1050  GETAí  ■'  IFRÍ="  "THEN1050 
1060  IFAí“CHRí < 133THEN700 
1070  I FAÍ ■ " P " THEN : RETURN 
1080  GOTO1050 

1234  AL  MENU  GENERAL  CON  RETURN  1234 
56 

2000  PRINT"! 3CRSRU  3 [ 40SPC  3  » 

2002  PRINT" C36SPC3 " 

2005  PRINT" CHUM3 C8CRSRD3 " : I-0:KK-0:X 
X»  1 0  :  W-ASC  <  Ní  3  -64  :  Ul>  1  :  GOSUB  1 0000 
2010  IFBÍ<03»CHR<< 133THEN  2050 


2015  NOM$<V3*" " 

2020  FOR  J»0  TO  1-1 
2030  NOMi<V3-NOM$<Y3+B$<J3 
2040  NEXT • N$»Bf <03 

2050  PRINT» CCRSRD3 » : 1-0 : KK-120 : XX-20 
i VV-ASC  <  Cí  3 -64 : UU-1 : GOSUB 1 0000 
2060  IFB$<03«CHRÍ<133THEN  2100 
2065  COGÍ <V3-" " 

2070  FOR  J-0  TO  1-1 

2080  COGí<V3-COGí<Y)+B$< J3 

2090  NEXT : Cí-Bí<03 

2100  PRINT" I CRSRD 3 » : 1-0 : KK-240 : XX-7 ¡ 

VV-ASC  <  Tí  3 : UU- 1 : GOSUB 1 0000 

2110  I FBI <  0  3 -CHRi <133  THEN  2150 

2115  TELKY3-"" 

2120  FOR  J-0  TO  1-1 
2130  TELÍ< Y3-TELt< Y)+Bi< J3 
2140  NEXT : Tt-Bi<03 
2150  RETURN 

3000  PRINT"! CLR 3 ! 2CRSRD  3 1 9CRSRR  3 ! RVSON  3 
1 2SPC 3  AGENDA I SPC  3  TELEFON I CA ! 2SPC  3 " 

3010  PRINT"! CRSRD  3 1 9CRSRR 3 ! RVSON  3 12SPC3 
BUSCAR ! SPC  3  UN I SPC  3  TELEFONO I SPC  3 " 

3020  PR I NT " 1 3CRSRD  3 ENTRA ! SPC  3 EL ! SPC 3 
APELLIDO^" 

3030  PRINT" I6CRSRD3 I5CRSRR 3 APELLIDO ¡ 

C  2SPC  3 1 20COMMS  3 " 

3032  PRINT" I6CRSRD3 I2CRSRR3 I RVSON 3 ISPC3 
PARAISPC3VERISPC3TODAISPC3LAISPC3LIS 
TA!SPC3PULSA!SPC3RETURNISPC3 " 

3040  PRINT"! HOM 3 í 1 4CRSRD 3 " ¡ I»0;KK-24 
0 : XX-20 : VV-32 ¡ RS-0 ¡ GOSUB  10000 
3050  PR I NT " C CLR 3 ! 2CRSRD 3 1 9CRSRR 3 1 RVSON 3 
1 2SPC  3  AGENDA ! SPC  3  TELEFON I CA ! 2SPC 3 " 

3060  PR I NT » ! CRSRD  3 ! 9CRSRR 3 1 RVSON 3  í  2SPC 3 
BUSCAR I SPC  3  UN  C  SPC  3  TELEFONO I SPC  3  C  CRSRD  3 

3070  IFBi<0)-CHRÍ< 133THENRR-1 
3100  FOR  WU-0  TO  1-1 
3110  IGÍ-IGi+Bí<NN) 

3120  NEXT  UIUJ 
3130  PIG-LEN< IGi) 

3135  PP-0 

3140  FOR  TT-1  TO  Y 
3145  IFRR-1THEN3152 
3 1 50  I FLEFTi <  COGÍ <  TT ) , P I G ) O I GÍTHEN3 
170 

3152  PP-PP+1 

3160  PR I NTTAB  <  0  3  COGÍ <  TT  3 ; TAB  <  2 1 > NOMÍ 

<TT) ; TAB <323 TELÍ <TT) : RS-1 

3170  IF  PPC16THEN  3179 

3172  PP-0 ; PR I NT " í CRSRD  3  í  5CRSRR 3 1 RVSON  3 

í  SPC  3  PARA I SPC  3  CONT I NUAR I SPC  3  PULSA I SPC  3 

RETURN ! SPC 3 " 

3174  GETAÍ  :  IFAlOCHRí!  133THEN3174 

3176  PRINT" ICLR3 12CRSRD3 Í9CRSRR3 IRVSON3 
! 2SPC 3  AGENDA ! SPC  3  TELEFON I CA 1 2SPC  3  » 

3 1 77  PR I NT " ! CRSRD  3 ! 1 0CRSRR 3 ! RVSON  3  C SPC  3 
BUSCAR ! SPC  3  UN  t SPC  3  TELEFONO ! SPC  3 ! CRSRD  3 

3179  NEXT  TT 

3180  IGi»"" :RR»0 

31851 FRS-0THENPR I NT " ! 7CRSRD 3 ! 1 0SPC 3 
NOMBRE ! SPC  3  NO ! SPC  3  EX I XTENTE ! 6CRSRD  3 " 

3190  PRINT"! CRSRD  3 1 5CRSRR 3 ! RVSON  3 ! SPC  3 

PARAISPC3CGNTINUARISPC3PULSAISPC3RET 

URNÍSPC3" 

3380  GETAÍ  ;  IFAÍOCHRÍ!  133THEN3380 
3390  RETURN 

4000  PR I NT " ! CLR  3 ! 2CRSRD 3  í  9CRSRR  3 ! RVSON  3 
! 2SPC 3  AGENDA  í  SPC  3  TELEFON I CA 1 2SPC  3 " 

4010  PRINT" ICRSRD3 19CR3RR3 1 RVSON 3 12SPC3 
BORRAR ! SPC  3  UN ! SPC  3  TELEFONO ! SPC  3 " 

4020  PRINT" I3CRSRD3ENTRAISPC3ELISPC3 
APELLIDO;" 

4030  PRINT"! 6CRSRD 3 1 5CRSRR 3  APELL I  DO ; 

! 2SPC  3 1 20COMM0  3 " 

4040  PRINT"! 5CRSRD 3 1 CRSRR 3 ! RVSON 3 ! SPC 3 
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CU I DADO ! SPC 3 CON! SPC I LO I SPC I QUE! SPC 3 Q 
U I  ERES  I SPC  3  QUE  I SPC ] BORRE  !  SPC  3 " 

4045  PRIHT" ICRSRB3  C6CRSRR3 IRVSON3 ISPC3 
AL  I  SPC  3  MENU  C  SPC  3  GENERAL  C  SPC  3  CON  C  SPC  3 
RETURN ! SPC 3 " 

4050  PR I NT " C HOM 3  !  1 4CRSRD 3 " : I -0 : KK-24 
0  :  XX-20  •  VV-32  GOSUB  1 0000 
4055  I FB$  <  0 ) -CHRÍ  <133  THENRETURN 
4060  FOR  J-0  TO  1-1 
4070  CAG;Í»CAG#+B*(J) 

4080  NEXT 

4085  LF-LENCCAG») 

4090  PRINT" ICLR3 I2CRSRD3 [3CRSRR3 IRVSON3 
C  2SPC 3  AGENDA  C  SPC  3  TELEFON I CA  C  2SPC  3 " 

4100  PRINT" [CRSRD 3 ! 9CRSRR 3 C RVSON 3 ! 2SPC 3 
BORRAR  C  SPC  3  UN  ! SPC  3  TELEFONO  C  SPC  3 " 

4110  PR I NT " I CRSRD  3  C 2CRSRR 3  C  RVSON  3 1 SPC  3 
ESTE [ SPC  3  ES  C  SPC  3  EL  ! SPC  3 HOMBRE  C  SPC  3  QU 
E I SPC  3  HE [ SPC  3  BORRADO : [  SPC  3 [ 6CRSRD 3 " 

4115  JK-0:RS-0 
4120  FOR  T-l  TO  V 

41301 FLEFTÍ ( COGÍ  C  T  3 , LF  3 OCAGÍTHEN4 1 
60 

4140  PRINTTAB(0)COG#(T) j TAB<21 )NQMÍ ( 

T ) j  TAB ( 32 ) TEL$ ( T ) : RS- 1 

4150  JK-JK+1 

4160  IFJK-0THEN4200 

4170  COGI <  T ) -COG* ( T+ JK ) ¡ COG* < T+ JK  > - " 

4180  NOMÍ  <  T  > -NOM*  C  T+ JK ) ¡ NOM*  <  T+ JK ) ■ " 
4190  TEL*(T)-TEL*<T+JK> : TEL*(T+JK>-" 
4200  NEXT 

4205  I FRS-0THENPR I NT " C 1 0SPC 3  NOMBRE [ SPC  3 
NOÍSPC3EXI3TENTE" 

4210  PR I NT " [ 7CRSRD 3  C SCRSRR 3  C RVSON 3  C  SPC  3 
PULSA! SPC  3RETURN [ SPC  3  PARA ! SPC  3  CONT I N 
UARÍSPC3 " 

4230  V-V-JK 

4240  CAG#» " 11  ¡  GETA*  :  I FA*- "  " THEN4240 
4250  RETURN 

5000  PRINT" CCLR3 C2CRSRD3 C9CRSRR3 [RVSON3 
I2SPC3 AGENDA! SPC 3  TELEFON I CA  C 2SPC 3 " 

5010  PRINT"! CRSRD  3 1 9CRSRR 3 1 RVSON  3 ! SPC  3 
GUARDANDO ! 3SPC  3  F I CHERO I SPC  3 1 2CRSRD  3 " 

5020  OPEN1 ,1.1, "AGENDA" 

5030  PRINT#1 , V 
5040  FOR  T-l  TO  V 
5050  PRINT#l,COG*(T) 

5060  NEXT 

5070  FOR  T-l  TO  V 

5080  PRINT#1,NQM$(T) 

5090  NEXT 

5100  FOR  T-l  TO  V 

5110  PRINTH1 ,  TELÍ (T) 

5120  NEXT 
5130  CLOSE1 
5140  RETURN 

6000  OPEN1 , 1 i0i "AGENDA" 

6070  INPUT#1 1 V 
6080  FOR  T-l  TO  V 
6030  INPUTil ,  COGt<T) 

6100  NEXT 

6110  FOR  T-l  TO  V 

6120  INPUT#1 i NOMÍ(T) 

6130  NEXT 

6140  FOR  T-l  TO  V 

6150  INPIJT41 1  TELí(T) 

6160  NEXT 

6170  CLOSE1 

6180  RETURN 

10000  FOR  T-l  TO  30 

10100  GETBíCIi ! IFB*(I>-" "THEN  NEXT  T 

10200  IF  Btí I )-CHRí< 133THENPOKE1400+ 

I+KK.VV: PRINT ¡RETURN 

10210  IFBí! I 3-CHR* (20ÍTHENI-I-2 : QOSU 


B 12200 

10220  I F I C0THEN I -0 : GOTO 1 0000 
10250  I FB*  C  0 ) O " " ANDUU- 1 THENG03UB 1 20 
00 

10300  IFBf (1)0" "THEN  10450 
10400  POKE1400+I+KK>  VV+G : GOTO  10700 
10450  IFB$(  1  )0" "THENVV-32 
10460  MM-ASC(BS(I)) 

10470  I FMM-460RMM»320RMM>47ANDMM<58T 
HENK-0 : GGTÜ10500 

10480  I FMM>64 ANDMMC9 1 THENK-64  ■'  OOTO  10 
500 

10490  OOTO10000 
10500  POKE 1400+1 +KK  j  MM-K 
10600  IFI-XXTHEN 10000 
10650  I-I+l 

10700  IF  G-0  THEN  G- 1 28 : GOTO 10000 
10800  IF  G-128  THEN  G-0 : GOTO10000 
10900  GETAÍ  ■  IFAÍOCHRÍ  ( 133THEN10900 
11000  PRINT: RETURN 

12000  FORU-0TOXX-1  •'  POKE1400+KK+U/ 100 
: NEXT : UU-0 : RETURN 
1 2200  POKE 1 402+ I +KK , 1 00 ¡ RETURN 
13000  PRINT"!CLR3 " 

13010  F0RS-1T0164 

13020  READQ : POKE 1 024+Q , 224 

13030  NEXTS 

13040  PR I NT " ! 1 4CRSRD  3 1 SCRSRR  3  PROGRAM 
AISPC3REALITZADOISPC3POR : " 

1 3050  PR  INT"!  2CRSRD  3  !  7CRSRR  3  «WW 

1 3060  PR  INT"!  7CRSRR  3  **1 2 1  SPC  3  *«  " 

1 3070  PR INT"! 7CRSRR 3  *«  t  SPC  3  JORD 1 1 SPC  3 
CARDONA  I  SPC  3  V I  BAL  !  SPC  3  ¡**  " 

1 3080  PR INT"! 7CRSRR 3  4* C  2 1 SPC  3  ** " 

1 3090  PRINT"! 7CRSRR 3 
«*»*****«" 

13100  FORS-1TO8000 ¡ NEXT ¡ RETURN 
13140  DATA88. 89,90, 92, 93,94, 96, 97, 98 
, 100, 103, 105, 106, 109,110,111 
13150  DATA128, 130, 132, 136, 140, 141, 14 
3, 145, 147, 149, 151 

13160  DATA168, 169, 170, 172, 173, 174, 17 
6, 177, 180, 181,182, 183, 185, 187, 189, 19 
0,191 

13170  DATA208, 210, 212, 214,216, 220, 22 

2,223,225,227,229,231 

13180  DATA248, 250, 252, 253, 254,256,25 

7, 258, 260, 263, 265, 266, 269, 271 

13190  DATA321 , 322, 323, 325, 326,327, 32 

9,333, 334,335,337, 338, 339, 341 , 342, 34 

3,345 

13200  DATA348, 350, 352, 353, 354, 356,35 
7,358 

13210  DATA362, 365, 369, 373, 377, 381 , 38 
3, 385, 386,388,390, 392, 396,398 
1 3220  DATA402 , 405 , 406 , 409 , 4 1 3 , 4 1 4 , 4 1 
7, 418, 421 , 423, 425, 426, 427, 428,430, 43 
2,436 

13230  DATA437, 438, 442, 445, 449,453, 45 
7,461, 463, 465, 467,468, 470, 472, 476, 47 
8 

13240  DATA482, 485, 486,487, 489, 490, 49 
1 , 493, 494,495,497, 501 , 502,503, 505, 50 
8,510 

13250  DATAS  12, 513, 514,516,518 


A  PUBLIC ATIONOF 
CW  COMMUNICATIONS 


Os  envío  una  rutina  que  simula  el  funcionamiento  del 
comando  AUTO. 

Este  comando  es  muy  útil  para  teclear  programas  en  los  que 
los  números  de  línea  de  la  mayoría  de  las  instrucciones  siguen 
un  incremento  constante.  Para  introducir  las  instrucciones  que 
no  siguen  la  norma  general  del  programa  que  estamos 
metiendo  basta  con  parar  la  ejecución  de  la  rutina  y  teclearlas 
normalmente. 

Esta  rutina  tiene  unos  números  de  línea  muy  grandes  para 
dejar  margen  al  programa  que  se  va  a  introducir. 

Una  vez  que  hemos  acabado  de  utilizar  la  rutina,  ejecutando  a 
partir  de  la  instrucción  60400  se  consigue  borrar  la  rutina  y 
dejar  en  memoria  sólo  el  programa  que  nos  interesa. 

La  rutina  funciona  con  ampliaciones  de  8K  ó  16K.  En  caso  de 
no  estar  conectadas  estas  ampliaciones  basta  con  cambiar: 
Línea  60020: 

El  número  4140  por  7724 
4514  por  8098 
Línea  60070*: 

4162  por  7746 
4514  por  8098 

Estos  números  afectan  a  la  memoria  de  pantalla. 

La  rutina  lista  las  últimas  instrucciones  que  hemos  tecleado 
pero  para  modificar  estas  instrucciones  hay  que  salirse  de  la 
ejecución  de  la  rutina.  Es  decir,  una  vez  que  se  está  ejecutando 
la  rutina  sólo  se  puede  actuar  sobre  una  instrucción.  Espero 
que  esta  rutina  os  sirva  de  algo. 


60000  PR I NT " t  CLR  3 [ 6CRSRD  3  DR  C  SPC  3  EL  C  SPC  3 
NUMERO [ SPC 1 I N I C I RL [ 2CRSRD ][ 2SPC ] V C SPC ] 

EL  C  SPC ] I NCREMENTO C 2CRSRD 3 " 

60010  INPUTNI ,  I N ; PR I NT " C  CLR  3 " : POKE90 
3,0 

60020  FORI-4140TO4514STEP22 

60030  I FPEEK  <1)01 80RPEEK  <  I  + 1 )  O50RP 

EEK<  1+2)01  ORPEEK <  I  +3 ) O40RPEEK (  I  +4 ) 

O25THEN60050 

60040  F0RP“IT0I+5 :  POKEP ,  32  '•  NEXT 

60050  NEXT 

60060  S$“" [3CRSRD3 " 

60070  F0RI-4162T04514STEP22 


60080  F0RJ*IT0I+22 

60090  I FPEEK  <  J ) 032THENSS»S*+ " C  CRSRD ] 
11 :  J»  I  +22  '•  QQTO60 110 
60100  NEXT :GOTO60 120 
60110  NEXT: NEXT 

60120  PR I NT " C  HOM  3 " 8* " C CRSRL 3  C BLU 3 " i N 
i; : Bí=STR$<NI ) 

60130  POKE204, 0 

60140  GETfi* : I FRí* " " THEN60 1 40 

60150  I Ffl*-CHR*  <1 3 ) THENPR I  NT : GOTO60 1 


60160  PRINTRÍJ  : BS"BÍ+fl$ 

60170  GOTO60140 

60180  IFK60000THEN602 00 

60190  PR I NT " C  CLR  3  C  BLU  3  NUMERO  [ SPC  3  DE  C  SPC  3 

L I NER  C  7SPC  3  MUV [ SPC  3  GRRNDE " ¡ F0RM-1T05 

000 : NEXT : GOTO60000 

60200  PR I NT " C CLR 3  C WHT3 " ¡ B$ ¡ PRINT " GOT 
060250" 

60210  POKE 1 98 , 3 : P0KE63 1 , 1 9 : P0KE632 , 1 
3 : P0KE633,  13 

60220  C1-INTCNIX256) : R1-NI-C1Í236 : C2 

■  I NT  < I NX256 ) : R2*= I N-C2¡t¡256 

60230  POKE900, C1 :POKE901,R1 :POKE902, 

C2 : POKE903 , R2 : POKE904 , 1 
60240  END 

60250  N I «PEEK <  900 ) É256+PEEK <901) 

60260  I  N=»PEEK  <  902  )  ¡S256+PEEK  <  903  ) 

60270  I FPEEK  <  904 ) «0THENN I -N I + I N : GOTO 


60280  PR I NT"  C CLR 3 L I ST« N I - 1 NiPEEK <  905 
)"-"NI : PRINT"GOTO60250" : PRINT" CBLU3 " 


60290  I FPEEK < 905 ) <3THENPOKE903 , PEEK C 
905)+ 1 

60300  POKE 1 98 , 5 : P0KE63 1 , 1 9 : P0KE632 , 1 

3 : P0KE633 , 1 9 : P0KE634 , 1 7 : P0KE635 , 1 3 : P 

OKE904, 0 

60310  END 

60400  N“60000 ; K*8 

60410  Z-K: PRINT" CCLR3CWHT3"J  : FORM"NT 

ON+40STEP10 : PRINTM : NEXT 

60420  I FN>60380THENK«5 : Z-8 ¡ P0KE637 , 1 

47 : P0KE638,  31 : GOTO60440 

60430  PR I  NT " 60400 C SPC 3 N- " M " : K- " 8 : PR I 


NT"RUNCSPC360400" 

60440  POKE 1 98 , Z : P0KE63 1  -  1 9 : FOR I - 1 TOK 
■•P0KE631 +  1,13:  NEXT 


Mogio 

La  hora  del  programa 

Para  saber  a  qué  hora  has  guardado  un  programa,  escribe 
al  hacer  SAVE... 

SAVE  “nombre”+ti$ 

Has  de  tener  en  cuenta  que  el  nombre  no  puede  tener  más 
de  10  caracteres,  y  previamente  tienes  que  haber  asignado  a 
ti$  la  hora  correcta. 

L.F.S.  RUN  EE.UU. 


Nombres  mágicos 

Prueba  a  salvar  un  programa  en  la  unidad  de  discos  con  el 
nombre: 

CHR$(0)+“NOMBRE  DEL  PROGRAMA” 

Ahora  el  programa  sólo  podrá  cargarse  de  esta  manera. 

B.B.  RUN  EE.UU. 
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Las  reglas  del  juego  vienen  suficientemente  explicadas  en  las 
instrucciones  correspondientes  a  las  líneas  940-1160, 
visualizándose  el  contenido  de  las  sentencias  Print  a 
continuación  de  la  presentación.  Debe  resaltarse  que  las 
condiciones  de  partida  de  cada  una  de  las  17  Comunidades 
Autónomas  es  idéntica  (población,  riqueza,  cultura  y  empleo). 
La  estrategia  del  juego  consiste  en  buscar  la  distribución 
óptima  de  nuestros  votantes  entre  las  distintas  regiones  a  fin  de 
ganar  las  elecciones  en  el  mayor  número  de  ellas. 

El  mapa  está  realizado  con  gráficos  de  baja  resolución,  por  lo 
que  son  apreciables  algunos  errores  y  omisiones  de  accidentes 
geográficos. 

La  música  no  es  original.  Se  trata  de  una  adaptación  efectuada 
por  Pepe  Bermejo  (mi  cuñado)  sobre  temas  regionales  y  sobre 
la  musiquilla  del  “telediario”. 

Realizando  unas  pruebas  sobre  este  programa  me  comentaron 
que  para  seguir  el  desarrollo  de  la  partida  casi  hacía  falta  papel 
y  lápiz.  Mi  respuesta  fue  que  una  forma  de  evitar  papel  y  lápiz 
para  efectuar  complejos  cálculos  estratégicos  era  conveniente 
utilizar  la  opción  “¿cuántos  mueve?”=0,  con  lo  que  se  anula  el 
movimiento  no  sin  antes  observar  el  número  y  distribución  de 
votantes  en  la  región  de  origen  y  en  la  de  destino. 

El  juego  finaliza  una  vez  superado  el  tiempo  prefijado  de 
juego.  Exactamente,  una  vez  celebrado  el  primer  comicio 
electoral  posterior  al  tiempo  de  juego  fijado  al  inicio  de  la 
partida. 


10  VT$=" £H0M3 [29CRSRB3 " : PRINT" [BLK] " 

• GÜSUB  2910 

20  GOSUB  930 ■ REM  INSTRUCCIONES 

30  GOSUB 1 190 : REM  JUGRBORES 
40  GOSUB  1270: REM  ESTABLECE  CONDIC 
IONES  INICIALES  V  TIEMPO  JUEGO 
50  PRINT" [CLR]" : GOSUB  S270  ¡REM  MOV 
V  ELECCIONES 

60  M$=" ( 12SPC] TIEMPO ¡ [3SPC3 "+TI*+" £ 10SPC3 

" : GOSUB  2440 

70  IFTIKTJÍTHEN  50 

80  FOR  1  =  1  T0  17  : PRINT, RíCI>,PG:ía> 

90  FOR  J=1T0NJ: IF  PGí< I )«P$(J)THEN  P 
<J>eP<J)+l 


100  NEXT  J,I 

110  MR— 1  FOR  J«1  TO  NJ¡  IF  PCJ)>MA 
THEN  MA*P< J)  '•  I*J 
120  NEXT  J 

130  M$=" C 1 5SPC 1 GANADOR [ 2SPC 3 " +N*  < I ) + 

"£10SPC3" : GOSUB  3690 : GOSUB  2440 

140  END 

150  GOTO  150 

160  REM  GALICIA 

170  PRINTLEFTííVTí , 33TABC9) ¡ 

180  PR I NT " £  C0MM3  3  £  RVSQN 3  £  SH I FT£  3  £ COMM* I 
£  3CRSRL  3  £  CRSRD  3  £  SH IFT£  3  £  3SPC  3  £  4CRSRL  3 
C CRSRD 3  £  5SPC  3  £ 5CRSRL 3 [CRSRD 3  £ RVSOFF 3 
C  COMM# 3  C  RVSON 3 £ 3SPC  3  £  4CRSRL  3  £  CRSRD  3  £  SH I FT£  3 
C3SPC3 " 

190  RETURN 

200  REM  ASTURIAS 

210  PRINTLEFT*<VT*,4)THBC12)í 

220  PRINT  " C BLK 3  £ RVSON 3  C 4SPC3 £ 3CRSRL 3 

CCRSRD3  C2SPC3 " 

230  RETURN 

240  REM  CANTABRIA 

250  PR I NTLEFTÍ  < VTí , 4 ) THE  <1 6 > i 

260  PR I NT " [ C0MM3 3  [RVSON 3  £  2SPC  3  £ 3CRSRL  3 

C  CRSRD  3  C  3SPC  3  £  2CRSRL  3  £ CRSRD  3  £ SPC  3 " 

270  RETURN 

280  REM  PAIS  VASCO 

290  PRINTLEFTí ( VT$, 33TABÍ 18) 

300  PR I NT " C  BLK  3  £ RVSON 3  £ SH I FT£  3  £ COMM*  3 
£  2CRSRL 3  £  CRSRD  3  £  4SPC  3  C 4CRSRL 3  £  CRSRD  3 
C4SPC3  C 3CRSRL 3  C  CRSRD  3  C  2SPC  3 " 

310  RETURN 

320  REM  FRANCIA 

330  PRINTLEFTí CVT$, 3;TABC22) ; 

340  PR  I  NT 1 11  £  BLK  3  £  RVSON  3  £  9SPC  3  C  RVSOFF  3 
[ SH I FT£  3  £ 9CRSRL  3  C  CRSRD  3  £ RVSON  3  C7SPC3 
C RVSOFF 3  CSHIFT£3  C5CRSRL3 [CRSRD 3  C RVSON 3 
£4SPC3£COMM*3" 

350  RETURN 

360  REM  NAVARRA 

370  PRINTLEFTí < VT*, 4)TAB<22) 1 

380  PR I NT " CC0MM6 3 [RVSON 3 [ SPC 3 [CRSRL  3 

[ CRSRD  3 [ 2SPC  3 [ 3CRSRL 3 [ CRSRD  3 [ 3SPC 3 [ 2CRSRL  3 

[CRSRD 3 [SPC 3" 

390  RETURN 
400  REM  ARAGON 

410  PRINTLEFTíCVTí, 53TABC243 J 

420  PR I NT " [ C0MM3 3 [ RVSON  3 [ 2SPC  3 [ 2CRSRL  3 

[ CRSRD 3 [ 2SPC 3 £ 3CRSRL 3  £  CRSRD 3 [ 3SPC 3 [4CRSRL3 

[ CRSRD  3 [ 4SPC  3 [ 4CRSRL 3 [ CRSRD  3 [ 4SPC  3 [ 5CRSRL 3 

£CRSRB3£5SPC3"; 

430  PR I NT " [ RVSON  3 [ 5CRSRL 3  £  CRSRD  3  £  4SPC 3 
[ 3CRSRL 3  £  CRSRD  V  ¿SPC 3  £  CRSRL  3  £  CRSRD  3  £  SPC  3 
" : RETURN 

440  REM  CATALUÑA 

450  PRINTLEFTÍÍVTÍ, 53TABÍ26)  i 

460  PR I NT " £ C0MM6 3  £  RVSON 3  £  SPC  3  £  CRSRL  3 

£  CRSRD  3  £  5SPC 3  £  5CRSRL 3  £  CRSRD  3  £  5SPC 3  £  5CRSRL  3 

£  CRSRD  3  £  4SPC 3  £  RVSOFF 3  £  SH I FT£  3 " ; 

470  PR  I  NT  "  £  RVSON  3  £  5CRSRL  3  £  CRSRD  3  £  2SF'C  3 
£  RVSOFF  3£SHIFT£3£  3CR8RL  3  £  CRSRD  3  £  RVSON  3 
£  SPC  3  £  RVSOFF  3  £  SH I FT£  3 " ¡ RETURN 
480  REM  CASTILLA  LEON 
490  PRINTLEFTÍ<VT*,6)TABÍ12>; 

500  PR I NT " £ C0MM6 3  £  RVSON  3  £  4SPC  3  £  CRSRR  3 
£2SPC3 [7CRSRL3 [CRSRD3 [7SPC3 [7CRSRL3 [CRSRD3 
[6SPC3 " ; 

510  PR I NT " £  RVSON  3  £  5CRSRL 3  £  CRSRD  3  £  5SPC  3 
£  CRSRR  3  £  3SPC  3  £  9CRSRL 3  £  CRSRD  3  £  8SPC  3  £  9CRSRL 3 
£CRSRD3£9SPC3“J 

520  PR I NT " £  R VSON  3  £  9CRSRL  3  £  CRSRD  3  £  6SPC  3 
£  6CR3RL  3  £  CRSRD  3  £  SPC  3  £  CRSRR  3  £  3SF'C  3  " ;  : 

RETURN 

530  REM  RIO JA 

540  PRINTLEFTÍ <VTí , 7)TAB< 19) í 
550  PR I NT " £  UHT  3  £  RVSON  3  £  3SPC 3  £  4CRSRL 3 
£  CRSRD  3  £  4SPC  3  £  4CRSRL  3 [CRSRD 3 £SPC3 " ¡ R 
ETURN 

560  REM  PORTUGAL 
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570  PRINTLEFTÍ C VTÍ, 8>TAB<8) i 
580  PRINT" £  BLK  3  C  RVSON  3  £ 4SPC 3  £  4CRSRL  3 
£  CRSRD ] £ 5SPC ] C  5CRSRL 3 C CRSRD 3 £ 53PC 3 £ 5CRSRL 3 
£ CRSRD  3  E  4SPC 3 E 5CRSRL3 C  CRSRD  3 " ; 

590  PR I NT " £ RVSON 3  CSH IFT£  3  C  4SPC3  C 5CRSRL 3 
£  CRSRD  3  £  5SPC  3  C  5CRSRL 3  £  CRSRD  3  £  5SPC 3  £  5CRSRL 3 
£  CRSRD  3  £  4SPC  3  C  3CRSRL  3  £  CRSRD  3  £  3SPC 3 " ; 

600  PR I NT " E  RVSON 3  £  3CRSRL  3  £  CRSRD3  £  4SPC  3 
£  5CRSRL 3  £  CRSRD  3  £  SH I FT£ 3  £  3SPC  3  £ 4CRSRL 3 
ECRSRD3  E3SPC3 " 

610  RETURN 

620  REM  EXTREMADURA 

630  PR I NTLEFT*  < VT* - 1 3  3 TAB <1 3  >  ; 

640  PR I NT " £  WHT  3  £ RVSON  3  £  SPC  3  £ 2CRSRL 3  £  CRSRD  3 
£  3SPC 3  £  4CRSRL  3  £ CRSRD  3  £  5SPC  3  £  5CRSRL  3  £  CRSRD  3 
£  4SPC  3  £  3CRSRL  3  £  CRSRD  3  £  23PC  3 " : RETURN 
650  REM  MADRID 

660  PRINTLEFT*<VT*,12>TAB<18); 

670  PR I NT " C  CÜMM3  3  £  RVSON  3  C  SPC  3  C  2CRSRL  3 

ECRSRD3E3SPC3" ¡RETURN 

680  REM  CASTILLA-LA  MANCHA 

690  PR  INTLEFTI < VT* ,  1 2 ) TAB 09); 

700  PR I NT " £  BLK  3  £ RVSON 3  £  3SPC 3  £  2CRSRL 3 
£  CRSRD  3  £  3SPC  3  £  8CRSRL  3  £  CRSRD  3  E  9SPC  3  £  8CRSRL 3 
£ CRSRD 3 

710  PRINT" £  RVSON  3  £  7SPC  3  £  SCRSRL 3  £  CRSRD  3 
E  7SPC 3  £  6CRSRL  3  £  CRSRD  3  E5SPC3 " ¡ RETURN 
720  REM  VALENCIA 
730  PRINTLEFT*£VT$01)TAB<25); 

740  PRINT" £ WHT 3  £ RVSON  3  £  SPC  3  £  RVSOFF 3  C  SH I FT£  3 
£  3CRSRL 3  £  CRSRD  3  £  RVSON  3  £  SPC  3  £  RVSOFF 3  £  SH I FT£  3 
£  2CRSRL 3  £  CRSRD  3  £  RVSON  3  £  SPC  3  £  COMM*  3  £  2CRSRL  3 
£ CRSRD 3  £  2SPC  3  £  3CRSRL  3  £  CRSRD  3  £  2SPC3  £  RVSOFF  3 
£  SH I FT£  3  £  SCRSRL  3  £  CRSRD  3  £  RVSON  3  £  SPC  3  £  RVSOFF  3 
£  SH I FT£  3  £  2CRSRL  3  £  CRSRD  3  £  SH I FT£  3 " 

750  RETURN 

760  REM  BALEARES 

770  PR1 NTLEFT* CVTí, 12>TAB<29), 

780  PR  I  NT  "  £  BLK  3  £  RVSON  3CSHIFT£3E  CRSRL  3 
E  CRSRD  3  £  RVSOFF  3  £  COMM*  3  £  SH I FT£  3  £ CRSRR 3 
E2CRSRU3  E COMMO  3  E2CRSRD3  E 4CRSRL 3  £  2CRSRD 3 
£ CRSRL 3 ESHIFTQ3 " ¡ RETURN 
790  REM  MURCIA 

800  F'RI NTLEFT* CVTí,  15)TABÍ22); 

810  PRINT"! COMM 3 3  £  RVSON 3  £  SPC  3  £  2CRSRL 3 

£  CRSRD  3  £  2SPC 3  £  SCRSRL  3  £  CRSRD  3  £  3SPC  3  £  2CRSRL 3 

ECRSRD 3 E2SPC3" ¡RETURN 

820  REM  ANDALUCIA 

830  PR I NTLEFT *¡<  VT* , 17)TAB<14); 

840  PRINT"! C0MM6 3  ERVS0N3  E2SPC3E SCRSRL  3 
ECRSRD3  E10SPC3 £  1 1 CRSRL 3  £ CRSRD 3  £  1 1SPC3 
ERVSÚFF3  ESHIFT£3 " ; 

850  PR I NT " £  1 1 CRSRL  3  £  CRSRD  3  £  RVSOFF  3  £  COMM*  3 
£  RVSON 3  £  9SPC 3  £  9CRSRL  3  £ CRSRD  3  £  RVSOFF 3 
£  COMM*  3  £  RVSON 3  £  2SPC 3  £  RVSOFF  3  £  SH I FT£  3 
£  2CRSRR 3  £  COMM* 3  £  SH I FT£  3  £  7CRSRL  3  £  CRSRD  3 
£  RVSON 3  £  SPC  3  £  RVSOFF  3  £  SH I FT£  3 “ ; 

860  RETURN 
870  REM  CANARIAS 

880  PR I NTLEFT*  í  VT* , 20 ) TAB  <  27  > " C  SH I FTO  3 
£ 12CQMMV3 £  1 SCRSRL 3  £ CRSRD 3  £ COMMO 3  ECRSRD 3 
£  CRSRL  3  £  COMMO 3  £  CRSRD  3  £  CRSRL  3  £  COMMO  3  £  CRSRD  3 
£  CRSRL  3  £  COMMO  3  £  CRSRD  3  £  CRSRL  3  £  COMMO  3  E  CRSRU  3 

890  PR I NTLEFT*  <  VT* , 23 ) TAB  <  29) ; 

900  PR I  NT " £  BLK  3  £  SH I FTO  3  £  CRSRR  3  £ COMM*  3 
£  SH I FT£  3  £  CRSRL  3  E  CRSRU  3  £  COMMO  3  £  CÜMMF 3 
£  CRSRR 3  £  SH I FTQ  3  £  CRSRR  3  £  CRSRD  3  £  RVSON 3 
£  COMMK  3  £  CRSRL  3  £  CRSRU  3  £  COMM J  3  £  RVSOFF  3 
ECRSRU3  ESHIFTQ3 " 

910  RETURN 

920  FOR I = 1 TO5000 ¡ NEXT I ¡RETURN 

930  PRINT" £ COMM 1 3 " 3 

940  PR I NT " £  CLR  3  £  CRSRD  3 EL  £  SPC  3  TERR I TO 

RIO! SPC 3  ESPAÑOL  £  SPC  3  ESTA  E SPC  3  ÜRGAN I Z 

ADO  £  SPC  3  EN 1 7  £  SPC  3  COMUN I DADES  £  SPC  3  AUT 

ONOMAS. " 

950  PR I NT " £  CRSRD  3  AL  £ SPC  3 1 N I C I O  £  SPC  3  D 


EL  £  SPC  3 JUEOÜ  £  SPC  3  TODAS! SPC  3  LAS  £  SPC  3  R 
EG I ONES  £  2SPC  3  T I EHEN  £  SPC  3  LA  £  SPC  3  M I SM A 
ESPC3 " ; 

960  PR I NT " CAPAC I DAD  £  SPC  3  DE  £  SPC  3  DESAR 
ROLLO! SPC 3 SOCIOECONOMICO £SPC 3 " , 

970  PR I NT " QUE  £  SPC  3  SE  £  SPC  3  ALTERARA  C  23PC  3 
DURANTE  £  SPC  3  EL  £  SPC  3  CURSO  £  SPC  3  DE  £  SPC  3 
LA £SPC 3 PARTI DA. " 

980  PR I NT " £  CRSRD  3  EL  £  SPC  3  OB JET I VO  £  SPC  3 
DE  £  SPC  3  CADA  £  SPC  3  JUGADOR  £  SPC  3  ES  £  SPC  3  O 
BTENER £ 2SPC 3  EL  £  SPC  3  GOB I ERNO £  SPC  3  EN  £  SPC  3 
EL", 

990  PR I NT " £  SPC  3  MAVOR  £  SPC  3  NUMERO  £  SPC  3 
DE  £  SPC  3  REG I O-NES . " 

1 000  PR I NT " £ CRSRD3 INICI ALMENTE £ SPC 3 S 
E£ SPC 3  INTRODUCEN! SPC 3 LOSE SPC 3 NOMBRES 
£  2SPC  3  DE  £  SPC  3  LOS  £  SPC  3  JUGADORES  £  SPC  3 " 

1010  PR  I  NT "  V  £  SPC  3  EL  £  SPC  3  T I  EMF'OE  SPC  3  D 
E£ SPC 3 JUEGO.  " 

1 020  PR I NT " £  CRSRD  3  LA  £  SPC  3  PART I DA  £  SPC  3 
SE  £  SPC  3  DESARROLLA  £  SPC  3  DE  £  SPC  3  LA  £  SPC  3 
SIGUIENTEFÜRMA ¡ " ¡GOSUB  920 
1 030  PR I NT " £  CRSRD  3  CADA  £  SPC  3  JUGADOR [ SPC  3 
POR  £  SPC  3  TURNO  £  SPC  3  DE  £  SF'C  3  JUEGO  £  SPC  3  P 
UEDE  £  3SF'C  3  ORDENAR  £  SPC  3  UN  £  SPC  3  MOV  I M I E 
NTÜESPC3"; 

1 040  PR I NT " M I GRATOR I O  £  SPC  3  DE  £  SPC3RE- 
£  SPC  3  G I ON  £  SPC  3  A  £  SPC  3  REG I ON  £  SPC  3  TR ASL 
ADANDO , £  SPC  3  DE  £  SPC  3  ESTA  £  SPC  3  FORMALOS 

1 050  PR  I  NT  "  £  SPC  3  VOTOS  £  SPC  3  DE  £  SPC  3  SU  £  SPC  3 
PARTI  DO  £  SPC  3 AL  £  SPC  3  OBJETO  £  SPC  3  DE  £  SPC  3 
GA-NARE SPC 3 LASE SPC 3 ELECCIONES.  " 

1060  GOSUB  920 ¡PRINT "ECRSRD 3 DESPUES! SPC 3 
DE  £  SPC  3  CADA  £  SPC  3  MOV I M I ENTO  £  SPC  3  M I  GR A 
TOR I O  £  3SPC  3  T I  ENE  £  SPC  3  LUGAR  £  SPC  3  "  J 
1070  PR INT" UN  £  SPC  3  ACÜNTEC I M I ENTO  £  SPC  3 
ALEATOR I ÜESPC 3  QUE  £  SPC  3 AFECTARA  £  SPC 3  A 
£ SPC 3 LAS £ SPC 3 COND I C I ONES £ SPC 3 " , 

1 080  PR I NT " I N I C I RLESDE  £  SPC  3  CADA  £  SPC  3 
REG I ON  £  SPC  3  VE  SPC 3  A  £  SPC  3  LOS  £  SPC 3  VOTOS 
£  SPC  3  DE  £  SPC  3  LOS  £  SPC  3  PAR- T I DOS  £  SPC  3  QU 
EESPC3 " ; 

1 090  PR I NT " ESTAN  £  SPC  3  PRESENTES £  SPC  3  E 
N  £  SPC  3  LAS  £  SPC  3  REG I O- £  SPC  3  NES £  SPC  3  AFE 
CTADAS. " 

1100  GOSUB  920 ¡PRINT "ECRSRD 3 CUANDO! SPC 3 
HAN  £  SPC  3  JUGADO  £  SPC  3  TODOS  £  SPC  3  LOS  £  SPC  3 
PART I DOS  £  4SPC  3 " ; 

1110  PRINT" DURANTE  £  SPC  3  CUATRO  £  SPC 3  AN 
OS  £  SPC  3  <  CUATRO  £  SPC  3  MOV I M I ENTOS ) " ; 

1 120  PR I NT “ T I ENEN  £  SPC  3  LUGAR  £  SPC  3  LAS  £  SPC  3 
NUEVAS  £  SPC  3  ELECC I ONES £  SPC 3  QUE  £  2SPC  3 " 

1130  F'RI  NT  "ESTABLECERAN!  SPC  3  HUEVOSE  SPC  3 
GOB  I ERNOS  £  SPC  3  EN  £  SPC  3  LAS  £  4SPC  3  REG  I  ON 
ESE  SPC 3  AUTONOMAS . " 

1140  GOSUB  920  ¡  F'R  I  NT  "ECRSRD  3  SE  [SF'C  3  R 
EP I  TE  £  SPC  3  EST  A  £  SPC  3  SECUENC I A  £  SPC  3  HAS 
T  A  £  SPC  3  AGOTAR  £  SPC  3  EL  " ; 

1 1 50  PR  I  NT "  T I  EMF'O  £  SPC  3  DE  £  SPC  3  JUEGO  £  SPC  3 
PREFI JADOE2SPC3 " 

1160  PR  I  NT  "  £  2CRSRD  3  £  RVSON  3  £  6SPC  3  F'ULS 
E  £  SPC  3  UNA  £  SPC  3  TECLA  £  SPC  3  PARA  £  SPC  3  CON 
TINUARE4SPC3" 

1170  GET  RE* ¡ IF  REÍ-" "THEN  1170 
1180  RETURN 

1190  I NPUT " £ CLR  3  £  3CRSRD 3  NUMERO  £  SPC  3  D 
E  £  SF'C  3  JUGADORES  £  3 SPC  3  3  £  SCRSRL  3  " ;  RE* 

1200  IF  RE*< " 2 " GRREí> "9 " THEN  1190 
1210  NJ-VAL CREÍ) ¡FOR  1=1  TO  NJ ¡ PRINT 
“ E2CRSRD 3 NOMBRE ESPC 3  JUGADOR" ;  I  ¡  INF'UT 
Ní(I) 


";Pí<I>  ¡F'RINT,  íF'ÍCI)  ¡P*CI)=LEFT*<F'Í< 

I), 7) ¡NEXT  I 
1230  RETURN 

1240  INF'UT  "  T I  EMF'O  £  SPC  3  DEC  SPC  3  JUEGO  £  SPC  3 
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<  HHMMSS  )  C  SPC 3 0 1 0000  í  8CRSRL  3  "  i  REÍ 
1250  T Ií=" 000000 " :TJÍ=REÍ 
1260  RETURH 

1270  DIN  CRa?j3),V<NJ,17),Rííl7),R< 
20),PGÍ<1?> 

1280  FOR  1  =  1  TO  17:  FOR  J=1T0  3CRO 
,J>«100:NEXT  J , I : D1H  SG*(39>jCG(39j3 

1230  FOR  1=1  TO  13: REñD  SGííI ) i CGí I , 

1), CGÍ 1,2), CGí 1,3)  ;NEXT  I 

1300  FOR  1  =  1  TO  20 : READ  SGÍÍ13+I),CG 

<13+1, l>,CGa9+I,2),CGÍ19+I,3)  •  NEXT 

I 

1310  FOR  1=1  TO  17 ; READ  RÍ<I>:NEXT  I 

1320  FOR  1=1  TO  17 ;  FOR  J=1T0  NJ:V<J 
, I )  =  I NT  < 1 600O000/ 1 7/NJ > : NEXT  J - 1 
1330  FOR  1=1  TO  20= REñD  RíD'NEXT  I 
1340  GOSUB  1240 
1350  RETURH 

1360  FOR  J=1  TO  N  J  •'  F’R  I  NT "  [  BLK  3  C  CLR  3  C  2CRSRD 1 
JUEGA! SPC 3 " 1NÍ í J) 

1370  FOR  1-1  TO  17PRINT  , I  TABÍ15), 

Ríí  I)  :NEXT  I 

1380  INPUT  " C  2CRSRD  3  REG I QN  C  SPC  3QR I GE 
N C SPC 3 MOV IMIENTOC SF'C  3 M I GRft TOR I O "  ,  REÍ 
:  0=VALÍREÍ ) 

1330  IF  REÍ C " 1 " ÜRREí > " 3 " THEH1 380 
1400  INPUT  " REG I OH  C  SPC  3  DE ST I Nú  C  SPC  3  M 
O V I M I ENTO C SPC 3 M I GRflTOR 1 0 " ,  RE S 
1410  IF  REÍ < " 1 " 0RRE1> " 3 " THEH 1 400 
1420  D=VñL<REÍ) :  IF  OO  ORDO  ÜR0>1  FORD 
>170R  0=D  THEH  1360 
1 430  PR I NT " [ CLR  3  C  CRSRD3 CRVS0N3 ÜR I GEN 
:  i  R'VSOFF  3  L  CRSRD  3  L  5CRSRR  3 " PGÍ  <  O  > ; 

1440  IF0C9THEN0N  O  GOSUB  180,220,260 

, 300 , 380 , 420 , 460 , 500 

1450  I F0>8ñND0C 1 6THEN0N  0-8  GOSUB  55 

0 , 670 , 70O , 740 , 780 , 640 , 840 

1460  IF0M5THEH0N  0-15  GOSUB  810,900 

1470  FR I  NT "  C  BLK  3  C  HOH  3 1 2CRSRL  3  "  •'  FOR  I 
=1  TO  NJ 

1480  F'RINT  TRB<25>PÍ<I)TñB<30)V<I,G) 

1430  NEXT  I 

1 500  PR I NT " t  HOM  3  L 1 0CRSRB  3  C R V3QN  3  DEST 
I NO C  RVSOFF 3  í CRSRD 3  í 5CRSRR 3 "PGÍ  í D  ) ; 

1510  IFDC9THEN0N  D  GOSUB  180,220,260 

,  300 , 38G , 420 , 460 , 500 

1520  I FD>8ANDD< 1 6THEN0ND-8G0SUB  550, 

670 ,700,740, 780 ,640,840 

1530  I FD> 1 5THENQND- 1 5G0SUB  810,300Efl 

DV. 

1 540  PR I NT " C BLK  3 [ H0M3 C 1 2CR3RD 3 " : FOR 
1=1  TO  NJ 

1550  F'RINT  TflB<25)FÍ<I)TñB<30)V< I , D> 

1560  NEXT  I 

1570  INPUT  " [ 4CRSRD 3 CURNT03 1 SPC 3MUEV 
E  C  SPC  3  < 0 : ñWULRR > " , REÍ 
1580  IF  REÍC"0"0R  REÍ > " 33333333333 " T 
HEN  1570 

1530  M=VflLCREÍ> : IF  M>V<J,0>0R  M=0THE 
N  1 J60 

1¿0O  REM  ****  ñCEPTñDO  MOV  **** 

1610  V< J, 0)=Ví J, 0>-M : VC J, D>=VC J, D)+M 

1620  REM  ****  GENERACION  DEL  SUCESO 
í  íí 

1 630  M= I NT i  1 +33ÍRND < 0  >  > 

1640  R= I NT < 1  + 1 7ÍRND < 0  > ) 

1650  IF  M> 1 3  THEN  R=RCM-133 :Mí=SGí<M 
> : GOTO  1670 

1660  Mí=  RÍCR3+" : CSPC3 "+SGí 
1 670  PR I NT " [ CLR  3  C  4CRSRD 3  C  RVSQN3N0T I C 
I AS  C  8CRSRL 3 [ 2CRSRD 3 " +HÍ : GOSUB  3630 
1680  Mñ=- 1 : NH=0 

1630  FOR  1=1  TO  NJ.’IF  Va,R»=Mfl  THE 


N  Mfl=V< I , R> : GB=I : NM=NM+ 1 : IF  NM=1 THEN 
Ml=Mfl 

1700  NEXT  I : PGÍ CR)=Pí(GB) ; IF<NM=NJ)fl 
NDCMñ=Hl> THEN 1860 

1710  NE=INT<aCG<M, 23/100+1 >*CR<R, 2) ) 
1 720  NC= I NT  <  <  CG  < M , 3 ) /1 00+ 1 ) *CR  < R , 3 ) > 
1730  NI=INTC<CG<M, 1 3/100+1 )*CR<R, 1)3 


1740  NS=NE+NC+NI 

1750  Nfl=CR  <  R , 1 >  +CR <  R , 2 ) +CR  <  R , 3 ) 

1760  EV  =  I  NT  (.  i  NS-Nfi  )  /Nfl*  100):  REM  F'O 

RCENTñJE  GANDO  O  PERDIDO 

1770  CRCR, 1 ) — N I : CRCR, 2)=NE : CRCR, 3)=N 

1780  SV=0  :  FOR  1  =  1  TO  NJ  ■'  IFIOGBTHENS 
V=SV+V< I ,  R) 

1730  NEXT  I 

1 80O  VG= I NT < EV* V < GB , R) / 1 00 ) : I F  VG>SV 
THENVG=SV 

1810  VC=-INTCVG/<NJ-1>) 

1820  FOR  1=1  TO  NJ 

1830  IFI=GBTHEN  VCGB, R)=V<GB, R)+  VG: 

GOTO  1850 

1840  VÍI,R)=V':i,R)+  VC 
1850  NEXT  I 

1 860  F'R  I  NT  "  [  HOH  3  [  1 GCRSRD  3  CRVSON  3  REG  I 
ON C SPC 3 AFECTADA C RVSOFF 3  í CRSRD 3  C 5CRSRR 3 
"PGÍ (R) J 

1870  IFRC3THEN0N  R  GOSUB  180,220,260 

,  3O0 , 380 , 420 , 460 , 500 

1880  I FR/8ANDRC 1 6THENÜN  R-8  GOSUB  55 

ü, 670, 700, 740, 780, 640,840 

1830  IFR/15THEN0N  R-15  GOSUB  810,300 


1 900  PR  I  NT "  C  BLK  3  C  HOM  3  [  1 2CRSRD  3  "  :  FOR 
1=1  TO  NJ 

1310  F'RINT  TAB<25)F'Í  <  I  )TABC30)V<  I ,  R) 


1920  NEXT  I 
1330  GOSUB  320 -NEXT  J 
1340  RETURH 
1950  GOSUB  160 
1960  GOSUB  200 
1370  GOSUB  240 
1380  GOSUB  280 
1330  GOSUB  320 
2000  GOSUB  360 
2010  GOSUB  400 
2020  GOSUB  440 
2030  GOSUB  480 
2040  GOSUB  530 
2050  GOSUB  560 
2060  GOSUB  620 
2O70  GOSUB  650 
2080  GOSUB  680 
2030  GOSUB  720 
2100  GOSUB  760 
2110  GOSUB  730 
2120  GOSUB  820 
2130  GOSUB  870 
2140  RETURN 

2150  F'RINT "CCLR3":  GOSUB  1350:  FOR  L=1 
TO  17:MA=-1 :NH=0 

2160  Mí = " C  323FC  3 " +RÍ  <  L ) + " : C2SPC3 JORN 
ADA  C  SPC  3  ELECTORAL " 

2170  GOSUB  2440 
2180  FOR  K=1T0  NJ 

2130  IF  VCK,L)>=MATHENMA=VÍK,L) :GB=K 

: NM=NM+ 1 : I FNM= 1 THEN  M 1 =MA 

2200  NEXT  K : PGÍ <L ) =Pí < GB ) : I F C NH=NJ ) A 

ND<Mfl=Ml)THEN  PGííL)=" " : GOTO  2260 

2210  FOR  K=1  TO  NJ 

2220  Mí = " L 37SPC 3 " +PÍ  < K ) +STRÍ  < V  í K , L ) ) 

•GOSUB  2440 

2230  NEXT  K 

2240  Mí = " C  34SPC 3  GANA [ SPC  3  ELECC 1 0NE3  C  SPC  3 
"+PGÍ(L)+"C3SPC3" 


2250  PR  I  NT  “  E  HOM 3 E CRSRD 3  E 1 6SPC 3 " ¡GOSU 
B  3530 : GQSUB2440 
2260  NEXT  L  '•  RETURN 

2270  FOR  MV= 1  TO  4:G0SUB  1360: NEXT  M 
V 

2230  GGSIJB  2150 
2230  RETURN 

2300  PR I NTLEFTÍ ( VTf , 5  >  TflB  < 26  > , 

2310  F'R  I  NT "  E  BLU  3  E  RV3GN  3  [  3PC  3 E CRSRL  3  E  CRSRB  3 

C  53PC  3  C  5ÜRSRL 3  E CRSRD  3  E  5SPC  3  E 5CRSRL 3  E CRSRD  3 

[ 43PC 3  E  RVSGFF 3 E SH I FT£  3 " - 

2320  FR I  NT  "  E  RVSON  3  E  5CRSRL  3  E  CRSRD  3  E  2SF'C  3 

E  R VSOFF  3  E  SH I FT£  3  E  3CRSRL  3  E  CRSRD  3  E  R VSON  3 

C  SPC  3  E  RVSGFF  3  CSHIFT£3 " ; RETURN 

2330  PR I NTLEFTÍ  < VTí , 20  >  TflB  <  27  3 " E 3H I FTO  3 

C 1 2C0MMV 3 E 1 3CR3RL 3  E CRSRD 3  E COMMG 3 E CRSRD  3 

E CRSRL 3  C  COMMG 3  E CRSRD 3  C  CRSRL  3 E COMMG 3  C  CRSRD  3 

C  CRSRL  3  C  COMMG  3  E  CRSRD  3  E  CRSRL  3 E COMMG  3  E CRSRU  3 

2340  PR I NTLEFTi í VTí -  23 > TflB <  23  > , 

2350  PR I NT " E  BLU  3  C  SH 1 FTO  3  E CRSRR 3 [ COMM* 3 
E SH I FT£  3  E CRSRL  3  E  CRSRU  3 E COMMO  3  ECOMMF 3 
E  CRSRR  3  E  SH I FTÜ  3  E  CRSRR  3  E  CRSRD  3  C  RVSON  3 
ECOMMK3  E CRSRL 3  C CRSRU 3  CCOMMJ3  E RVSOFF 3 
CCRSRU3  C3HIFTQ3 " 

2360  RETURN 

2370  PR I NTLEFTi <  VTÍ , 3  > TflB <1 8> 

2380  PR INT'T BLU 3  C RVSON 3  E SH I FT£ 3  C COMM* 3 
E  2CRSRL  3  E  CRSRD  3  E  4SPC  3  E  4CRSRL  3  C  CRSRD  3 
E 4SPC  3  C 3CRSRL 3  C CRSRD 3  C 2SPC 3 " 

2330  RETURN 

2400  PRI NTLEFTi CVT4U  17)TflBC14>, 

2410  PR I NT " E  BLU  3  E RVSON 3  E 2SF'C 3  E 5CRSRL 3 
E  CRSRD  3  E 1 0SPC 3  E  1 1 CRSRL  3 E CRSRD  3  C 1 1 SPC  3 
C  RVSOFF  3  C  SH I FT£  3 "  1 

2420  PR I NT " El  1 CRSRL 3 E CRSRD 3 E RVSOFF 3 E COMM* 3 
E  RVSON  3  E  3SPC 3  E  3CRSRL 3  E  CRSRD  3  E  RVSOFF 3 
E  COMM* 3  E  RVSON 3  E  2SPC  3  E  RVSOFF  3  E  SH I FT£  3 
E  2CRSRR 3  E  COMM* 3  E  SH I FT£  3  E 7CRSRL 3  E  CRSRD  3 
E  RVSON 3  E  SPC  3  E  RVSOFF  3  E  SH I FT£  3 " , 

2430  RETURN 

2440  FOR  1=1  TO  40 

2450  F’RINT  LEFT*<VT$,2)LEFT*<MÍ,40> 

2460  M$=R IGHTíC Mí , LEN  <  Mi 3  - 1 >  +LEFT* ( M 

t,V) 

2470  FOR  T=1  TO  20 : NEXT  T ^ I • RETURN 
2480  DATA  "INVERSI ONE SPC 3 EXTRANJERA" 

, 10, 10, 1 

2490  DATA  "ESCUELA" , 5, 3, 10 

2500  DATA  " POL I DEPORT I VOS ",7,1,4 

2510  DATA  "  EQU I  F'fiM  I ENTO  E  SPC  3  COLECT I V 

O  E  SPC 3  COMER — C I AL ",  7 , 8 , 1 

2520  DATA  "HOSPITAL ",8,7,0 

2530  DATA  "CARRETERA" , 10, 5, 0 

2540  DATA  "AUTOPISTA", 15,6,0 

2550  DATA  "ESTABLECIMIENTO! SPC 3 EMPRE 

Sfl  E  SPC  3  F'IJBL  I  -Cfl " ,  8 , 10,0 

2560  DATA  " NUEVO E SPC 3 HOTEL ", 6, 5, 1 

2570  DATA  " ATENTADO E SPC 3  TERROR I ST A " , 

-1,0,0 

2580  DATA  "DESCUBIERTO! SPC 3 TRAFICO! SPC 3 
DE E SPC ] DROGAS '  -  1 .O.-l 
2590  DATA  "ESTABLECI M I ENT O E SPC 3 DE E SPC 3 
NUEVA  E  SPC  3  L I NE- A  E  SPC  3  DE  E  SPC  3  FF .  CC .  " , 

15, 16,0 

2600  DATA  "ESTABLECIA I ENTO ESPC3DEESPC 3 
NUEVO  E  SPC  3  AERO-PUERTO ",20,8,0 
2610  DATA  "AUMENTAN! SPC 3 DELITOS! SPC 3 
COMUNES ",-l,- 1,0 

2620  DATA  " ESCANDALO ESPC3 POLI  TICO ",0 
,-1,-2 

2630  DATA  "CRISISESPC3PARTID0" ,0,0,0 

2640  DATA  "C IERRE! SPC 3EMPRESA" , -10, - 
10,0 

2650  DATA  “CIERRE! SPC 3 EMPRESA ",-3,-3 
,0 

2660  DATA  "CIERRE ESPC3EMPRESA" , -8, -8 


2670  DATA "CASTILLAE SPC ILEON : ESPC3BUE 
NA! SPC 3 COSECHA", 1,7,0 
2680  DATA " CAST ILLA! SPC 3 LA E SPC 3 MANCHA 
■  ESPC3 BUENA  E  SPC  3  COSE-CHA ",1,7,0 
2690  DATA"RIOJA: ESPC3BUENAESPC3COSEC 
HA", 1,7,0 

2700  DATA" MURCIA: E SPC 3 BUENA! SPC 3 COSE 
CHA", 1,7,8 

2710  DATA " VALENC Ifl; E SPC 3 BUENA! SPC ICO 
SECHfl", 1,7,0 

2720  DATA "ANDALUCIA : E SPC 3 BUENA! SPC 3 C 
OSECHfl", 1,7,0 

2730  DATA " FA I S  E  SPC  3  VASCO : E  SPC  3  PARO  E  SPC  3 
GENERAL" , 0, -1 , 0 

2740  DATA "ASTURIAS: E SPC 3 PARO! SPC 3 GEN 
ERAL", 0, -1,0 

2750  DATA" ASTURIAS: E SPC 3 AUMENTA! SPC 3 
TURISMO", 1,3,0 

2760  DATA"CANTABRI A : E SPC 3 AUMENTA! SPC 3 
TURISMO", 1,3,0 

2770  DAT A" CATALUÑA : E SPC 3 AUMENTA! SPC 3 
TURISMO", 1,3,0 

2780  DATA "VALENCIA: E SPC 3 AUMENTA E SPC 3 
TURISMO", 1,3,0 

2730  DATA"BALEARES : ESPC3AUMEHTAESPC3 
TURISMO", 1,3,0 

2800  DATA  "  MURO  I A :  E  SPC  3  AUMENTA  E  SPC  3  TU 
RISMO", 1,3,0 

2810  DATA "CANARIAS: E SPC 3 AUMENTA! SPC 3 
TURISMO", 1,3,0 

2820  DATA "ANDALUCIA ; E SPC 3 AUMENTA! SPC 3 
TURISMO", 1,3,0 

2830  DATA "MURCIA : E SPC 3 TERREMOTO" , -1 , 
-2,0 

2840  DATA " GRANADA : E SPC 3 TERREMOTO ",  - 1 
,-2,0 

2850  DATA " CAÑAR I AS : E  SPC  3  TERREMOTO " ,  - 

1 ,  -2, 0 

2860  DATA "CANARIAS : E SPC 3 MAREMOTO" , -1 
,-2,0 

2870  DATA "GALICIA", "ASTURIAS" , "CANTA 
BRI A", "PAIS! SPC 3 VASCO", "NAVARRA", "AR 
AGON" 

2880  DATA"CATALUNA" ,  "CASTILL.AESPC3LE 
OH", "RIOJA", "MADRID", "CASTILLA ESPC3L 
A E SPC 3 MANCHA" 

2830  DATA  "VALENCIA" , "BALEARES" , "EXT 
REMADURA", "ANDALUCIA", "MURCIA", "CANA 

2300  DATA  8,11,3,16,12,15,4,2,2,3,7, 
12,13,16,17,15,16,15,17,17 
2910  FOR  H1=54272T0  54296  :F'OKE  H1,0: 
NEXT  :  POKE  54277,9:  F'Gk:E54278 , 64  :  P0KE5 
4296, 15 

2320  F'R I NT "  E CLR 3  "  :  GOSUB  1350:  FOR  Hl  = 

1 TO  100: NEXT: GOSUB  2380 

2330  HF=12  : LF=2 1 6 : DR=2 ; VD=80 : GOSUB 

3670 

2940  HF=11  : LF= 1 1 4 : DR=2 : GOSUB  3670 
2950  HF=10  : LF=205 : DR=2 : GOSUB  3670 
2960  HF=1 1  : LF=1 14 :DR=2: GOSUB  3670 
2970  HF=12  : LF=2 1 6 : DR=4 : GOSUB  3670 
2380  HF*14  : LF=107 : DR=2 : GOSUB  3670 
2990  HF=16  : LF=  47 : DR=2 : GOSUB  3670 
3000  HF=17  : LF=  37 : DR=4 : GOSUB  3670 
3010  HF=19  : LF=  63 : DR=4 : GOSUB  3670 
3020  HF=1 7  :LF-  37 : DR=4 : GOSUB  3670 
3030  HF=16  : LF=  47 : DR=4 : GOSUB  3670 
3040  HF“12  :  LF-216 :  DR=2 :  GOSUB  3670 
3050  HF=1 1  :  L.F— 114-  DR=2  ;  GOSUB  3670 
3060  HF=1 0  : LF=205 : DR=2 : GOSUB  3670 
3070  HFell  : LF= 1 1 4 : DR=2 : GOSUB  3670 
3080  HF=12  ;  LF=2’16 :  DR=4  :  GOSUB  3670 
3090  HF=14  : LF= 1 07 :DR=2: GOSUB  3670 
3100  HF»16  : LF=  47 : DR=2 : GOSUB  3670 
3110  HF=17  : LF=  37 : DR-4 : GOSUB  3670 
3120  HF=14  : LF= 1 07 : DR=4 : GOSUB  3670 
3130  HF=12  :  L.F=216  :  DR=4  ;  GOSUB  3670 
3140  HF=0  : LF=0  : DR=4 : GOSUB  3670 


Commodore  World 


ESPECIAL  PROGRAMAS 


3150  PR I NT " [ CLR 3 " : GOSUB  1950: POR  Hl- 

1T0  200 : NEXT : GOSUB  2330 

3160  HFalS  : LF-205 : DR-8 : VD-50 : GOSUB 

3670 

3170  HF-12  : LF-216 ■ DR-4 : GOSUB  3670 
3180  HF-1 7  :LF=  37 : DR-8 : GOSUB  3670 
3190  HF-1 6  :  LF-  47  ■'  DR-4 :  GOSUB  3670 
3200  HF-1 9  : LF-  63 : DR-4 : GOSUB  3670 
3210  HF-1 7  : LF»  37 : DR-20 : GOSUB  3670 
3220  HF-1 6  ¡ LF-  47 : DR-3 : GOSUB  3670 
3230  HF-1 4  :  LF-1 07  :  DR=4  :  GOSUB  3670 
3240  HF-1 6  : LF-  47 : DR-4 : GOSUB  3670 
3245  HF-14  ; L  F- 1 07 : DR-4 : GOSUB  3670 
3250  HF*12  •'  LF-2 1 6  :  DR-4  : GOSUB  3670 
3260  HF-1 1  :  LF-1 14  •'  DR-1 2 :  GOSUB  3670 
3270  PRIHT"CCLR3 " : GOSUB  1950:FOR  Hl- 
1TO  200 : NEXT : GOSUB  2370 
3280  VB-150 : HF-0  :LF-0  : DR-  2:G0SU 

B  3670 

3230  HF-8  : LF-1 47 : DR-  2:  GOSUB  3670 
3300  HF-11  •'  LF-  1 14  :  DR-  2 -  GOSUB  3670 

3305  HF-1 4  : LF-1 07 : DR-2 : GOSUB  3670 

3306  HF-1 7  : LF-  37 : DR-6 ■ GOSUB  3670 

3307  HF-1 4  : LF-1 07 : DR-2 : GOSUB  3670 

3308  HF=1 1  : LF-1 14 : DR-  2 : GOSUB  3670 
3310  HF-1 3  : LF-  70 : BR-2 : GOSUB  3670 
3320  HF=14  : LF-1 07 : DR=6 : GOSUB  3670 
3360  HF-12  : LF-2 1 6  DR-2 : GOSUB  3670 
3370  HF-8  : LF-1 47 • BR-  2- GOSUB  3670 
3380  HF=12  : LF-216 : DR=2 : GOSUB  3670 
3398  HF=1 1  :LF=1 14  :BR=12-' GOSUB  3670 
3400  PR I NT "C CLR ]" : GOSUB  1950:FOR  Hl= 
1TO  200 : NEXT : GOSUB  2400 

3410  VD=  70  :  HF-=0  :  LF=0  :  BR=  2:G0SU 

B  3670 


3420  HF*12 
3430  HF«14 
3440  HF-1 6 
3450  HF=17 
3460  HF=19 
3470  HF=1 7 
3480  HF=19 
3490  HF=17 
3500  HF=16 
3510  HF¡»14 
3520  HF=16 
3530  HF=1? 
3540  HF-0 
3550  HF-0 
3560  HF=10 
3570  HF-1 1 
3580  HF=14 
3590  HF=12 
3600  HF*1 1 
3610  HF=10 
3620  HF=9 
3630  HF=10 
3640  HF=9 
3650  HF=8 


LF=216 
LF=107 
LF=47 
LF=37 
LF=  63 


BR-  2  GOSUB  3670 
BR-2 : GOSUB  3670 
BR=  2: GOSUB  3670 
DR=  2 -GOSUB  3670 
BR=2  -- GOSUB  3670 
DR-6  : GOSUB  3670 
DR=1 : GOSUB  3670 
DR-1  : GOSUB  3670 
DR-  2- GOSUB  3670 
DR=l: GOSUB  3670 


DR=  2  •'  C 


LF=37 
LF=  63-1 
L.F-37  : 

LF-^47 
LF=107 
LF=47 
LF=37 
LF-0 
LF*-0 
LF=205 : I 
LF=1 14-1 
LF=107 : I 
LF=216 : I 
LF- 114-1 
LF-205 : I 
LF*159 : I 
LF=205 : 1 
LF=159 : I 
LF=147:l 

3660  FOR  H1=54272T0  54296 :  POKE  HL0: 
NEXT : RETURN 

3670  POKE  54273 i HF : POKE  54272, LF^F'OK 

E  54276, 17  '■  FOR  H1  =  1T0  VD4DR  :  NEXT  H1 

3680  POKE  54276, 16 ; RETURN 

3690  FOR  H1=54272T054296 : POKE  H1,0:N 

EXT :  POKE  54277,  13  :  P0KE54278, 33  -'  P0KE5 

4296,7 

3700  POKE  54275,  4  : P0KE54274 , 255 


: GOSUB  3670 
: GOSUB  3670 
: GOSUB  3670 
: GOSUB  3670 
DR»2 ; GOSUB  3670 
BR-2 : GOSUB  3670 
DR=2: GOSUB  3670 
DR=6  '■  GOSUB  3670 
DR-1 : GOSUB  3670 
DR=1 : GOSUB  3670 
DR-2 : GOSUB  3670 
DR-1 : GOSUB  3670 
GOSUB  3670 
DR= 12- GOSUB  3670 


3710  VD-60 ¡ HF-1 1  : LF-1 14: DR-2: GOSUB 
3830 


3720  HF-12  : LF-216: DR-2: GOSUB  3830 
3730  HF-1 3  : LF-1 56: DR-1 4: GOSUB  3830 
3740  HF-0  :  LF=0  :  DR-6  :  GOSUB  3830 
3750  HF-1 7  : LF-37  :DR-2  : GOSUB  3830 
3760  HF-1 9  : LF-  63 : DR-2 : GOSUB  3830 
3770  HF-20  : LF-1 00 :DR=24: GOSUB  3830 
3780  HF-0  -'  LF-0  -  DR-3  :  GOSUB  3830 
3790  HF-1 3  LF-1 56  DR-6  GOSUB  3830 
3800  HF-1 5  : LF-  70 : DR-3 : GOSUB  3830 


3810  HF-1 7  : LF-37  :DR=18: GOSUB  3830 
3820  FOR  H 1 -54272T054296 ; POKE  H1,0:N 
EXT : RETURN 

3830  POKE  54273, HF: POKE  54272, LF : PÜK 
E  54276,  65:  FOR  Ht-ITG  V'D*DR :  NEXT  H1 
3840  POKE  54276, 64: RETURN 


Cuatro  en  raya 


Miguel  Porgas  Serra 
Vilanova  i  la  Geltrú  (Barcelona) 


VIC-20 


Os  envío  el  juego  CUATRO  EN  RAYA.  Su  funcionamiento  es 
muy  sencillo,  al  inicio  aparece  en  la  pantalla  la  presentación 
del  juego  esperando  que  pulsemos  una  tecla  cualquiera. 
Seguidamente  aparecerá  el  tablero,  encima  aparecerá 
parpadeando  un  cursor  rojo  que  es  el  que  indica  la  columna 
por  donde  caerá  la  ficha  al  pulsar  la  tecla  return,  este  cursor  se 
puede  hacer  desplazar  a  izquierda  y  derecha  utilizando  un  par 
de  teclas  (que  se  encuentran  una  al  lado  de  la  otra,  y  que  no 
sean  teclas  con  funciones  especiales).  Este  juego  también 
funciona  utilizando  los  paddles,  uno  para  cada  jugador. 
Siempre  empieza  el  juego  el  jugador  que  tenga  el  color  rojo,  y 
después  el  del  azul  y  así  sucesivamente  hasta  que  uno  de  los 
dos  jugadores  consiga  hacer  el  cuatro  en  raya,  que  entonces  el 
VIC  avisará  de  que  el  jugador  que  ha  tirado  en  último  lugar  ha 
hecho  el  cuatro  en  raya;  y  preguntará  si  se  desea  hacer  otra 
partida  o  no. 

A  continuación  paso  a  explicaros  lo  que  realiza  cada  grupo  de 
lineas  del  listado: 

Líneas  de  la  10  a  la  80  son  las  que  crean  los  caracteres. 

Líneas  de  la  90  a  la  180  son  las  que  preparan  al  VIC  para 
iniciar  el  programa. 

Líneas  de  la  200  a  la  320  son  las  que  controlan  a  qué  jugador 
le  toca  tirar. 

Lineas  de  la  1000  a  la  1200  es  la  subrutina  que  lee  el  teclado  y 
los  paddles. 

Líneas  de  la  2000  a  la  2510  es  la  subrutina  que  hace  caer  la 
ficha. . 

Líneas  de  la  3000  a  la  3510  es  la  subrutina  que  comprueba  si  se 
ha  hecho  el  cuatro  en  raya. 

Líneas  de  la  9000  a  la  9999  es  la  subrutina  que  indica  que  se 
ha  hecho  el  cuatro  en  raya  y  pregunta  si  se  quiere  volver  a 
jugar. 

Si  tu  televisor  es  en  blanco  y  negro  es  difícil  de  distinguir  las 


fichas  de  cada  jugador,  para  solucionar  este  problema  se  debe 
cambiar  los  valores  designados  a  la  variable  “I”  en  las 
siguientes  líneas: 

En  la  200  y  la  300  se  debe  asignar  a  la  variable  “I”  el  valor  del 
color  que  se  desee  utilizar. 

En  las  líneas  310,  320  y  1050  se  debe  comparar  la  variable  “I” 
con  el  primer  valor.  Y  en  las  lineas  315,  325  y  1660  se  debe 
igualar  la  variable  “I”  con  el  2a  valor. 

Este  programa  no  necesita  ampliación. 


10  DATA  27 , 85 , 65 , 86 , 86 , 90 , 90 , 90 , 90 , 9 
0,90,90,90,86,66, 85,85 
20  DATA  28,85,83,149,149,165,163,165 
, 165, 165, 165, 165, 165, 149, 149,85,85 
30  DATA  0,255,255,255,253,255,255,25 
3,253, 253, 253, 235, 255, 255, 255, 253, 23 
3 

40  SATA  29,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0 

45  DATA  -24,1,24,0,-22,1,22,0,-20,1, 
20, 0,-2, 1,2,0, -1,-1 
30  A-7168  :  B-7679  :  F0RC-AT0BSTEP2  ¡  P-PE 
EKE32768+ÍC-AV2) 

60  POKEC , P ¡ P0KEC+ 1 , P : NEXT 
70  F0RV- 1 T04 : READF 

80  FGRT-0TO 1 5 : READS : POKEfi+F* 16+T ,S;N 
EXTT , V 

90  P0KE36879, 27 : P0KE36864, 0 : PRINTCHR 
*<8) 

1 00  P0KE36865 ,158: P0KE36878 , 1 5 : P0KE3 
6867,25 : P0KE36369, 255 : P0KE52, 28 : POKE 
56,28 

1 1 0  PR  I  NT  "  E  BLK  3  E  E1LR  3  E  3CRSRD  3  3  3  3  3  CUAT 

ROE  2CRSRD  3  EN  E  2CRSRD  3  RAV  A 11 

120  PRINT" E HOM 3 E 2CRSRD 3  E 22C0MME 3 " 

130  PR I NT" E HOM 3  E 8CRSRD ] E 22C0MME 1 " 

140  FORT-0TG 1 2 : P0KE36864 , T : P0KE36865 
, 158-T*10 : P0KE36876, 128+T*10 
1 45  FÜRV» 1 TO60 : NEXT : NEXT : P0KE368 76 , 0 
•  POKE  198, 0  :  WAIT198, 1 
150  P0KE37 1 39 , 0 : CLR : P0KE65 , 239 : P0KE6 
6,  16 

160  A-7702 : D-38422 : P-D-22 ¡ R 1-36872 : R 
2-36873 

170  FORT-0TO24 1 STEP2 : P0KED+T , 9 : P0KED 
+T+1 , 9 : P0KEA+T, 27 : POKEA+T+1 , 28 : NEXT 
180  pr  i  nt  "  e  hom  ]  e  cvn  ]  aáaaatt aa aaaaaaaa 
aaaaua" 

200  1-2  :  OOSUB1000  '■  G-R*2 

210  POKEP+G, I :P0KEP+Q+1, I :FORT-1TO10 

0  :  NEXT  :  POKEP+Q,  3  •’  P0KEP+Q+1 , 3 

220  IF  S  THENGOSUB2000 : QOTO240 

230  GOTO310 

240  IFS-9THEN310 

250  GGSUB3000 : GOTG320 

300  I -6 : G0SUB1 000 • Q-R*2 ; GOTO210 

310  IFI-2THEN200 

315  IFI-6THEN300 

320  IFI-2THEN300 

325  IFI-6THEN200 

1000  M-PEEKE 197) : S-0 

1005  IFM-64THEN1040 

1010  I FM- 1 5THENS- 1  :  RETIJRN 

1020  I FM<32ANDR>0THENR-R- 1 

1030  I FM>3 1 ANDR< 1 0THENR-R+ 1 

1040  IFPEEKER1 )-253ANDPEEK(R2)-233TH 

EN  RETURN 

1050  IFI-2THEN1100 

1060  IFI-6THEN1200 

1070  RETURN 

1 100  P0KE37134, 127 : R-INT<PEEK(R2)X23 
) 

1110  8— <<PEEK<37152)AND128)-0):POKE 
37154,253: RETURN 

1 200  R* I NT < PEEK < R 1  V25 >  :  S—  <  < PEEK<37 
137)AND16)-0) : RETURN 
2000  0-D 

2005  IF< PEEKÍ 0+Q ) AND 15) 09THENS-9 : RE 
TURN 


2010  I F  C  PEEK  < O+Q ) AND 1 5 ) -9THEN2500 
2020  0-0-22 : P0KE0+Q , I +8 ¡ P0KE0+Q+ 1,1+ 
8 

2030  P0KE36877 ,195: P0KE36876 , 0 : FORT- 

1 T025 : NEXT ¡ P0KE36877, 0 : RETURN 

2500  POKEO+Q ,  I  +8 :  P0KE0+CI+ 1 ,  I  +8 :  P0KE3 

6876, 135+1*10 : F0RT-1 TO20 : NEXT ¡ P0KE0+ 

Q , 9 : POKEO+Q+ 1 , 9 

2510  0-0+22 IGOTO2010 

3000  READCO, SU ; A1-C0 : ER-R 

3003  IFSU— 1THEN  P0KE65, 239 : P0KE66, 1 

6 : RETURN 

3010  IFSUTHENSU-0 : CU-0 

3020  I F ( PEEK  C  O+Q+CO ) AND 1 5 ) -8+ 1 THEN34 

00 

3040  GOTO3000 

3400  ER-ER+1*<A1— 24)+l*<Hl— 2>+l*CA 

l-20)-l*(Al— 20)-l*CAl-2)-l*EAl-24) 

3450  I FR<3ANDER<0THEN3000 

3460  I FR>7ANDER> 1 0THEN3000 

3500  CU-CU+1 : I FCU>2THENREST0RE : G0T09 

000 

3510  C0-C0+A1 :GOTO3020 

9000  FORT-0TO7 ¡ P0KE36876, 130+T*15 : FO 

RV-1TO90 : NEXT 

9100  P0KE36875, 135 : POKE36879, 24+ET+l 
*(T-1)> : FORV-1TO60 : NEXTV, T 
9200  POKE36876 , 0 : P0KE36875 , 0 : P0KE368 
79,27 

9240  PR I NT " E BLK 3 E HOM 3E 5CRSRD 3 3 3 3 ] OTR 
A  3 PARTI DA 3  3  3  3  3  3  E2CRSRD3  3  333333SI303N 
033333333" 

9250  B$- "  3  3  3  3 CUATRO 3 EN 3 RA VA 3  3  3  " : C*- " 

9300  B 1  —  1  : POKE 193,0 

9310  PRINT" EH0M3 EBLK3 "MIDtEBí, 1 , B1 ) " 

ECVN3 "MIDÍ <C* , B1 ) : P0KE36874, 253 : FORT 

-1TO30 : NEXT : P0KE36874, 0 

9315  I FB 1 -2 1 THENB 1 -0 

9320  GETA* : IFAÍ-" "THEN  Bl-Bl +1 : G0T09 

310 

9330  I FA$- " 8 " THENPR I NT " ECLR3 » ¡ G0T015 
0 

9340  IFA*0"N"THEN  9320 
9999  PRINT" EBLU3 ECLR3 " :P0KE36867, 46: 
P0KE36866 ,150:  P0KE36865 ,  38  ■’  P0KE36864 
, 12 : P0KE36369,  240 : END 
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Superexpander 

El  cartucho  superexpander  no  siempre  es  compatible  con 
los  caracteres  programables  como  los  vic  standards.  Para 
solucionarlo  hay  que  hacer: 

POKE  51,0:POKE  52,30:POKE55,0:POKE56,30 
Lo  más  importante,  no  afecta  a  la  memoria  extra. 

R.M.B.  RUN  EE.UU. 

Bucles  de  retarde 

Para  colocar  bucles  de  retardo,  prefiero  usar  el  reloj 
interno  del  ordenador,  en  la  siguiente  forma: 

100  t=ti 

110  ifti  t+120thenl  10 

En  este  caso,  el  retardo  será  de  2  segundos,  que  es  igual  a 
120  sesentaavos  de  segundo. 

E.H.  RUN  EE.UU. 


Este  programa,  que  consiste  en  un  conjunto  de  ocho,  todos 
ellos  de  carácter  matemático.  Por  este  motivo,  he  denominado 
a  este  paquete  de  programas  con  el  nombre  de  “MATES”. 

El  programa  ha  sido  preparado  con  un  C-64,  aunque  podría 
funcionar  en  un  VIC-20  realizando  los  oportunos  “recortes” 
por  cuestiones  de  memoria  y  tamaño  de  la  pantalla. 

Este  paquete  de  programas  permite  operar  con  dos  matrices: 
sumándolas,  restándolas  o  multiplicándolas.  También  permite 
calcular  la  matriz  traspuesta  de  otra  dada,  así  como  su  matriz 
inversa  y  su  determinante.  Además,  con  “MATES”  se  pueden 
resolver  sistemas  de  ecuaciones  lineales  de  coeficientes  reales  y 
ecuaciones  polinómicas  de  coeficientes  complejos. 

El  programa  “MATES”  ofrece  la  posibilidad  de  presentar  los 
resultados  con  el  número  de  decimales  que  deseemos, 
obteniendo  de  esta  manera  más  claridad  en  los  resultados 
finales. 

He  de  indicar,  que  en  la  subrutina  que  triangulariza  matrices 
hay  dos  condicionales  (líneas  160  y  165),  que  utilizan  una 
aproximación  numérica  (-1E-5<S>  1E-5).  Esto  es  así,  debido  a 
que,  aunque  la  triangularización  es  un  proceso  exacto  (no 
utiliza  ni  aproximaciones  ni  redondeos),  con  matrices  de  cierto 
tamaño  (15X15  por  ejemplo)  en  las  que  se  efectúan  muchas 
operaciones,  existen  errores  de  cálculo  que  se  van  acumulando 
durante  la  triangularización,  pero  estos  errores  son  innatos  del 
propio  ordenador.  Por  este  motivo,  he  utilizado  este  rango  de 
error,  ya  que  matrices  de  dimensión  superior  a  15  que  deberían 
ser  singulares,  con  el  condicional  S=0,  no  lo  eran.  Sin 
embargo,  admito  que  el  rango  de  error  es  quizás  demasiado 
grande,  pero  esto  se  subsana  sin  más  que  variar  el  rango  a  otro 
menor,  e  incluso  cambiar  las  comparaciones  de  las  líneas 
mencionadas  por  S=0  si  las  matrices  no  son  muy  “grandes”. 

Al  escribir  el  programa  intenté  que  la  entrada  de  datos  fuese  lo 
más  clara  posible,  por  lo  que  en  todo  momento  en  la  pantalla 
se  especifica  el  dato  a  introducir. 

Debido  a  la  extensión  del  programa,  sería  bastante  laborioso 
explicarlo,  por  lo  que  paso  a  detallar,  más  o  menos,  qué 
operación  realiza  cada  conjunto  de  líneas. 

Línea  1  :  Presentación  del  programa. 

Líneas  2-9  :  Se  ofrece  la  posibilidad  de  redondeo  de 

decimales. 

Líneas  10-65  :  Presentación  del  menú  del  programa. 

Líneas  70-75  :  Subrutina  de  redondeo  de  decimales. 

Líneas  80-90  :  Detención  del  programa  para  volver  al  menú. 


Líneas  95-190  :  Subrutina  que  triangulariza  matrices. 

Líneas  195-275  :  Entrada  de  datos. 

Líneas  280-380  :  Cálculo  de  la  inversa  de  una  matriz. 
Líneas  385-445  :  Cálculo  del  determinante  de  una  matriz. 

Líneas  450-535  :  Resolución  de  sistemas  lineales  de 

ecuaciones. 

Líneas  540-665  :  Suma  y  resta  de  matrices. 

Líneas  670-795  :  Producto  de  matrices. 

Líneas  800-865  :  Traspuesta  de  una  matriz. 

Líneas  866-990  :  Resolución  de  ecuaciones  polinómicas 
complejas. 

Líneas  1000-1300:  Presentación  del  programa. 


1  G0SUB 10013 

2  PR INT "  C CLR 3  C 6CRSRD 3  i 4SPC 3 QUIERES í SPC 3 
REDONDEAR  C  SPC  3  DEC I MALES  C  SPC  3  [RVSON 3  C 
S/N) [RVSOFF 3?" 

3  OETGf  ‘  IF0<O"S"AND0$O''N"THEN3 

4  H$*" [34SPC3 " : IFOí-"N"THENMM-0 : 00T0 
10 

3  PR I NT " C CLR 3  C 4SPC 3  CRVSON 3 REDONDEO C SPC 3 
DE  C  SPC  3  DECT  MALES  C  SPC  3  HASTA  C SPC  3  LAS  C  3CRSRD  3 
" : PRINTTABC 12) " CRVSON 3 1 CRVS0FF3-DECI 
MASCCRSRD3 " 

£  PR I NTT AB  C 1 2 ) " C RVSON  3  2  C  RV80FF 3 -CENT 
ESIMASCCRSRD3" : PRINTTABC 12) " CRV80N33 
CRVS0FF3-MILESIMASCCRSRD3 " 

7  PRINTTABC 12) " CRVSON34CRVSOFF3-DIEZ 
MILESIMASCCRSRD3 " ¡ PRINTTABC 12) " CRVSON 3 
5CRVS0FF 3 -C I ENM I LES I MAS  C  5CR3RD  3 " 

8  INPUT "REDONDEO "JI ¡ I-INTC I) ¡ IFIC10R 
I55THENPRINT" CCRSRU3 "H$" CCRSRU3 " i 0QT 
08 

9  "0MNIBUSC6SPC3RQM"  PRO 

10  PR I NT " [ CLR  3 " TAB  C 1 8 ) " [ RVSON 3 MENUCCRSRD3 

13  PRINTTABC5) " CRVSON 3 1 CRVS0FF3-SUMA 
C  SPC  3  DE  C  SPC  3  MATR ICESCSPC3C  RVSON  3  C  A  3  + 

CB3  CCRSRD3 " 

20  PR I NTTAB C 3 ) " C RVSON 3 2C RVSOFF 3 -REST 
A  C  SPC  3  DE  C  SPC  3  MATR I CES  C  SPC  3  C  RVSON  3  C  A  3 
-CB3  CCRSRD3 " 

25  PR I NTTAB  C  5 ) " C RVSON  3  3  C  RVSOFF  3 -PROD 
UCT0  C  SPC  3  DE  C  SPC  3  MATR I CES  C  SPC  3  C  RVSON  3 
CA3JHCB3CCRSRD3" 

30  PRINTTABC3) " CRVSON34CRVSOFF3-TRAS 
PUESTA! SPC  3  DE  C  SPC  3  UNA  C  SPC  3  MATR  1 2  C  CRSRD  3 

35  PRINTTABC5) "CRVSON35CRVSQFF3-DETE 
RM I NANTE  C  SPC  3  DE  C  SPC  3  UNA  C  SPC  3  MATR 1 2  C  CRSRD  3 

40  PRINTTABC3) " CRVSON36CRVSOFF3-INVE 
RSA  C  SPC  3  DE  C  SPC  3  UNA  CSPC3MATRI2C  CRSRD  3 

43  PR I NTT AB  C  3 ) »  C  RVSON  3  7  C  RVSOFF  3 -S I ST 
EMAS  C  SPC  3  L I NEALES  C  SPC  3  DE  C  SPC  3  ECUAC 1 0 
NESCCRSRD3 " 

50  PRINTTABC5) " CRVSON38CRVSOFF3-ECUA 
C I ONES  C  SPC  3  POL I N0M I CAS  C  CRSRD  3  » 

32  PRINTTABC 5) " CRVS0N39CRVSGFF3-. , , . 

. CRVSON  3  F I N [ SPC  3  DE [ SPC  3  TRABA JO [ RVSOFF  3 
. C2CRSRD3" 

55  PR I NT " PULSA [ SPC  3  EL [ SPC  3  C0D 1 00 [ SPC  3 
QUE C SPC 3 DESEES C CRSRD 3 " 

60  I NPUT " C  R VS0N  3  C0D 1 00  C  RVSOFF  3 " ; C0 ¡ C 
0- 1  NT  (  C0  >  i  I  FC0<  1 0RCO9THENPR I  NT  "  C  CRSRU  3 
"H*"[CRSRU3" :GOTO60 
65  ONCOGQTO540, 590,670, 800, 383,280, 4 
30,866, 1300 

70  X1*INT CX1KIMM+. 5)/MM 
75  RETURN 

80  PR  I  NT 11 C  CRSRD  3  i  RVSON  3  PARA  C  SPC  3  V0L  V 
ER  C  SPC  3  AL  [  SPC  3  MENU  C  SPC  3  PULSAR  [  RVSOFF  3 
CSPC3M" 

85  QET AA*  1 1 FAABO  "  M  "  THEN85 
90  RETURN 

95  F0RI"1T0N • VC I)«I ¡NEXT 
100  I®1 : Q®1 
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ESPECIAL  PROGRAMAS 


Commodorá  World 


103  IFI-NflNDACVCQ) , 1 1-0THENMN-1 ¡ GOTO 

" i GOSUB80 : GOTO380 

185 

313  I FMS* 1 THENPR I  NT " ! 3CRSRD  3  MflTR I Z  í  SPC  3 

110  IFR(V<Q) j  1 3-0THENL1-L1+1  '•  C-VCCl)  : 

NO ! SPC  3 I N VERS I  BLE I SPC  3  POR ! SPC  3  SER I SPC  3 

V(Gl)-V(Q+I ) 'V(Q+I)»C' I-I  +  l • GOTO 105 

8INGULARI2CRSRD3 " ¡ GOSUB80 : GOTO380 

115  FORI-2TON:Q-0 

315  FORI-lTON:X<V(I),I)-l  NEXT 

120  FORJ-ITON^ZC J)-fl(VCI), J) ¡NEXT 

320  FORJ"lTON-l : FORI*J+lTON ■ S“0 • FORK 

125  F0RJ-1T0N 

130  IFI-1-CJ-1THENM-I-1 

-JTOI-l.'S-S+flCVCn^lOlllXCVCK)^  J)  :NEXT 

135  I F I - 1 > J- 1 THENM* J- 1 

325  X< V( I ) i J)»-S ■ NEXT ! NEXT 

140  IFM-0THEN175 

330  FORI-1TON: VíVCIJ, I >1/A(VC I ) , I) : 

143  S-0;FÜRK-lTOM:S-8+ZCK)*fl<VaO,  J) 

NEXT 

; NEXT : 3-Z( J)-S 

335  F0RJ*2T0N • F0RI»J-1T01STEP-1 : S«0 : 

150  IFJ<:iTHENS-SXA(V<J),J> 

FORK-I+1TOJ 

155  Z< J)-8 

340  S=S+FKVCI),K)lKV(V(K3/ J)  :NEXT:  V<V 

160  I F I » JfiND ( - 1 E-5<SRNDSC1 E-5  ) RND I +Q 

<1 ) i  J)—<S/fl< V(I ) ,  I ) )  : NEXT ¡ NEXT 

+1>NTHENMS»1 ¡GOTO 185 

345  FOR  I  - 1  TON :  FOR  J»  1  TON  •’  S=0  •'  FORK»  1 TO 

163  I F I ■ JflND  < - 1 E-5CSANDS< 1 E-5 ) THENL 1 

N :  S*S4V< V<  I )  j  IOiKXí VOO  j  J)  ¡  NEXT 

■Ll  +  1  :  Ü-Q+l  ■  GOSUB190 ¡  GOTO120 

350  fl C I , V< J) )«S : NEXT • NEXT 

170  GOTO180 

360  FORI“l TON : PRINT : FORJ“lTON 

175  Z<J)-Z<J)XFKVCJ),J) 

365  I FMMO0THENX 1  «fl  <  I » J  >  :  GOSUB70 ;  fl  C I 

180  NEXT ¡ FORJ-1TON ¡fl< V< I)iJ)-Z(J) ¡  NE 

, J)-X1 

370  PRINTA(I,J>; 

185  RETURN 

375  NEXT : PR I NT " ! CRSRD  3 " : NEXT : PR I NT : G 

130  C-VCI)  ¡ V< I)"V< I+Q)  ¡V<I+Q)»C¡RETU 

OSUB80 

RN 

380  RUN2 

1 93  I NPUT" NUMERO  I SPC  3  DE  I  SPC  3  F I LAS " ¿ N 

385  PR I  NT " I CLR 3 1 7SPC 3 1 RVSON 3 DETERM I N 

¡N-INTCN) 

ANTE I SPC  3  DE ! SPC  3  UNA ! SPC  3  MflTR I Z ! 5CRSRD  3 

200  IFN<2THENPRINT" ÍCRSRU3 "Hí " CCRSRU3 

" ' G0T0195 

390  PRINT" I3SPC 3 DI MENS ION! SPC 3 DE! SPC 3 

205  PRINT 

Lfl! SPC 3 MATRIZ" 

210  1 NPUT "NUMERO  I SPC  3  DE I SPC  3  COLUMNAS 

395  PRINT" I3SPC3 I 22COMMY3 I7CRSRD3 " 

";M1 ¡Ml-INT(Ml) 

400  PRINT" I5CRSRU3 " : INPUT"DIMENSION" 

215  I FM 1  «THENPR  I  NT  "  !  CRSRU  3 " Hí " í CRSRU  3 

;N'N-INT<N) : I FNC2THENPR I NT " ! CRSRU  3 " H 

" ¡GOTO210 

í " I3CRSRD3 " : GOTO400 

220  RETURN 

410  DIMfKNí  N3  <  V<N)  /  Z<N3  ^  M1*»N  •  PRINT"  I5CRSRD3 

225  F0RI-1T0N : PRINT" ! CRSRD 3FI Lfl" I " ISPC3 

DE  !  SPC  3 [ RVSON  3  C  R  3  C  RVSOFF  3  ! 2CRSRD 3  "  ¡  F 

415  L  1“0  :  PRINT"  ICLR3  ! 7SPC 3  ! RVSON 3 DET 

OR J» 1 TOM 1 ¡ PR I NT " ELEMENTO  ! SPC  3  fi< " I " 1 8PC  3 

ERM INANTEI  SPC  3  DE  !  SPC  3  UNA  !  SPC  3  MflTR  I Z 1 7CRSRD  3 

, " J" CSPC3  3 " 

230  INPUTRC I , J) ¡ PRINT"  «CRSRU  3  "Hí ■ PR 

420  PR I NT "RESULTADO! CRSRD 3 " ¡ G0SUB95 

I NTHÍ " !  2CRSRU  3 " : NEXT 

422  I FMN- 1 THENPR I NT " í  2CRSRD 3  Lfl ! SPC  3  M 

235  PRINT"! 5CRSRU  3 " : NEXT 

ATR I Z ! SPC  3  NO I SPC  3  ES I SPC  3  CUADRADA ! 3CRSRD  3 

240  RETURN 

" : GOTO440 

245  FOR > 1  TON : PR I NT " ! CRSRD3FI Lfl "  I"  I SPC 3 

423  I FMS- 1 THENPR I NT " ! 3CRSRD 3 1 3SPC 3  DE 

DE ! SPC  3 1 RVSON 3  C  fl  3  C  RVSOFF  3  !  2CRSRD  3 " ¡ F 

TERM I NflNTE I SPC  3 - 1 SPC  3  0 ! 4CRSRD  3 " : GOTO 

OR J- 1 TOM 1 ¡ PR I NT " ELEMENTO [ SPC  3  fl  < " I " !  SPC  3 

440 

/ " J" I SPC3 ) " 

425  DET-1 : FORI-1TON : DET-DET*fl(V< I ) i  I 

250  INPUTRC  I  i  J>  i  PRINT"  «CRSRU  3  "Hí  ¡  PR 

) :NEXT:DET*DET*(-1)1L1 

INTHÍ " C2CRSRU3 " : NEXT 

253  PR I NT " I 3CRSRU  3 " ¡ NEXT ¡PRINT"!  CRSRD  3 

430  IFMMO0THENX1-DET  ¡  GOSUB70  ¡  DET-X1 

"Hí  "  «CRSRU3  " 

435  PR I NT " ! 3CRSRD 3 1 3SPC 3  DETERM I NflNTE 

260  FOR I ■ 1 T0M2 ¡ PR I NT " ! CRSRD  3  F I Lfl " I " I SPC  3 

ISPC3-" i DET : PRINT" í 3CRSRD  3 " 

DE  C  SPC  3  C  RVSON  3  C  B  3  I RVSOFF  3  C  2CRSRD 3 " ¡ F 

440  GOSUB80 

0RJ»1T0M3 1 PRINT" ELEMENTO! SPC  3  B <  » I " ! SPC  3 

445  RUN2 

, " J" ISPC3 ) " 

450  PR I NT " ! CLR  3 ! 4SPC  3 1 R VSON  3  S I STEMAS 

265  I NPUTX ( I j  J) ; PRINT" ! 2CRSRU 3 " H* : PR 

I SPC  3  L I NEflLES I SPC  3  DE ! SPC  3  ECUflC I ONES " 

INTH*" I2CRSRU3 " ¡ NEXT 

:  PRINTTflB<  15)  "  IRVSÜN3 IH3ÜX3-IV3 ! CRSRD 3 

270  PRINT" I3CRSRU3 NEXT 

275  RETURN 

451  PRINT"! RVSON  3 ! fl  3 ! RVSOFF  3¡MflTRIZCSPC3 

280  PR I NT " ! CLR  3 ! 1 0SPC 3 1 RVSON  3 I NVERSfl 

DE  I SPC  3  COEF I C I ENTES  í  CRSRD  3 " : PR I  NT " ! RVSON  3 

!  SPC  3  DE  t  SPC  3  IJNfl  I  SPC  3  MRTR I Z !  4CRSRD  3  "  ¡ 

I X  3 1  RVSOFF  3  :  VECTOR  I  SPC  3  DE  I  SPC  3  I NCOGN 

PRINT"! SPC  3  D I MENS I ON ! SPC  3  DE ! SPC  3  LR I SPC  3 

ITASÍCRSRD3 " 

MATRIZ" 

452  PRINT" IRVSON3 ÍV3 IRVSOFF3 1 VECTORISPC3 

285  I NPUTN ¡ N- 1 NT  <  N ) ¡ I FN<2THENPR I NT " ! CRSRU  3 

DE ! SPC  3  TERM I NOS I SPC  3 I NDEPEND I  ENTES ! 3CRSRD 3 

"Hí " ICRSRU3 " : G0T0285 

230  PRINT"!4CRSRD3" :DIMfl<N,N>-V(N,N) 

453  PR I NT " D I MENS I ON ! SPC  3  DEL ! SPC  3  S I ST 

j  Z<N) j  V(N) 

EMfl? ! SPC  3  C  0 ! SPC  3  DE  í SPC  3 ! R VSON  3 1 fl  3 ! RVSOFF  3 

295  FOR I - 1 TON ¡ PR I NT " F I Lfl " I" ! 5CRSRD 3 " 

)" 

:  FOR  J- 1  TON  :  PR  I  NT  "  !  2CRSRU  3  ELEMENTO  !  SPC  3 

455  I NPUTN ; N- 1 NT ( N ) : IFN<2THENPRINT"!CRSRU3 

fl ( " I" t  SPC  3  < " J " t  SPC  3 ) " 

"Hí" ICRSRU3 " ; G0T0455 

300  INPUTflC I , J) : PRINT" CCRSRU3 "Hí ¡ NEX 

460  PRINT" I3CRSRD3 " ;DIMfl(NjN);VCN)iZ 

T ' PR I NT " ! 2CRSRU  3 " Hí 

(N),V(N)>X(N) 

305  PRINT" I6CRSRU3 ": NEXT 

465  FORI-1TON : PRINT"FILfl" I "I5CRSRD3 " 

307  PRINT"! CLR  3 ! 1 0SPC  3 ! RVSON  3 1 NVERSfl 

: FOR J- 1  TON ¡ PR I NT " 1 2CRSRU  3  ELEMENTO I SPC  3 

I  SPC  3  DE !  SPC  3  UNA I  SPC  3  MflTR  I Z I  CRSRD  3  "  ¡  P 

R<"I"ISPC3,"J"!SPC3)" 

R I NT "! SPC  3  RESULTADO I CRSRD  3 " 

470  INPUTñC I , J) : PRINT" ICRSRU3 "Hí ¡ NEX 

310  MN“0 • MS“0 : G0SUB95 

T  :  PRINT"  I2CRSRIJ3  "Hí 

312  1 FMN- 1 THENPR I  NT " ! 5CRSRD  3  Lfl I SPC  3  M 

475  PRINT"! CRSRU 3  TERM I NO ! SPC 3 V ( " I " ) " 

flTRIZ!SPC3NOISPC3ESISPC3CUHDRflDfl!3CRSRD3 

: I NPUTV < I ) ¡ PR I NT " ! 2CRSRU  3 "Hí : PRI NTHÍ 
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: PRINT" I7CRSRU3 " : NEXT 

477  PRINT" ICLR3  I4SPC3 IRVSON3SISTEMAS 

! SPC  3  L I  NEPlLES  ! SPC  3  DE I SPC  3  ECUAC I ONES  C  CRSRD  3 

478  PR I NT 1 "  SOLUC I ONES  I SPC ] DEL  C SPC 3 S I S 
TEMA I CRSRD 3" 

480  MN»0 : MS-0 : G0SUB95 

483  IFMN* 1 ORMS“ 1 THENPR I NT " [ 4CRSRD ] II 0CRSRR 1 
S 1 3TEMA I SPC  3 1 NDETERM I  NADO  !  4CRSRD  3  "  G 
0T0533 

485  Z(VC1))bY<VC1)) 

490  F0RI*2T0N  :  Z(V(  I )  )*Y<V(  I )  )  ;  FORK*l 
TQI-l:Z<V<I>)*Z(V<I))-A(V(I)jlOlKZ(V( 

IO> 

495  NEXT : NEXT 

500  XWN^-ZWWVACVCN^N) 

505  F0RI-N-1T01STEP-1 :X<V<I))-Z<V<I) 

> 

510  FORK«I  +  lTONX<:V<I>)»X<Va)>-A<:V< 

I) >K)#X(V(K)) ;NEXT 

512  XCV(I))>*X(V(I))XA(V(I)< I) : NEXT 
520  FOR I « 1  TON  :  I FMMO0THENX 1  -X  (  V  <  I  )  )  ■' 

OOSUB70 • X<V(I ) )=X1 

522  I F I O 1 0THEN525 

523  PR I NT " t RVSON 3  PARA  ! SPC  3  CONT I NUAR  I SPC  3 
PULSAR  C RVSOFF 3  !  SPC  3 1 ! CRSRD  3 " 

524  GETEE$:  IFEEÍO"  I  "THEN524 

525  PRINTTABÍ 10) "X( " I" )■" J X<V<I)> ;PR 
INT 

530  NEXT: PRINT 
533  GOSUB80 
535  RUN2 

540  PRINT"!  CLR  3 1 8SPC  3 1  RVSON  3  SUMA  C  SPC  3 
DE  C  SPC  3  MRTR I CES  C  SPC  3  I A  3 + I B  3  I  2CRSRD  3 " 

545  PRINT"! 3SPC  3  D I MENS ION!  SPC  3  DE  C  SPC  3 
LAS  I  SPC  3MATR I CES " 

550  PR I NT " 1 3SPC  3 !  25CQMMY 3  C  7CRSRD  3 " : G 
□SUBI  95 

555  PR I NT " í CLR  3  I 8SPC 3  !  RVSON  3  SUMA I SPC  3 
DEÍSPC3MATRICESISPC3 IA3+ÍB3 I5CRSRD3 " 

580  DIMAÍNi  MI  >  ¡  X<Nj  MI  )  '■  M2»N  ;  M3»M1 
585  GÜSUB245 

570  PRINT"ICLR3 I8SPC3 IRV30N3SUMAISPC3 
DE  í SPC  3  MATR I CES  í SPC  3  C  A  3  +  C  B  3  C CRSRD  3 " : 
PRINT"RESULTADOCCRSRD3 " 

575  L-l : G03UB645 
580  GOSUB80 
585  RUN2 

590  PRINT" CCLR3 C8SPC3 CRVSON3RESTACSPC3 
LE  C  SPC  3  MATR I CES  C  SPC  3  C  A  3 - C  B  3  C  2CRSRD  3 " 

595  PR I NT " [ 3SPC  3  D I MENS I ON  C SPC  3  DE i SPC  3 
LAS C SPC 3 MATR ICES" 

600  PR I NT " C  3SPC 3  C25C0MMV 3  C  2CRSRD  3 " 

605  G0SUB195 

610  PRINT" CCLR3 C8SPC3 CRVS0N3RESTACSPC3 
DEC SPC 3 MATRICES! SPC 3  C A3-CB3  C5CRSRD3 " 

615  DIMA(NjMI)jXCNíMI) ¡M2»N;M3«M1 
620  G0SUB245 

625  PRINT" CCLR3 C8SPC3 CRVSON3RESTACSPC3 
DECSPC3MATRICESCSPC3  CA3-CB3  CCRSRD3" ¡ 

PRINT" RESULTADO  C  CRSRD  3 " 

630  L—  1  .  G0SUB645 
635  GOSUB80 
640  RUN2 

645  FORI-1TON¡FORJ»1TOM1 :fl<I, J3-ACI, 

J) +L*X<IÍ J) 

650  IFMMO0THENX1-AÍ I ,  J)  :  GOSUB70 :  A<  I 
; J)»X1 

655  PRINTACI,J)J 

660  NEXT: PRINT" CCRSRD3": NEXT 

665  RETURN 

670  PR I NT " C  CLR  3  C  6SPC 3  C  RVSON  3  PRODUCTO 
CSPC3DECSPC3MATRICESCSPC3CA3ÍCB3  C2CRSRD3 

675  PR I NT " C  3SPC  3  D I MENS I ON  C  SPC  3  DE  C  SPC  3 


LACSPC3MATRIZCSPC3  CRVSON3  CA3 " 

680  PRINT" C3SPC3 C26COMMV3 C2CRSRD3 " 

685  GOSUB195 

690  PRINT" C2CRSRD3 C3SPC3DIMENSIONCSPC3 
DECSPC3LACSPC3MATRIZCSPC3  CRVSON3  CB3 " 

695  PRINT"! 3SPC 3  C  26C0MMV 3 ! 2CRSRD  3 " 

700  I NPUT  "  NUMERO  C  SPC  3  DE  C  SPC  3  F I  LAS  "  i  M 
2 : M2»INT (M23 : IFM2C2THENPRINT" CCRSRU3 
"Hí " CCRSRU3 " : GOTO700 
710  PRINT 

715  I NPUT " NUMERO C SPC 3 DE C SPC 3 COLUMNAS 
" ; M3 : M3- 1 NT  < M3 ) : I FM3C2THENPR I NT " C  CRSRU  3 
"H#"  CCRSRU3  "  '■  Q0T0715 
725  IFM1-M2THEN750 

730  PRINT"! CRSRD  3  C  RVSON  3  ERROR  C  RVSOFF  3 
C  SPC  3  NO  !  SPC  3  SE  C  SPC  3  PUEDE  C  SPC  3  MIJLTI PL 
ICARCSPC3LACSPC3MATRIZ" 

735  PRINT" CRVSON3ACRVSOFF3! "N" , "MI ") 

C  SPC  3  POR  C  SPC  3  LA  C  2SPC 3  C  RVSON  3  B  C  RVSOFF  3 
(  "M2" ,  "M3"  ) VA! SPC 3 QUE! SPC 3 LAS 11 
740  PRINT" COLUMNAS C SPC 3 DE C SPC 3 C RVSON 3 
A ! RVSOFF  3  C  SPC  3  NO ! SPC  3  CO I NC I DEN  C  SPC  3  C 
ON!SPC3LASÍSPC3FILASISPC3DEISPC3!RVSON3 
Bí RVSOFF 3. " 

745  FOR I*1TO9000: NEXT :GOTO670 
750  DIMA<N,M1>,X<M2,M3),Y<N,M3> 

755  PRINT"!CLR]I6SPC3! RVSON 3 PRODUCTO 
I SPC  3  DE ! SPC  3  MATR ICESISPC3IA3HÍB3! 5CRSRE  3 

760  G0SUB245 

765  PRINT" ! CLR 3 I6SPC 3 ! RVSON 3 PRODUCTO 
!  SPC  3DE  !  SPC3MATR I  CES  !  SPC  3IA3IHIB3I  CRSRD  3 
" : PRINT "RESULTADO! CRSRD 3" 

770  FOR I - 1  TON : FOR J» 1 T0M3 : S=0 : FORK» 1 T 

OM1 : S*S+A< I , K)*XÍK, J) : NEXT 

775  V<I<  J)«S:  IFMMO0THENX1*V< I /  J)  : GO 

SUB70 : V< I j  J)«X1 

780  PRINTV(I.J); 

785  NEXT: PRINT "I CRSRD 3" 'NEXT 
790  GOSUB80 
795  RUN2 

800  PRINT" ICLR3 I7SPC3 IRVSON3TRASPUES 
T A ! SPC  3  DE ! SPC  3  UNA ! SPC  3  MATR I Z ! 2CRSRD  3 

805  PR  I  NT  "Í33PC3DI  MENS  I  ON  I  SPC  3  DE  I  SPC  3 
LAISPC3MATRIZ" 

810  PRINT"! 3SPC 3 1 22C0MMV 3 ! 7CRSRD  3 " 

315  G0SUB195 

820  PR I NT " ! CLR  3 1 7SPC  3 IRVSON  3  TRASPUES 
TA I  SPC  3  DE  I  SPC  3  UNA  I  SPC  3  MATR  I Z 1 5CRSRD  3 

825  DIMA<NiMl),X<Ml,N) 

830  G0SUB225 

835  PRINT"! CLR  3 1 7SPC 3 1 RVSON  3  TRASPUES 
TAISPC3DEÍSPC3UNAISPC3MATRIZÍCRSRD3" 

: PRINT "RESULTADO! CRSRD 3 " 

840  FORJ-1TOM1 : FORI-1TON : XC J, I )-A< I > 

J) 

845  I FMMO0THENX 1  »X <  J <  I )  ¡  GOSUB70  ■'  X(J 

850  PRINTX! Jj I ) J 

855  NEXT : PRINT" ICRSRD3 ": NEXT 

860  GOSUB80 

865  RUN2 

866  PR I NT " ! CLR  3 " TAB ( 5 ) " ! RVSON  3  ECUAC I 
ONES !  SPC  3  POL I NOM I  CAS  !  SPC  3  RE  ALES  "  :  PR  I 
NTTAB!  15)  "  !  RVSON  3  V  !  SPC  3  COMPLEJAS  !  3CRSRD  3 

867  I NPUT " GRADO !  SPC 3 POL  I NOM I O"  J  N  ¡  N=*  I 

NT (N) : I FN< 1 THENPR INT"! CRSRU  3 " H# " ! CRSRU  3 
" : G0T0867 

868  N1=N+-1  :  N2<=N :  DIMARCN1 )  jAI(N1)<BR( 
N1),BI<N1),CRÍN1),CKN1) 

869  DIMXR<N2),VR<N2)-M0(N2)íAG!N2)iP 
RINT"!2CRSRD3" 

870  FORI=lTONl :PRINT"COEFICIENTE!SPC3 
DE  t  SPC  3 1 RVSON  3  X  t" N 1 - 1 " ! RVSOFF  3 ! CRSRL  3 
I14SPC3": PRINT 
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072  I NPUT" [ RVSON ] PñRTE í SPC ] REAL C  RVSOFF  3 
" ; AR  <1 ) : PR I NT " [ 2CRSRD  3 " : I NPUT " [ RVSON  3 
PftRTE  C  SPC  3 IMflGI NfiR I fl [  RVSOFF  3 " i H I < I ) 

873  PRINT" C5CRSRU3 "Hí : PRINT" [3CRSRD3 
"Hí  •  PRINT"  C 8CRSRU 3  "  :  NEXT  :  PRINTHÍ "  [ CRSRU 3 

873  I NPUT "[ RVSON  3 ERROR [ SPC 3  ADM I S I  BLE 
[ RVSOFF  3 " ¡ EP : PR I NT 1 "  [  CLR  3 " TfiB  í 5 > " í RVSON  3 
ECUflC I ONES  C  SPC  3  POL I NOM I CfiS  C  SPC  3  REflLE 
S" 

877  PRINTTflBC 153 " [RVSGN3 YISPC3COMPLE 

878  PR I  NT " [ CRSRD 3 " TñB  <  5  > " l RVSON  3  PñRT 
E  [  SPC  3  REAL " TflB  í  22) " i RVSON  3  PARTE  [  SPC  3 
COMPLEJA C CRSRD 3" 

888  BR<1)»AR<1) :BI<l)-ñI<l):CR(l)»ñR 
(1) ¡CIÍD-AHl) 

883  FORNR-1TON 
886  X-0. :V»1. 

889  F0RI-2T0N1 

892  BRÍI)«ARÍI>+BRÍI-1)#X-BIÍI-1)#Y 
895  BI<I>-ni<I>+BRa-l)KiV+BI<I-l)*X: 

NEXT 

898  F0RI-2T0N 

901  CRÍI)-BR<I)+CR(I-1)#X-CI<I-1)#Y 
904  CI<I)«BI(I)+CRÍI-l)*V+Cia-l)#X: 

NEXT 

907  DE»<CRÍN)t2+CIÍN)12)+lE-25 

910  X-X-ÍBR<N1)*CRÍN)+BIÍN1)*CI<N)V 

BE 

913  Y-Y+í BRÍN1 )#CI <N)-BI ÍN1 )*CRíN) )X 
DE 

916  IFCBRÍNl) T2+BI (NI ) t2-EP)>0THEN88 
9 

919  Nl-Nl-1 ¡N-N-l 
922  F0RI-2T0N1 

925  AR(I)-BRÍI) :AI(I)-BI(I) :NEXT 

928  RO-SQR(X#X+YlKY)  •  FI«180.  ÉATNÍYXCA 

BS(X)  +  lE-25)  Vir 

931  IFX>“0THEN946 

934  IFY>-0THEN943 

937  FI  — 180. -FI 

940  G0T0946 

943  FI-180.-FI 

946  MO(NR)»RO : AGÍNR)-FI : IFMM-0THEN94 
8 

947  Xl-X '■ GOSUB70 ; X-Xl ¡ Xl-Y ; GOSUB70 : V 
-XI 

943  I FNRO 1 0THEN938 

949  PR I NT " í RVSON  3  PARA  C  SPC  3  CONT I NUAR  í SPC  3 
PULSAR  C  RVSOFF  3  [  SPC  31" 

950  GETEEí  :  IFEEÍO"  I  "THEN950 
931  PRINT 

958  PR  I NTTAB  (  1 0-LEN  í  STR*  í  X > )  /2  >  XTAB  í 
30-LEN  í  STRi ( Y ) ) X2  >  Y " C  CRSRD  3 " : NEXT 
960  PR I NT " C RVSON  3  PULSAR  t RVSOFF  3  C  SPC  3 
P [ SPC  3 1 RVSON  3  PAR A i SPC  3  LAS  C  SPC  3  SOLUC I 
ONES  C  SPC  3  EN  í SPC  3  POLARES " 

962  GETPf :  IFP*0"P"THEN962 

964  PR I NT " C  CLR  3 " TAB ( 5 ) " C  R VSON  3  ECUAC I 
ONES  C  SPC  3  POL I NOM I  CAS [ SPC  3  REALES "• PR I 
NTTAB  í 1 3 ) " C RVSON  3  V  í SPC  3 COMPLEJAS " 

966  PR I NT " C CRSRD  3 " TflB  < 7 ) " C  RVSON  3 MODU 
LO " TflB  < 25 ) " C RVSON  3  ARGUMENTO [ CRSRD  3 " 

963  F0RI-1T0N2 
970  IFMM-0THEN974 

972  Xl-MO( I ) : GOSUB70 : MO< I )-Xl : Xl-AGC 
I>  ¡OOSUB70:flG<n-Xl 

974  IFIO10THEN980 

975  PR  I  NT 11 C  RVSON  3  PARA  C  SPC  3  CONT  I  NUAR  C  SPC  3 
PULSAR [RVSOFF 3 CSPC 3 1" 

976  GETEE$ ;  IFEEÍO"  I  "THEN976 

977  PRINT 

980  PRINTTABÍ 10-LENCSTRÍ ÍMO( I ) ) )X2)M 
0( I ) TAB (30-LEN <STRíCAG< I ) ) )/2)fí0( I > " 
[CRSRD3 " 

982  NEXT ; PRINT" [2CRSRU3 " 

988  GOSIJB80 
990  RUN2 


1000  PRINT" [CLR3 [8CRSRD3 "TABC9) " [RVSON 3 
P AQUETE [ SPC  3  DE [ SPC  3  PROGRAMAS [ SPC  3  DE  L CRSRD  3 

1002  PRINTTABÍ 1 1 ) " [ RVSON 3 CARACTER [ SPC 3 
MATEMAT I CO [ 9CRSRD  3 " 

1004  PR I NTT AB  í  20 ) " POR [ SPC  3  RAFAEL [ SPC  3 
MUNV02 11  ■  FORI-1 TO5000  :  NEXT 
1 006  PR I NT " [ CLR  3 [ 8CRSRD  3 " TflB  <  3  V [ RVSON  3 
DESEAS! SPC3  ALGUNAS [ SPC  3 1 ND I CAC I ONES [ SPC  3 
ÍSXN)?[CRSRD3 " 

1008  GETWí • I FWf O " S " ANDW$C> " N " THEN 1 0 
08 

1010  IFW#="N" THEN 1136 

1014  PR I NT " [ CLR 3 [ 2SPC 3 ESTE C SPC 3 PAGUE 

TE [ SPC  3  DE [ SPC  3  PROGRAMAS [ SPC  3  TE [ SPC  3  P 

ERM I T I  Rfl  [  SPC  3  OPERAR  [  SPC  3  CON  [  SPC  3  DOS  [  SPC  3 

MATRICES, 

1016  PRINT" [SPC 3 SUMANDOLAS, [SPC3REST 
ANDOLAS [ SPC  3  O [ SPC  3MULT I PLI CANDOLAS . [ SPC  3 
S I [ SPC  3  SE [ SPC  3  REAL  I Zfl [ SPC  3  ALGUNA [ SPC  3 

1018  PR I NT " DE [ SPC  3  LAS [ SPC  3  OPERAC I ONE 
S [ SPC  3  ANTER I ORES , [ SPC  3EL  C  SPC  3 PROGRAM 
fl [ SPC  3  EMP I EZA [ SPC  3  PREGUNTANDO [ SPC  3  LA 
[SPC3 " j 

1020  PR I NT " D I MENS I ON [ SPC  3  DE [ SPC  3  LAS [ SPC  3 
MATRICES, [SPC30ISPC3SEA, [SPC3ELISPC3 
NUMERO [ SPC  3  DE [ SPC  3  F I LAS [ SPC  3  V [ SPC  3  CO 
LUMNASISPC3"; 

1022  PRINT "DE [SPC 3 ELLAS. [SPC 3 NO [SPC 3 
SE  [  SPC  3  ADM I T I RAN  [  SPC  3  MflTR  I CES  [  SPC  3  UN 
I D I MENS I ONALES [ SPC  3  <  VECTORES  > . [ SPC  3 " 


1024  PR I  NT " fl [ SPC 3 CONT I NUAC I ON , [SPC3S 
E [ SPC  3 1 NTRODUC I RAN [ SPC  3  LOS [ SPC  3  ELEME 
NTOS [ SPC  3  DE [ SPC  3  CADA [ SPC  3  MATR I Z [ SPC  3 
POR [SPC 3 " ; 

1026  PRINT"FILAS. [SPC3ENÍSPC3T0D01SPC3 
MOMENTO , [ SPC  3  EN [ SPC  3  LA [ SPC  3 PANTALLA [ SPC  3 
SE [ SPC  3  ESPEC I F I Cfl [ SPC  3  EL [ SPC  3  ELEMENT 
OÍSPC3A"; 

1028  PRINT" [SPC 3  INTRODUCIR, [SPC 3 NO [SPC 3 
HABIENDO! SPC3 AS I [SPC3POSI BILI DAD [SPC 3 
DE [ SPC  3  ERROR [ SPC  3  AL [ SPC  3 1 NTRODUC IRÍ2SPC3 

1 030  PR I NT " LOS [ SPC  3  DATOS . " 

1032  PR I NT " [ 2SPC 3 ADEMAS , [SPC 3 PODRAS [SPC 3 
OPERAR CSPC 3 CON [SPC 3 UNA! SPC 3 SOLA [SPC 3 
MATRIZ! SPC  3  CALCULANDO [ SPC  3  SU [ SPC  3 " i 
1034  PRINT" TRASPUSEST A , [ SPC 3 SU [ SPC 3 D 
ETERMI NANTE [ SPC  3  O [ SPC  3  SU [ SPC  3 1 NVERSA 
. [ SPC  3  EN ! SPC  3  ESTOS [ SPC  3  CASOS , [8PC3LO 
SISPC3"; 

1 036  PR I NT" DATOS C SPC 3 SE [ SPC 3 1 NTRODUC 
EN [ SPC  3  DE [ SPC  3  LA [ SPC  3  M I SMA [ SPC  3  FORMA 
[SPCDANTERIOR. " 

1 038  PRINT » ! 4CRSRD 3 [ RVSON 3 PARA [ SPC 3 C 
ONTI NUAR [SPC 3 PULSAR [RVSOFF 3 [SPC 3 I " 

1040  GETW$ !  IFWÍO"  I  "THEN  1040 
1042  PR I NT " [ CLR  3 [ 4SPC 3  MED  I ANTE [ SPC  3  E 
STE [ SPC  3  PAQUETE [ SPC  3  DE [ SPC  3  PROGRAMAS 
[SPC3PODRAS[SPC3RESOLVER[SPC3SISTEMA 
SÍSPC3 "  i 

1 044  PR I  NT " L I NE ALES ! SPC  3  DE [ SPC  3  ECUflC 
IONES [SPC 3 CON! SPC 3 COEFICIENTES! SPC 3 R 
EALES . [ SPC  3  TAL [ SPC  3  V [ SPC  3  COMO [ SPC  3  SE 
[SPC 3 "  i 

1046  PRINT" INDICfl[SPC3EN[ SPC 3 EL [ SPC 3 
EJEMPLO [ SPC  3  S I GU I ENTE . " 

1048  PRINT" [CR3RD3 "TABÍ 1 > " [SHIFT03 "T 
ABÍ26) " [SHIFTP3 "TAB(28> " [SHIFT03 [2SPC3 
[SHIFTP3 [3SPC3 [SHIFT03  C2SPC3 [SHIFTP3 


1030  PRINTTABÍ 1 > " [COMMJ3 "TABÍ 2) "2. 65 
"TABÍ 7) 32 "TABÍ 12) "9. 48" TABÍ 17) "6. 

43"  i 

1 032  PR I NTTAB í 22) " - . 78 " TAB í 26 > " C COMML  3 
" TflB  í  28 ) " ! COMM J  3  X 1 ! COMML 3 [ 3SPC  3 [ COMM J  3 
34ICOMML3 " 

1053  PR I NTT AB  í 1 ) " [ COMM J  3 " TflB  í  26 ) " [ COMML  3 
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" TflB ( 28 ) " C COMMJ 3  C2SPC3 CCOMML ] C  3SPC 3 C COMM J 3 
C 2SPC 3  CCOMML) " 

1054  PRINTTABC 1 ) " C COMMJ 3 "TAB<2) "-.33 
"TflB<7) "5. 83" TflB C 12) "48. 5" TflB < 17) "21 
.6"; 

1 056  PR I NTT  AB C 22  ) " 4 . 25 1 "  TflB  (  26  )  "  C COMML 3 
" TflB  ( 28 ) " C COMMJ  3  X2  C  COMML  3  C  3SPC  3  C  COMMJ  3 
. 9CCOMML3 " 

1 057  PR I NTTflB  < 1 ) " C  COMM J  3 " TflB  <  26 ) " C COMML  3 

" TflB  <  28 ) " [ COMMJ  3  C 2SPC  3  C COMML  3  C 3SPC  3 C COMMJ  3 
C 2SPC 3  CCOMML) " 

1058  PRINTTABC 1 ) "C COMMJ 3 "TflB(2) "89. 3 
"TflB<7)"7. 43"TAB( 12)"1 . 76"TAB< 17) 

82"; 

1060  PRINTTABC22) "55. 8"TflB<26) 11  CCOMML) 

" TflB  < 28 ) " C COMMJ  3X3 C COMML  3  CSPC  3  *  C SPC  3 

C COMMJ 3 -7 CCOMML 3" 

1061  PR I NTT AB  < 1 ) " C  COMMJ  3 " TflB  ( 26 ) " C  COMML  3 

" TflB  (  28 ) " C COMMJ  3  C  2SPC 3 C  COMML  3  C 3SPC 3  C COMMJ  3 
E2SPC3  C COMML 3 " 

1062  PRINTTABC 1 3 " CCOMMJ3 "TABC2) "-9.  4 
" TflB ( 7  > " -8. 2 " TAB ( 1 2 ) " 1 3 . 3" TAB  C 1 7) » -7 
68"; 

1 064  PR  I  NTTflB  (  22  )  "  -7 .  2  "  TflB  (  26  )  "  C  COMML  3 
"TABC23) " C COMMJ 3X4 CCOMML 3  C3SPC 3  E COMMJ 3 
83 CCOMML 3" 

1065  PRI NTTflB O ) " C COMMJ 3 " TflB < 26) " CCOMML 3 

" TflB  (  28 ) " C COMMJ  3  C  2SPC 3  C  COMML  3  C  3SPC  3  C COMMJ  3 
C2SPC3  CCOMML3 " 

1066  PR I NTTflB  < 1 ) " C COMMJ  3 " TflB  C  2 ) " 3 . 92 
"TflB (7) "87.  4"  TflB < 12) " -421 "TflB < 17) "45 
.6"; 

1 068  PR I NTTflB  C  22 ) " 39 . 7 " TAB  C  26 ) " CCOMML 3 
"  TflB  (  28  )  "  C  COMMJ  3  X5  C  COMML  3  C  3SPC  3  C  COMMJ  3 
. 2 CCOMML 3 " 

1070  PRINTTABC 1 ) " CSHIFTL3 "TflB(26) " CSHIFTB3 
"TAB (28) "CSHIFTL3C2SPC3  CSHIFT93  C3SPC3 
C  SH I FTL  3  C  2SPC 3  C  SH I FT@  3  C  CRSRD 3 " 

1072  PR I NTTflB  C 1 0 ) " C  RVSON  3  C  fl  3  C  RVSOFF  3 
"TflB (27) "#CSPC3  CRVSON3  CX3  CRVSOFF3  CSPC3 
■  C2SPC3  CRVSON3  CV3" 

1074  PR  I  NT 11 C  CRSRD  3DQNDE  C  SPC  3  C  RVSON  3  C 
fl) CRVSOFF3  CSPC)ESCSPC3LACSPC3MflTRIZCSPC3 
DE C SPC 3 COEF ICIENTES.  CSPC3C RVSON 3 C X 3 C RVSOFF 3 
C  SPC  3  ES  C  SPC  3  EL  C  SPC  3  VECTOR  C  SPC  3  DE " ; 

1076  PRINT"CSPC3 INCOGNITASCSPC3ECSPC3 
C  RVSON  3  C  V  3  C  RVSOFF  3  C  SPC  3ESCSPC3ELCSPC3 
VECTOR  C  SPC  3  DE  C  SPC  3  COEF I C I ENTES  C  SPC  3 1 
NDEPENDI ENTES"; 

1078  PR I NT " C  CRSRD 3  C  RVSON  3  PARA  C  SPC  3  CO 
NT I NUfiR C  SPC  3  PULSAR  C  RVSOFF  3  C  SPC  3 1 " 

1080  OETWÍ  ■'  I  FWíO  "  I  "  THEN 1 080 
1 082  PR I NT " C  CLR 3  C  4SPC  3  AL  C SPC  3  EJECUTA 
RSE  C  SPC  3  Lfl  C  SPC  3  SUBRUT I NA  C  SPC  3  DE  C  SPC  3 
S I STEMflS C SPC 3 DE C SPC 3 ECUflC I ONES .  CSPC 3 
SECSPC3HACSPC3"; 

1084  PRI  NT  "DEC  SPC  3  INTRODUCIRE  SPC  3COM 
OC SPC 3 DATO CSPC 3  INI CIALE SPC 3LACSPC3DI 
MENS I ON C SPC 3 DEL C SPC 3 S I STEMfi .  CSPC30CSPC3 
SEA. CSPC3 " ; 

1086  PR I NT " EL  C  SPC  3  NUMERO  C  SPC  3  DE  C  SPC  3 
I NCOGN I TAS  C  SPC  3 QUE  C  SPC  3  CONT I ENE  C  SPC  3 
EL  C  SPC  3  S I STEMA . C  SPC  3  fl  C  SPC  3  CONT I NUfiC I 
ONCSPC3 " ; 

1088  PR I NT " SE C SPC 3  INTRODUCEN C SPC 3 LOS 
C  SPC  3  ELEMENTOS  C  SPC  3  DE  C  SPC  3  Lfl  C  SPC  3  PR I 
MERflCSPC3FILACSPC3DECSPC3LACSPC3MRTR 
I Z  C  SPC  3  C  RVSON  3  C  fl  3  C RVSOFF  3 " ¡ 

1 090  PR I NT "  .  CSPC 3 LUEGO C SPC 3 EL C SPC 3 PR 
IMERCSPC3COEFICIENTECSPC3 INDEPENDIEN 
TE  C  SPC  3  DEL  C  SPC  3  VECTOR  C  SPC  3  C RVSON  3  C  V  3 
C RVSOFF 3/ C3PC3VCSPC3"; 

1092  PR  I  NT  "  AS  I C  SPC  3  SIJCES I VAMENTE  C  SPC  3 
HASTA  C  SPC  3  COMPLETAR  C  SPC  3  TODAS  C  SPC  3  Lfl 
SCSPC3FILASCSPC3EXISTENTES. " 

1094  PRINT" C6CRSRD3 CRVSON3PflRflCSPC3C 
ONT I NUflR C  SPC  3  PULSAR  C  RVSOFF  3  C  SPC  3 1" 

1096  GETWf  ■  I  FWÍO  "  I "  THEN  1 096 

1098  PR I NT 1 "  C CLR  3  C  3SPC  3  TflMB I ENC SPC  3  PO 


DRflS  C  SPC  3  RESOLVER  C  SPC3  ECUflC  I  ONES  C  SPC  3 
POL I NOM I  C'flS  C  SPC  3  DE  C  SPC  3  COEF  I C I  ENTES  " 

1100  PRI NT "CSPC 3 COMPLEJOS. CSPC 3 COMO CSPC 3 
POR  C  SPC  3  EJEMPLO  C  SPC  3  ESTA  C  SPC  3  S I GU I EN 

TE :C CRSRD 3" 

1101  PRINTTABC 1 1 ) "4"TAB<23) "3"TRBC36 
)  "2" 

1102  PRINT" C2SPC3 (3-5CRVSON3 I CRVSOFF3 
)#CSPC3XCSPC3+(-l+2CRVSON3 I CRVSOFF3 ) 

*  C  SPC  3  X  C  SPC  3 +(. 75+4  C  RVSON  3 1 C  RVSOFF  3 ) 
4CSPC3XCSPC3+CCRSRD3" 

1104  PRINTTflBC 17) " 1 "TflB(29) "0" 

1106  PR I NT" C 7SPC 3 + ( 8-2  C RVSON 3 1 C RVSOFF 3 
)*CSPC3XCSPC3+( . 8-7 C RVSON 3 I C RVSOFF 3 ) 
*CSPC3XCSPC3=CSPC30" 

1108  PR I NT " C  CRSRD  3  DONDE  C  SPC  3  C RVSON  3 1 
C  RVSOFF  3  C  SPC  3  REPRESENTA  C  SPC  3  EL  C  SPC  3  N 
UMERO  C  SPC  3  COMPLEJO  C  SPC  3  DE  C  SPC  3  MODULO 
CSPC3 1 C  SPC  3 VC  SPC  3  ARGUMENTO " 1 
1110  PRINT" CSPC390CSPC JGRflDOS. " :PRIN 
T " C  4SPC  3  AL  C  SPC  3  EJECUTARSE  C  SPC  3  EL  C  SPC  3 
PROGRAMA ,  CSPC 3 EN C SPC 3 PR I MER C SPC 3 LUGA 
R"; 

1 1 1 2  PR I NT " C SPC 3 SE C  SPC 3 PREGUNTA C SPC  3 
EL  C  SPC  3  GRADO  C  SPC  3  DEL  C  SPC  3  POL I NOM 10. CSPC 3 
fl  C  SPC  3  CONT  I  NUflC  I  ON  C  SPC  3  Hfl  V  C  SPC  3  QUE  C  SPC  3 
IRCSPC3 " ; 

1114  PRINT"ENTRANDOCSPC3LOSCSPC3DATO 
S  C  SPC  3  CORRESPOND I  ENTES  C  SPC  3  fl  C  SPC  3  LOS 
C  SPC  3  COEF I C I ENTES . C  SPC  3  EN  C  SPC  3  TODO  C  SPC  3 

1 1 16  PRINT" MOMENTO C SPC 3 SE C SPC 3 ESPEC I 
F I Cfl  C  SPC  3  EN  C  SPC  3  LA  C  SPC  3  PANTALLA .  C  SPC  3 
CLARAMENTE . C  SPC  3  QUE  C  SPC  3  COEF I C I ENTE " 

1118  PRINT" C SPC 3 HflV CSPC 3 QUE CSPC 3 INTR 
ODUC I R  C  SPC  3  PARA  C  SPC  3  QUE  C  SPC  3  NO  C  SPC  3  E 
X I STA  C  SPC  3  POS IBILIDADC  SPC  3  DE  C  SPC  3  ERR 
OR. CSPC)"; 

1119  PR I NT " TflMB I EN . CSPC 3 DEBERAS C SPC 3 
I NTRODUC I R  C  SPC  3  EL  C  SPC  3  ERROR  C  SPC  3  flDM I 
S I  BLE  C  SPC  3  EN  C  SPC  3  LAS  C  SPC  3  SOLUC I ONES . 

1120  PR I NT " C  CRSRD  3  C  RVSON  3  PARA  C  SPC  3  CO 
NT I NUflR  C  SPC  3  PULSAR  C  RVSOFF  3  C  SPC  3 1 " 

1122  GETWí  ■'  I FWí O  "  I "  THEN  1 1 22 

1124  PR I NT " C  CLR  3  C  6CRSRD 3C4SPC3 ADEMAS 
. C  SPC  3  ESTE  C  SPC  3  PROGRAMA  C  SPC  3  TE  C  SPC  3  P 
ERM I  TE  C  SPC  3  REDONDEAR  C  SPC  3  LOS  C  SPC  3 " J 
1 126  PRINT"RESULTADOSCSPC3HASTACSPC3 
LOS  C  SPC  3  DEC I MALES  C  SPC  3  QUE  C  SPC  3  DESEES 
. C  SPC  3  ES  C SPC  3  ACONSEJABLE  C  SPC  3 " ; 

1 128  PRI NT "REDONDEAR CSPC 3 LOS CSPC 3 RES 
ULTflDGS . C  SPC  3  VA  C  SPC  3  QUE  C  SPC  3  DE  C  SPC  3  E 
STfl  C  SPC  3  MANERA  C  SPC  3  SON  C  SPC  3  MAS  C  SPC  3  C 
LflROS. CSPC3 " ; 

1 130  PR I NT " AUNQUE C  SPC  3EST0  C  SPC  3  CONLL 
EVA  C  SPC  3  UN C  SPC  3  T I EMPO  C  SPC  3DECSPC3EJE 
CUC I ON  C  SPC  3  MAS  C  SPC  3  LARGO . " 

1132  PR I NT " C  4CRSRD  3  C  R VSON  3 PARA  C  SPC  3  E 
MPEZflR  C  SPC  3  CON  C  SPC  3  LA  C  SPC  3  EJECUC I ON  C  SPC  3 
DEL  C  SPC  3  PROGRflNAC SPC  3  PULSA  C  RVSOFF  3  C  SPC  3 
I" 

1134  GETW*: I FWÍO "I" THEN 11 34 
1136  RETURN 
1300  END 


A  PUBLIC  ATION  OF  ^ 
V^g^CW  COMMUNICATIONS  J 


El  juego  “Minas”  consiste  en  atravesar  un  campo  de  minas 
sin  chocar  con  ninguna  de  ellas  ni  con  los  bordes.  Para  eso  tu 
VIC  te  ayuda  diciéndote  cuántas  minas  tienes  a  tu  alrededor. 

Si  te  chocas,  el  ordenador  te  ofrece  la  repetición  con  las 
minas  al  descubierto. 

El  programa  es  muy  sencillo  y  aquí  está  su  explicación: 

Linea  80  Coloca  las  minas. 

Línea  90-120  Marco. 

Línea  130-260  Recoge  pulsación,  comprueba  si  hay  choque  o  si 
se  ha  llegado  a  la  meta,  dice  el  número  de  minas  que  hay 
alrededor,  hace  el  movimiento. 

Líneas  300-330  Repetición. 

Líneas  500-515  Principio  programa. 

Líneas  600-680  Sonido. 


1  REM  JIJAN  CLFlPES. 

2  REM  IBIZR 
10  GOSUB500 

13  GETRJ : IFAÍ-" "THEN15 

70  DI ME (200) ¡ PRINT" [ 10CRSRD3ELIGECSPC3 

N I VEL ! SPC  3  DE !  SPC  3  D I F I - ! 5SPC  3 CULTRD  C  SPC  3 

(1-5)"  :  INPUTB : W-128 

75  PRIHT"  CCLR3  CBLK3  "  ¡  P0KE36879,  30 :  PO 

KE36878 , 1 5 ¡ 54=36377 : S 1 -36874 

80  F0RQ=lT0BKl75/2  :  M-INT(76S0+506H<RND 

(  1 )  )  :  POKEM, 42 : NEXT 

90  F0R0-7724T08 1 64STEP22 : P0KE0  j  35 : PO 
KE30720+O , 0 : NEXT ¡ FQRO-81 65TO0 1 73 
100  POKEO, 35 ¡ POKE30720+O, 0 ¡ NEXT : FORO 
■8 1 77T08 1 85 ¡ POKEO -  35 : POKE30720+O ,  0  :  N 
EXT 

1 1 0  F0R0-8 1 63T07745STEP-22 : POKEO , 35 : 
POKE30720+O, 0 ¡ NEXT : F0R0=7744T07737ST 
EP-1 

115  POKEO, 35 : POKE30720+O, 0 : NEXT : FORO 
-77 33T07723STEP-1 

120  POKEO, 35 : POKE30720+O, 0 : NEXT ¡ X=81 
75  :  0-0  i  P0KE7734,  25  •'  P0KE7735, 25 :  POKE7 
736,25 

1 30  P0KE8 1 74 , 32 ¡ P0KE8 1 75 , 32 : P0KE8 1 76 
, 32 '■ PRINT" CH0M3  CRVSON3MINRSC3PC3VECI 
NRS" 


135  GETB*: IFB*-" "THEN133 

140  IFB$=" I "THENT— 22 : GOTO180 

150  IFB*»"J»THENT— 1 •GOTO180 

160  IFB*-"L"THENT»1 :GOTO180 

170  IFB$-" CSPC3 "THENT-22 : GOTO180 

175  GOTO 133 

180  C-X+T : D=PEEK(C> 

185  Z-Z+l : E(Z)-C 

187  I FD-42THEN300 

190  I FPEEK (  C+ 1 ) -42THENR-R+ 1 

200  I FPEEK ( C- 1 ) -42THENR-R+ 1 

210  I FPEEK ( C-22 ) -42THENR-R+ 1 

220  PRINT" EH0M3 " TRB( 13) " CRVSONI "R : R« 

0 

240  IFD-35THEN300 
250  I FD-25THEN400 

253  POKEC , 65 : POKEX ,96+128: POKE30720+ 

X, 2 : POKEC+30720 , 6 

260  X-C : GOSUB670 : GOTO 1 35 

300  GOSUB650 ¡ POKEC , 83 : P0KE36879 , 56 : F 

ORG-Z- 1 TO0STEP- 1 

310  F-E ( G ) : POKEF , 96+ 1 28 ; POKE30720+F , 

7 

320  FORO- 1 TO200 : NEXT : NEXT 

330  FORG-1TOZ : POKEE(G) , 63 ¡ P0KEE(G-1 ) 

, 224 : POKE30720+E ( G ) , 1 : POKE30720+E ( G- 
1),  1 

340  GOSUB600 : NEXT : PRINT" C6CRSRD3 [CRSRR] 
í BLK ] LO I SPC  3  S I ENT0 , HAS  C  SPC ] VOLADO " ¡ G 
OTO630 

345  PRINT" CHOMI C9CRSRD] CCR8RR30TRR(S 

/N) " : GETRÍ : IFR*-" "THEN343 

350  I FRÍ- " S " THENCLR : GOTO 1 0 

360  I Fflí- " N " THENEND 

370  G0T0345 

400  P0KE36879, 56 : PRINT" C6CRSRD3 CCRSRR] 
LOCSPC3HRSCSPC3HECHOCSPC3MUVCSPC3BIE 
N" : GOTO630 

500  PÜKE36879 , 8 : PR I NT " I CLR  3  C 5CRSRD 3 [ 2CRSRR 3 
CWHT3K<[SPC3#CSPC3)tf[SPC3*C2SPC3*CSPC3 
***  C  SPC  3  *** " : PR I NT " C 2CRSRR  3  C SPC  3  * 

í  SPC  3  ¡fc*  [  SPC  3éCSPC3*C  SPC  3  J#  C  SPC  3  #  " 

510  PRINT"! 2CRSRR  3  *  C  SPC  3  4  C  SPC  3  #  C  SPC  3 
«  C  SPC  3  ** C  SPC  3  «««  C  SPC  3  *** " : PR I NT " ! 2CRSRR  3 
#[SPC3*[SPC3*[SPC3*C28PC3#CSPC3¡*[SPC3 
¡KC3SPC3*"  : PRINT" !2CRSRR3#CSPC3l«CSPC3 
*[SPC3WC2SPC3*CSPC3*CSPC3l*CSPC3*** 

513  PR I NT " C  HOM  3  C 3CRSRD 3  C  6CRSRR 3  * 

520  RETURN 

600  POKES 1,255: FORO-0TO399 ¡ NEXT : POKE 
S 1,0: RETURN 

630  FORO-200TO255 : P0KES4 , O : F0RW-1T02 

0 : NEXT : NEXT : P0KES4, 0 ¡ G0SUB345 

630  FORO-255TO200STEP- 1 : P0KES4 , 0 : FOR 

W- 1 TO20 : NEXT : NEXT : P0KES4 , 0 : RETURN 

670  W-W+l : IFW>235THENU-255 

680  P0KE36876 , W : FORO-0TO20 : NEXT : POKE 

36876,0: RETURN 


Tener  una  copia  impresa  del  directorio  de  un  disco  es 
siempre  útil.  Para  hacerlo  teclea: 
Load“$”,8:openl,4:cmdl:list 
Cuando  termine,  teclea: 

Print#l:closel 

T.S.  RUN  EE.UU. 


Commodore  World 
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Os  mando  como  colaboración  la  adaptación  para  el  CBM-64 
hecha  por  mí  del  programa  publicado  en  el  nQ  8  de  la  revista 
COMM.  WORLD  en  el  VIDEO-CASINO,  para  el  VIC-20. 

He  introducido  varias  novedades  que  paso  a  comentaros: 

En  primer  lugar  he  aumentado  los  caballos  de  5  a  9;  y  también 
he  puesto  caracteres  programados,  dando  un  aspecto  de 
caballo,  y  qué  más  quisiera  yo  que  de  caballo  de  carreras. 

Otra  novedad  es  que  existe  la  posibilidad  de  que  puedan  jugar 
hasta  CUATRO  personas  haciendo  apuestas,  todo  esto  se 
representa  en  la  parte  inferior  de  la  pantalla. 

Hay  alguna  cosilla  más,  pero  creo  sin  importancia.  El  resto  no 
hace  falta  añadir  más  ya  que  viene  estupendamente  “abrigado” 
en  el  ns  8  de  la  revista. 

Hasta  otra. 


5  REM#CARRERAS##COMM. WORLD-8##### 

6  REM**ABAPTABO  PARA  CBM-64  POR#* 

7  REM##FELIX  GARCIA  GUTIERREZ#### 

8  REM 

10  PR I NT 1 "  C CLR I E 1 2CRSRD 3 £  8CRSRR 3 UN  E  SPC 3 
MOMENTO ESPC 3 POR ESPC  3 FAVOR. . . " 

11  PRINTCHRÍ ( 142) ¡ P0KE52, 48 : P0KE56, 4 
8  ¡  CLR 

1 2  P0KE56334 , PEEK( 56334 3 AND254 ¡ POKE 1 
,  PEEK< 1 3AND251 

13  FOR I -0TO 1 023 : POKE I + 1 2288 , PEEK <1+5 
3248) : NEXT : P0KE1 , PEEK< 1 >0R4 

1 4  PQKE56334 , PEEKC 56334 > OR 1 : P0KE5327 
2 - <  PEEK  <  53272 ) AND240 > + 1 2 

15  FOR I * 1 3048TO 1 3055 ¡ RERDQ ' POKE I, Q : N 
EXT 

16  FORI-13040TO1 3047 ¡ READW ¡ POKEI ,  W  :  N 
EXT 

17  DATA1,3,3, 191,223,22,36, 18 

1 8  DATA228 , 1 42 , 95 , 249 , 240 , 80 , 72 - 1 32 

20  PR I  NT “ C  CLR  3  C C0MM3 3 [ 10SPC] CARRERAS 
£  SPC 3  BE  E SPC 3  CABALLOS  E 10SPC3 " 

21  PRINT" E3CRSRD3 EBLK3  C 1 1CRSRR3MAXIM 
0  C  SPC  3  4  C  SPC 3  JUGADORES  C  CRSRB 3 " 

22  PRI NT "NCCOMMV 3 JUGADORES?" ¡ INPUTN¡ 
FORA»lTON:Rl(A)-500 

23  PR I NT " C  CRSRB ] NOMBRE  C  SPC  3  BEL  C  SPC ] J 


UGABOR  C  SPC  3  N  £  COMMV  3  "  A :  I NPUTN*  C  A  )  :  NEX 
TA 

24  PRINT" £CLR3£WHT3" 

25  ML-1024  :  MN=55296  ¡  LA-40  ’•  POKE53280, 

s^pokesszsi.g 

26  SI -54272 

30^B-0 : R-0 : F0RI-1T09 : A< I )-0 : B< I )-0 : N 

80  PRINT"BIENVENIDO£SPC3A£SPC3LAS£SPC3 
CARRERAS E2SPC 3" 

85  FORI-1TO500 : NEXT 

86  X 1 -2 ¡ X2-2 : X3-2 : X4-2 ¡ X5-2 : X6-2 : X7- 
2 : X8-2 : X9-2 

100  PR I NT " LAS  E  SPC  3  APUESTAS  E  SPC  3  ESTAN 
E5SPC34: 1" : PRINT 
105  GOTO6000 

400  PRINT" ECLR3 " ; : GOSUB5500 

420  FORL-1 063TO 1 783STEP40 : POKEL ,160: 

POKEL+54272, 14:NEXTL 

425  PRINT" EH0M3E 19CRSRD3 EC0MM1 3 ERVS0N3 

E  40SPC  3  E  RVSOFF  3 " j 

427  GOSUB8000 

430  GOSUB4000 

600  R- 1 NT ( 9#RNB  < 1 )  + 1 ) 

620  GOSUB 1 000 : GOSUB5000 
625  ONRGOTO20 1 0 , 2030 , 2050 , 2070 , 2090 , 
2110,2130,2150,2170 
630  B<R)-B<R)+1 
640  I FB  <  R ) C37THEN600 
655  GOSUB3000: FORT- 1T01 000 :NEXTT 
665  PRINT" ECLR3 " : F0RI2-1T0LA : PRINT"- 
: NEXT 12 
667  GOTO7000 

690  Z*-"" : PRINT" E CRSRB 3 OTRAE SPC 3 CARR 
ERATE  SPC  3 ( SXN ) " i 

691  INPUTZ$ 

700  IFZ*-"S"THEN24 

710  POKE53280,  14  :  P0KE53281 , 6  ■'  PRINT"  ECLR3 
ECOMM73 " i ¡END 
990  ENB 

1000  REM#SUMA  AL  CONTADOR  APROPIABO# 

1090  I FR- 1 THENX 1 -X 1 + 1 

1092  I FR-2THENX2-X2+ 1 

1093  I FR-3THENX3-X3+ 1 

1094  I FR-4THENX4-X4+ 1 

1095  I FR-5THENX5-X5+ 1 

1096  I FR-6THENX6-X6+ 1 

1097  I FR-7THENX7-X7+ 1 

1098  I FR-8THENX8-X8+ 1 

1099  I FR-9THENX9-X9+ 1 

1100  RETURN 

2000  REM#COLOCA  CABALLOS  EN  PANTALLA 
2010  V-l 

2020  POKEML+X 1  +40#V ,  94  ■'  POKEMN+X 1+40# 

V,  1 

2021  POKEML+X 1 - 1 +40# V , 95 

2022  POKEML+X 1 -2+40#V , 32 

2023  GOTO630 
2030  V-3 

2040  POKEML+X2+40#V , 94 : POKEMN+X2+40# 

V,  2 

2041  P0KEML+X2- 1 +40#V , 95 

2042  POKEML+X2-2+40#V, 32 

2043  GOTO630 
2050  V-5 

2060  POKEML+X3+40# V ,  94  ¡  POKEMN+X3+40# 

V,  3 

2061  POKEML+X3-1+40#V, 95 

2062  POKEML+X3-2+40# V , 32 

2063  GOTO630 
2070  V-7 

2080  POKEML+X4+40# V , 94 ¡ POKEMN+X4+40# 

V,  4 

2081  POKEML+X4-1+40#Y,  95 

2082  POKEML+X4-2+40#V, 32 

2083  GOTO630 
2090  Y-9 
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2100  POKEML+X5+40*V j 94 : POKEMN+X5+40* 

Vj  5 

2101  P0KEML+X3- 1 +40*V > 95 

2102  POKEML+X3-2+40*V  >  32 

2103  GGTO630 
2110  V-ll 

2120  POKEML+X6+40*V j 94 •' POKEMN+X6+40* 

Vj6 

2121  POKEML+X6-1+40*Vj93 

2 1 22  POKEML+X6-2+40*V j  32 

2123  GGTO630 
2130  V“13 

2140  POKEML+X7+40* V , 94 : POKEMN+X7+40* 

Vj7 

2141  POKEML+X7~1+40*Vj  95 

2 1 42  POKEML+X7-2+40*V j 32 

2143  GOTO630 
2150  V-13 

2 1 60  POKEML+X8+40*V  -  94  •'  PQKEMN+X8+40* 

Vj  8 

2161  P0KEML+X8- 1 +40IKV  ¡  95 

2162  POKEML+X8-2+40*Vj  32 

2163  GOTO630 
2170  V»1 7 

2 1 80  POKEML+X9+40*V  j  94  :  POKEMN+X9+40* 

Vj  9 

2181  POKEML+X9-1+40*Vj95 

2182  POKEML+X9-2+40*Vj32 

2183  GOTO630 

3000  REM*SONIDO* 

30 1 0  P0KE54296 , 9 ¡ POKES 1 +5 j 1 25 ¡ POKES 1 
+  1 j  43 : POKES 1 j  52 

3020  POKES 1 +4  j  33 : FORT» 1 T025 ■ NEXTT 
3030  P0KE54296 j 0 : POKES 1 +5  j 0 : RETURN 
4000  P0KE54296 j 1 5 : S 1 -54272 : REMESON I D 
O  PARA  COMENZAR* 

4010  FORV“0TO18 • POKEML+3+40*Vj 1 15 ; PO 
KEML+54272+3+40*Vj 14 : NEXTV 
4020  F0RJ2- 1T01 000 : NEXT J2 
4040  FORX= 1 5TO0STEP- 1 : P0KE54296 j  X : PO 
KES1+4j 129 : P0KES1+3j 15 
4050  POKES 1  + 1 j  40 : POKES 1 j 200 ¡ NEXTX 
4 1 00  P0KE54296 j 0 : POKES 1 +5  j  0 : RETURN 
5000  P0KE54296 j 1 4 : POKES 1  + 1 j  48 : POKES 1 
j 1 27 : FORT ■ 1 T025 : NEXT 

3001  P0KE34296  > 0 : RETURN 
5500  A“1 ¡B-l 

5510  FORV“ 1 TOl 7STEP2 

5520  POKEML+2+40* V , 94 ¡ P0KEML+54272+2 

+40*Vj  B 

5525  POKEML+ 1 +40* V  j  95 : POKEML+ 1 +54272 
+40*Vj  B 

3530  POKEML+40*Vj 48+ A : P0KEML+34272+4 
0*VjB 

3540  A-A+l : B“B+1 
3550  NEXT ¡ RETURN 
6000  FORA“lTON 

6022  I FR 1 <  A ) »0THENPR I NTN$ ( A ) i " C  SPC ] N 
OCSPC]TIENECSPC]DINERO" :R(A)*0;H<A)* 

0 ■ OOTO6043 

6025  PR I NT " EL C SPC ] JUGADOR CSPC3NC COMMV 3 
" A ; N* ( A ) i " C  SPC  3  APUESTA  C  SPC ] POR  C  SPC  3  E 
LCSPC3CABALLOCSPC3NCCOMMV3 " ¡ INPUTHCA 
) 

6030  IFH(AK1  ORH < A ) >9THEN6025 

6035  PRINT"CUANTO CSPC 3 APUESTAS?" i INP 

UTR(A) 

6040  IFRCAXIORRC A)>R1 (A)THENPRINT" C3CRSRU3 
" :OOTO6035 
6043  NEXTA 
6050  GOTO400 

7000  PRINT" CHOM3 C2CRSRD3 CCRSRR3 " ;FOR 
ABITON 

7005  IFH(A3-RTHENR1<A>R1(A)  +  C4*R<A) 

) :GOTO7015 

7010  R1(A)»R1<A)-RCA) 

7013  PR I NT " APOSTANTE  í SPC  3  N  C COMMV  3 " A ¡ 

Nf (A) j  TAB<30)R1 í A> 

7020  NEXTA 


7025  GOTO690 

8000  W* 1 : PR I NT " [ HOM  3  C  20CRSRD  3 " 

8010  FORA*lTON 

8020  PRINTTAB(W)N*<A3 :PRINTTAB(W)R1< 
A) ¡ PRINTTABCW-1 )R(A)'V"H<A) 

8030  PRINT" C5CRSRU3 " 

8040  W-W+10:  NEXTA  .'RETURN 


i 

¡¡«■B111S 

¡PÜ 

Sililli 

Esta  nueva  versión  del  “Topo  Loco”  es  el  resultado  de  un 
estudio  detallado  de  la  elaborada  por  Manuel  Torralba  que 
publicó  Commodore  World  en  su  número  de  marzo  de  este 

El  listado  es  completamente  nuevo  y  proporciona  al  juego  el 
atractivo  del  color  ya  que  las  lechugas  son  de  color  verde,  los 
bloques,  letras  y  números  de  color  azul,  el  rastro  del  topo  y  su 
explosión  de  color  púrpura  y  el  huerto  de  un  color  terroso 
claro  enmarcado  en  azul  verdoso  claro  que  se  obtiene  con  el 
número  27  del  código  de  colores  de  pantalla  y  marco.  La 
diferencia  de  color  entre  el  huerto,  simulado  por  la  pantalla,  y 
el  marco  permite  distinguir  con  nitidez  los  límites  del  huerto. 
Con  objeto  de  evitar  la  repetición  del  texto  inicial  para  jugar 
de  nuevo  he  introducido  las  líneas  560  y  570  que  mediante  la 
pulsación  del  espaciador  ponen  en  marcha  el  programa  en  la 
línea  120  y  ahorran  un  tiempo  precioso  al  jugador  impaciente. 
Los  límites  del  huerto  pueden  fijarse  a  voluntad  según  cuatro 
modalidades  que  se  ofrecen  en  un  menú  previo  al  inicio  del 
juego  y  que  permiten  limitar  el  huerto  por  los  cuatro  costados, 
por  los  costados  horizontales,  por  los  costados  verticales  o  por 
ningún  costado.  El  lector  se  hará  una  idea  perfecta  de  cómo 
funciona  cada  modalidad  sabiendo  que  si  el  huerto  está 
limitado  por  los  costados  horizontales  el  topo  pasa  del  costado 
derecho  al  izquierdo  o  viceversa  manteniendo  la  fila  y  la 
dirección  de  movimiento  pero  explota  si  intenta  salir  del  huerto 
por  el  costado  superior  o  por  el  inferior. 

Para  que  la  dirección  del  topo  sea  más  fácil  e  intuitiva  he 
sustituido  la  I,  la  J,  la  L  y  el  espaciador  por  la  P,  la  D,  la  F  y 
la  L  respectivamente  de  modo  que  con  la  mano  izquierda  se 
controlen  los  movimientos  horizontales  y  con  la  derecha  los 
verticales. 

Las  instrucciones  de  las  líneas  250  y  280  evitan  los  problemas 


que  ocasiona  la  superposición  de  bloques  y  lechugas  mediante 
un  rastreo  previo  de  la  posición  de  pantalla  en  la  que  se  va  a 
colocar  un  bloque  o  una  lechuga.  Gracias  a  estas  dos  líneas  el 
número  de  bloques  del  primer  huerto  es  quince  y  aumenta  en 
cinco  de  un  huerto  al  siguiente  y  el  número  de  lechugas  es 
siempre  quince.  Lo  primero  es  interesante  para  aumentar  la 
dificultad  y  estimular  al  jugador,  pero  lo  segundo  es  esencial 
para  la  buena  marcha  del  juego.  Si  el  número  de  lechugas  fuese 
inferior  a  quince  como  consecuencia  de  la  superposición  de 
lechugas,  el  topo  continuaría  moviéndose  tras  engullirlas  todas 
y  no  habría  forma  de  pasar  al  huerto  siguiente.  El  jugador  sólo 
tendría  entonces  dos  alternativas:  parar  el  programa  y  ponerlo 
de  nuevo  en  marcha  o  dejar  que  explotasen  uno  tras  otro  los 
topos  que  le  quedasen  hasta  consumir  los  cuatro  de  que 
dispone  y  ambas  suponen  comenzar  de  nuevo  en  el  huerto  uno. 
El  aumento  de  velocidad  del  topo  es  mucho  más  notorio  en 
esta  versión  del  juego  gracias  al  nuevo  procedimiento  empleado 
que  en  lugar  de  restar  una  cantidad  fija  en  cada  movimiento  a 
la  variable  del  bucle  de  retardo  que  controla  la  velocidad  y 
partir  en  todos  los  huertos  del  mismo  valor  inicial  la  mantiene 
constante  en  cada  huerto  y  le  resta  el  diez  por  ciento  de  su 
valor  al  pasar  de  cada  huerto  al  siguiente. 

La  última  novedad  del  programa  que  merece  comentario  es 
que  he  sustituido  siempre  que  he  podido  las  instrucciones 
condicionales  por  fórmulas  que  utilizan  la  capacidad  del  VIC- 
20  de  evaluar  con  -1  las  proposiciones  lógicas  verdaderas  y  con 
0  las  falsas.  Esta  sustitución  abrevia  notablemente  el  programa 
y  proporciona  una  mayor  rapidez  en  su  ejecución.  Una 
muestra  de  esta  técnica  puede  verse  en  la  línea  330  que 
sustituye  a  las  líneas  25,  30,  40,  60  y  70  y  en  la  línea  340  que 
realiza  la  misma  función  que  las  líneas  80,  90,  100  y  1 10. 


1  REM******************** 

2  REM*  TOPO  LOCO  * 


3  REM* - i* 

4  REM*  POR  * 


5  REM*  J.  L.  GALERA  * 

6  REM******************** 

10  PRINT" [CLR] " : P0KE36S79. 25 ¡ P0KE368 

78. 15 :PÜKE36865. 158 

20  PRINT" [ 3CRSRD 3 [ 4CRSRR ] **TÜP0[SPC ] 

LOCO**" 

30  PR I NT " C 2CRSRD ] [ 2CRSRR ] MUEVE i SPC  3  A 
L C 3PC ] TOPO CSPC] LOCO" 

40  PR I NT " [ CRSRD ] [ 3CRSRR ] V C  SPC  3 COME C  SPC 3 
TODAS ISPCI LAS" 

50  PR I NT " [ CRSRD ] LECHUGAS  C  SPC ] ( C  GRN ] [SHIFTX] 
ÍBLU3). CSPC] EVITANDO" 

60  PR I NT " [ CRSRR ] CHOCAR [ SPC ] CONC  SPC ] T 
IJ[  SPC]  RASTRO" 

70  PR I NT " [ CRSRD ] [ CRSRR ] 0 [ SPC  3 LOS  C  SPC ] 
BLOQUES [SPC] AZULES. " 

80  PR I NT " [ 2CRSRR ] D I R I GE [ SPC ] AL [ SPC ] T 
0P0ÍSPC3C0N" 

90  PRINT" [CRSRD] [7CRSRR3D. F. L. P. " 

1 00  F0RAL= 1 50TO36STEP-0. 07 : P0KE36865 
. AL : NEXTAL 

110  FORI=1TO3000 ■ NEXTI 
1 20  PR I NT " [ CLR ] [ 4CRSRD ] [ 2SPC ] EL I GE [ SPC ] 
ENTRE [ SPC ]LAS [ SPC ] S I — C 2SPC ] GU I ENTES [ SPC ] 
MODALIDADES." 

130  PRINT" [CRSRD] CSPC] 1 : HUERT0CSPC3C 
ERCAD0Í  SPC  3P0R [ 4SPC ] TODAS CSPC] PARTES 

i  40  PRINT " [ SPC 3 2 : HUERTO [ SPC ] CERCADO [ SPC ] 

POR [ 4SPC ] LA [ SPC ] I ZQU I ERDA  C  SPC ] V [ SPC ] 

POR [4SPC] LA [SPC] DERECHA. " 

150  PR I NT " [ SPC ] 3 : HUERTO [ SPC ] CERCADO  C  SPC ] 

POR [ 4SPC ] ARR I Bfi [  SF'C  ]  V  [  SPC  ]  POR  C  SPC  ]  AB 
AJO.  " 

160  PR I NT " [ CRSRU ] [ SPC ] 4 : HUERTO [ SPC ] S 
IN[SPC]CERCAR. " : I NPUT " [ 2CRSRD ] [ 5SPC ] 

MODAL IDAD=" ¡ E 

170  I  FEO  1 ANDE02ANDE03ANDE04THEN 1 
20 

180  PRINT" [CLR] [6CRSRD3ELIGEISPC3DIF 


I CUL  T AD [ SPC ] ENTRE [ CRSRD ] 1 [ SPC ] V [ SPC  ] 

20. [ SPC ][SHIFTL]A[ SPC ] MAYOR [ SPC ] D I F I 

190  PR I NT " CULTAD [ SPC ] CORRESPONDE [ SPC ] 

HL [ SPC ] [ CRSRD ] C 1 0CRSRR ] 1 . [ 4CRSRD ] [ 4CRSRL ] 
D="  j 

200  INPUTD 

210  I FD< 1 ORD>20THEN 1 80 

220  H= 1 : T=4 : 1 5 : V-30*D : P0KE36879 , 27 

230  L* 1 5 ■ PR I  NT " [ CLR ] [ 1 1 CRSRD ] [ 6CRSRR ] 
HUERTO"  i  H : F0RI-1 TO1000 : NEXTI 
240  F0RI=1T0B 

250  K*INT <RNDÍ 1 >*506) ¡ IFPEEKC7680+K) 
-102THEN250 

260  PÜKE7660+K. 102 : POKE38400+K. 6 : NEX 
270  F0RI“1T015 

280  K= I NT  < RND ( 1 ) *506 ) : IFPEEKC 7680+10 

» 1 02ORPEEK  < 7680+10  «88THEN280 

290  PÚKE76S0+K .  88  •'  POKE38400+K .  5 :  READ 

A :  P0KE368 76 .  A  •'  FOR J® 1 TO 1 50 :  NEXT :  NEXT 

300  P0KE36876. 0 : RESTORE 

310  FORI«1TO1000 ¡ NEXTI 

320  Xa 12 ; Y*1 1 : M“0 

330  GETTÍ :  M=M*  <  T$0  "D  "  )  *  <  T*0  "  F  "  )  *  <  T 
#0"P"  )*(T*0"L"  )~<Tí="L">~2*<T$a"F" 
)-3*<Tí="P“) 

340  XPaX+CM=0)-(M"2] : VP=V-CM-1 )+<M«3 

350  P1=22*V+X : P2=22*YP+XP : CA»PEEK< 76 
80+P2) 

368  I FXP<0ORXP>2 1 ORVP<0ORVP>22THENON 

EGOTG430. 580.600.620 

370  I FCA» 1 02ORC A=8 1 ORCfi=>42THEN430 

380  X=XP : V=VP : POKE7680+P2. 81 : P0KE384 

00+P2.4 

390  I FCAO88THENP0KE36876 .150-  G0T042 
0 

400  FOR I a 1 50TO250 ¡ P0KE36876 . I : NEXT I  : 
P0KE36876. 0 : LaL-l 
410  IFL=0THEN480 

420  FOR I  *  1 TÜV :  NEXT  ■'  P0KE36876 .  0 :  G0T03 
30 

430  POKE7680+P1 . 42 ■ POKE38400+P1 . 4 : C* 

256 

440  FOR I a 1 5TO0STEP-0 . 1 : C=C-1 : PÚKE368 
79. C : P0KE36878. I :P0KE36877. 1 80 : NEXTI 

450  P0KE36877. 0 : P0KE36878 . 15 : P0KE368 

79.27 : T“T-1 

460  IFT»0THEN510 

470  GOTO310 

480  FOR  I  =■  1  TO  1 5 :  READA  ¡  NEXT  I 
490  F0RI=1T031 :  READA.  Al  ■'  P0KE36876.  A  ■' 
P0KE36879.fi: F0RJ=1T0A1 : NEXTJ : P0KE368 
76.0: NEXTI 

500  RESTORE :  H«H+1  :  BaB+5  :  VaV-VX10  ■'  GOT 
0230 

510  F0RI=1T077  •'  READA :  NEXTI 

520  FOR  I a  1  TO  1 6  :  READA :  P0KE368 76 .  A :  FOR 

J=1T01 50: NEXTJ: NEXTI : RESTORE 

530  P0KE36879. 25 : PRINT" C CLR] C9CRSRD] 

[ 4CRSRR ] F I N [ SPC ] DEL [ SPC ] JUEGO . " 

540  PR I NT " [ CRSRD ] C  CRSRR ] PARA [ SPC  3 JUG 
AR CSPC] DE [SPC] NUEVO" 

550  PR I NT " [ CRSRD ] [ CRSRR ] PULSA [ SPC ] EL 
[SPC] ESPACIADOR. " 

560  GETfií  :  IFAÍO"  [SPC]  "THEN560 
570  RUN120 

580  I FXP<0ORXP>2 1 THEN430 

590  VP«-22*<VP<0) ¡GOTO350 

600  IFYP<0ORVP>22THEN430 

610  XP=-21*(XP<0>  .'GOTO350 

620  XQa-2 1  *  <  XP<0  )  -XP*  ( VP<0  )  -XP*  (  YP>2 

2 ) : YP*-YP*( XP<0 ) - YP*  <  XP>2 1 > -22*  í VP<0 

) : XP“XQ : GOTO350 

630  DATA 1 95 . 20 1 . 207 . 209 .215.219. 223 . 
225.223.219.215.209.207.201. 195 


640  DATA 195, 150,209;  150,209, 150,215; 
150,219, 150,209, 150,219, 150,215,  150 
650  DATA195, 150,209, 150,209, 150,215, 
150,219, 150,209,300,207,  150, 195, 150, 

209. 150.209. 150 

660  DRTR2 15, 150,219, 150,221,150,219, 
150,215, 150,209, 150,207, 150, 195,  150 
670  DATA201, 150,207, 150,209,300,209, 

150.27. 150 

680  DRTA225, 223, 0,219,215,0, 209, 207, 
201,207,201, 195,0,0,225,0 


Ahorcado 


Este  es  el  típico  juego  del  ahorcado.  Un  jugador  escribe  una 
palabra  o  una  frase  (no  mayor  de  2  líneas  de  pantalla)  y  el 
otro  sin  haberla  visto,  claro  está,  debe  adivinarla  pulsando  las 
letras  que  crea  convenientes,  tiene  6  intentos  para  lograrlo.  A 
cada  letra  pulsada  que  no  este  en  la  palabra  se  le  va  dibujando 
un  trozo  de  horca,  donde  quedará  colgado  él  si  comete  más  de 
6  fallos.  Si  logra  adivinarla  sale  una  pantalla  de  felicitación. 
Por  propia  experiencia  sé  que  es  un  juego  muy  apto  para 
niños  y  para  reuniones  de  adultos  de  4  ó  5  personas. 

A  la  hora  de  teclear  el  programa  lo  más  engorroso  serán  las 
sentencias  que  se  encargan  de  los.  dibujos,  en  concreto,  de  la 
470  a  la  630  (dibujo  de  cuando  estas  ahorcado),  de  la  1000  a  la 
2400  dibujo  del  proceso  de  ahorcamiento)  y  de  la  8000  a  la 
12500  (pantalla  de  felicitación),  podéis  poner  el  dibujo  que 
queráis  inventaros,  os  aconsejo  primero  hacer  el  dibujo  (con 
los  signos  de  las  teclas  frontales)  y  después  poner  el  número  de 
sentencia,  el  PRINT,  el  TAB  y  abrir  comillas  (no  es  preciso 
cerrarlas),  luego  pulsar  RETURN,  y  lo  mismo  con  la  siguiente 
línea. 

Está  diseñado  para  televisión  en  color,  pero  en  blanco  y  negro 
también  se  ve  bien.  Tiene  una  rutina  de  sonido  para  cada  vez 
que  pulsas  una  tecla. 

Al  jugar  es  importante  acordarse  de  las  letras  pulsadas 
erróneas  para  no  volver  a  repetirlas. 

La  elección  de  las  combinaciones  de  colores  es  obra  de  mi 
compañera;  así  pues,  el  programa  también  tiene  un  delicado 
toque  femenino.  Que  os  divirtáis! 


10  PR I NT " C  CLR  3 " : Z»0 : DN-0 : POKE53280 , 7 
: P0KE5328 1 , 1 0 : PR I NTCHR*  <1 44  > 

12  PR I NT " QU I ERES [ SPC  3 1 NSTRUC I 0NES? " 

13  PR I NT " S I C  SPC ] LAS [ SPC  3  QU I ERES  [  SPC  3 
PULSA C2SPC3S" 

14  PRINT"SI [SPC3NOCSPC3LASCSPC3QUIER 
ESCSPC3PULSAC2SPC3N" 

15  GETHf : IFHÍ»" "THEN1S 

16  CS» 1 60 : G0SUB 1 5300 

17  IFH**"N"THEN120 
20  GOSUB5000 

29  POKE53280, 13 : P0KE53281 , 8 : PRINTCHR 
*(144) 

30  PR I NT " YA  C  SPC  3  HRBE I S  C  SPC 3  DEC I D I DO  f  SPC  3 
QUIENCSPC3EMPIEZA?" 

40  FORX» 1 TO2000 : NEXT : PR I NT " C  CLR  3 " 

50  PRINT"BIEN, ESCR I BE  C  SPC  3  LA  C  SPC  3 PRL 
RBRR C  SPC ] 0  C  SPC  3  LR [ SPC 3FRRSE C SPC  3  QUE  C  2SPC  3 
QU I ERRS , V  C SPC  3 LUEGO  C  SPC  3  PULSA  C  SPC  3  LA 
CSPC3TE" , 

60  PR I NT " CLfi  í SPC  3  RETURN , TUOPONENTEC SPC  3 
T I ENE  C  SPC  36 [ 2SPC 3  OPORTUN I DfiDES [ SPC  3  P 
RR A  C  SPC  3  HD I V I NAR  C SPC  3  LO  C  SPC  3  QUE " 1 
70  PR I NT "[ SPC 3 HAS C SPC 3 ESCRITO, INCLUI 
DOS  C  SPC  3  LOS  C  2SPC  3  ESPRC I  OS  C  SPC  3  ENTRE  [  SPC  3 
PALABRAS, SI CSPC3 HAY CSPC3 UNA CSPC3FRAS 
E" 

75  PR I NT : PR I NT " LOS C  SPC 3 ESP AC I  OS C  SPC 3 
SE  C  SPC  3  MARCAN i SPC  3  PULSRND0  C  SPC  3  LR  C SPC  3 
BRRRRESPRC I RDORfi . " 

78  PR  I  NT  “  LA  C  SPC  3  FRASE  L  SPC  3  NO  C  SPC  3  PIJE 
DE  C  SPC  3  ESCEDER  C  SPC  3  DE  C SPC  3  DOS  C  SPC  3  L I 
NERS. " 

80  PRINT : PR I NT " DE C SPC 3 ACUERDO? , CSPC3 
PARA [ SPC  3  COMENZAR  C SPC  3  RPR I ETA  C  SPC  3  Lfl 
C  SPC  3  TECLA  C  2SPC  3  S . " 

90  GETF*' IFF*»" "THEN90 
95  CS» 1 60 ; 00SUB 1 5300 
100  IFF*»"S"GOTO120 
110  GOTO90 
120  GOSUB5000 

130  POKE53280, 13 ; P0KE53281 , 4  ¡PRINTC 
HR$(144) ¡ INPUTfl* 

140  GQSUB5000 

1 50  PR I NT " C0M I ENZA  í SPC  3  A  t SPC  3  TECLEAR 
C  SPC  3  LETRAS  C  SPC  3  DE  í SPC  3  UNA  C SPC  3  EN  C  SPC  3 
UNA" 

1 60  FORX» 1 TO2000 : NEXT ¡ PR I NT " C  CLR  3 " 

162  PRINT" CH0M3 " ; F0RY»lT0LEN(flí ) 

164  PRINTTAB<1)“. "i 
166  NEXT 

170  GETCf : IFC*»" "GOTO170 

180  CN»0  '■  X»0 ;  Y*0 

182  CS» 1 70 : G0SUB 15300 

185  F0RY»1T0LEN<G*) ¡ IFMIDBCG», Y, 1 >»C 
ÍTHENGOTO170 

186  NEXTV 

190  F0RX»1T0LEN<A*> 

200  B$»MIDÍ <A$, X, 1 ) 

202  IFB$»CÍTHENF$»B$ : G$»GÍ+F$ 

210  IFB$=C*THENPRINT,'CH0M3"  ¡PRINTTAB 
(X)Bf  ■  PRINT"  C2CRSRIJ3  "  :  CN-CN+1 :  DN-DN+ 

1 

215  IFB*»CíTHENCS»250 i GOSUB15300 
220  I FDN»LEN ( A* ) THEN7490 
230  NEXT 

240  IFCNO0GOTO170 

250  Z»Z+1 : CS*140 : GOSUB15300 

260  ONZGOTO950, 1250, 1550, 1850,2150 

270  IFZ-6GOTO450 

280  GOTO 170 

450  PRINT" CCLR3 " ; POKE53280, 0 : POKE532 
81,2 

460  FORV» 1 TO500 i NEXT 

470  PRINT: PRINT: PRINTi PRINT 

500  PRINT" 1 20SPC 3 C SH I FT0 3 C C0MMV 3 í SH I FT£ 3 

[3C0MMV3  CSHIFTH3 

510  PR I NT " [ 20SPC  3  C  C0MMH 3  í SH I FT£  3  C 4SPC 3 
CSHIFTH3 

520  PRINT" C20SPC3 CSHIFT£3 C5SPC30 


I  Commodore  World 


ESPECIAL  PROGRAMAS 


530  PRINT" C20SPC] CCOMMH]  C55PC] CSHIFTB] 

340  PRINT" C20SPC] CCOMMH] C4SPC] CSHIFTN] 
CSHIFTB] CSHIFTM] 

530  PRINT" C20SPC] CCOMMH] C5SPC] CSHIFTB] 

560  PR I NT " C 20SPC ] C COMMH ] C 4SPC ] CSHIFTN] 

CS'PC]  CSHIFTM] 

570  PRINT" C20SPC] CCOMMH] C3SPC] CSHIFTN] 
C3SPC] CSHIFTM] 

580  PR I NT " C 20SPC ] CCOMMH ] C 2SPC ] C SH I FT J ] 
C5SPC] CSHIFTK] 

590  PRINT" C20SPC] CCOMMH] 

600  PRINT" C20SPC] CCOMMH] 

610  PR I NT " C  20SPC ] C  SH I FTL ] C  COMMP ] 

620  PRINT" 

630  PRINT" C 1 7SPC]LACSPC] VIDA CSPC ]ESCSPC] 
CRUEL  I 

632  FORX“1TO1500 : NEXT 
635  PR I NT " C  CRSRD ] C  PUR ] C  2SPC ] ESTO  C  SPC ] 
ERACSPC]LOCSPC]MISTERIOSO : CSPC] " : PRI 
NT"  CBLK]  "  i  PRINT"  C2SPC]  "A* 

640  END 

950  PRINT" C4CRSRD]" 

1000  PRINTTHBÍ22)  " C7COMMP] 

1100  PRINTTABC22)  " CCOMMK] C2SPC] 

C  SH I FT£ ] C  3SPC ] C  SH I FTT ] 

1200  PRINTTAB<22>  "CCOMMK] CSPC] 

CSHIFT£] C4SPC] CSHIFTT] 

1202  GOTÜ3000 
1250  PRINT"C7CRSRD]" 

1300  PRINTTABC22)  " CCOMMK] CSHIFTB ] 

C5SPCI0 

1400  PRINTTHBC22)  " CCOMMK] C5SPC] 

CSHIFTN] CCOMMT] CSHIFTM] 

1500  PRINTTRBÍ22)  " CCOMMK] C4SPC] 

CCOMMM] CSHIFTH] CSPC] CSHIFTG] CCOMMG] 

1502  GOTO3000 

1550  PRINT" C10CRSRD]" 

1600  PRINTTABC22)  " CCOMMK] C4SPC] 

CSHIFTJ] CSHIFTH] CCOMMH] CSHIFTG] CSHIFTK] 

1700  PRINTTABC22)  " CCOMMK] C5SPC] 

CCOMMM] CSPC] CCOMMG] 

1800  PRINTTABC22)  " CCOMMK] CSSPC] 

CCOMMM] CSPC] CCOMMG] 

1802  GOTO3000 

1850  PRINT" C13CRSRD]" 

1900  PRINTTRB<22>  "CCOMMK] CSSPC ] 

CSHIFTH] CSPC] CSHI FTL] 

2000  PRINTTABC22)  " CCOMMK] CSPC] 

C  COMML ] C  9COMMU ] C  COMMK ] 

2100  PRINTTABÍ22)  " CCOMMK] CSPC] 

C COMML ]C9SPC] CCOMMK] 

2102  GOTO3000 

2150  PR I  NT " C 1 6CRSRD ] " 

2200  PRINTTABC22)  " CCOMMK] CSPC] 

C COMML ]C9SPC] CCOMMK] 

2300  PRINTTRBC22)  "C 17C0MMV] 

2400  PRINTTRBC20)  "ACSPC]LRCSPC]PR 
QXIMA. . .ZASI" 

2401  FORX" 1 TO 1 1  i GOSUB 1 5300 : NEXT 

2402  GOTO3000 

3000  PR I NT " C  HOM ] " : GOTO 1 70 
4300  PRINT ¡ PRINT 

5000  FORH-1TO1000 : NEXT : PRINT" CCLR] " : 

PRINT" C8CRSRII]"  :  RETURN 
7490  FORP=>  1 TO300 : NEXT : POKE53280 , 4 
7500  PRINT" CCLR] " ¡ P0KE53281 , 14 
8000  PRINTTABC21)  "C7SPC]. 

8100  PRINTTAB<21 )  " C7SPC] . 

8200  PRINTTAB<21 )  " C7SPC] . 

8300  PRINTTAB<21>  "C2SPC]CSHIFTM]C3SPC] 

CSHIFTN]. 

8400  PRINTTRB<21 )  " C3SPC] CSHIFTM] CSPC] 

C  SH IFTN ] C  SPC ] . C  SPC ] C  4SPC ] 

8500  PRINTTRBÍ21)  "C3SPC]CSHIFTJ]CSHIFTQ] 
C2SPC] . C5SHIFTN] 

8600  PRINTTRBÍ21)  "C3SPC]CSHIFTW]CSPC] 

CSHIFTW] CSPC] . CSHIFTW] CSHIFTB ] CSHIFTW] 


C SPC ] C COMMH ] CSHIFTI] 

8700  PRINTTRBÍ21 )  " C3SPC] C3SHIFTJ] 

CSPC]. CCOMMH] CSHIFTJ] CSHIFTU] CSHIFTK] 
CCOMMH] CSHIFTK] CSPC] 

8800  PRINTTRBC21 ')  "C4SPC]C2C0MMH]CSPC] 
. C  COMMH ] C  SH I FTC ] C  SH I FTK ] C  SPC ] C  COMMH ] 


9000  PRINTTABC21 ) 

. C3SPC]. 

9100  PRINTTRB(21 ) 
CSPCK2SPC]. . . CSPC] 
9200  PRINTTAB<21 ) 
CSHIFTM] 

9300  PRINTTRBÍ21 > 
CSHIFTM] 

9400  PRINTTHBC21 ) 


1 C4SPC] C2C0MMH] C2SPC] 

'  C4SPC] CCOMMH] CSHIFTM] 


'  C  4SPC ]CSHIFTM]CSPC] 
'  CSSPC] CSHIFTM] CSPC] 


1 C  6SPC  ] C  SH I FTM ] C  9SPC ] 


9500  PRINTTRBC21)  "C7SPC1CSHIFTM] C9SPC] 

1 0000  P0KE5328 1 , 6  ••  FOR  J»  1 TO300 :  NEXT  ¡  P 
0KE53281 . 14 : PRINT" CCLR] " 

11000  PRINTTRBÍ22)  "C6SPC]. 

11100  PRINTTRB(22)  " 

11200  PRINTTRBC22)  "C6SPC]CSHIFTN] 


11400  PRINTTRB<22>  " C4SPC] CSHIFTN] 

CSPC]. CSPC] C5SHIFTN] 

11500  PRINTTRB<22)  " C2SPC] CSHIFTJ] 

CSHIFTQ] C2SPC] . C5SHIFTN] 

11600  PRINTTRB(22)  "C2SPC]C2SHIFTW] 

C2SPC]. CSHIFTQ] CSHIFTB] CSHIFTQ] CSPC] 

CCOMMH] CSHIFTI] 

11700  PRINTTflB<22>  " C2SPC] C3SHIFTJ] 

CSPC]. CCOMMH] CSHIFTJ] C2SPC] CCOMMH] CSHIFTK] 
CSPC] 

11800  PRINTTRB<22)  " CSSPC] C2C0MMH] 

CSPC]. CCOMMH] CSHIFTC] CSHIFTK] CSPC] CCOMMH] 

11900  PRINTTRBÍ22)  " C3SPC] C2C0MMH] 

CSPC]. CSHIFTM] C2SPC] CSHIFTN]. 

12000  PRINTTRBC22)  " CSSPC] C2C0MMH] 

C2SPC] . C3SPC] . 

12100  PRINTTRBC22)  " C3SPC] CCOMMH] 

C  SH I FTM ] C  SPC ] C  2SPC ] . . . CSPC] 

12200  PRINTTRB<22)  " CSSPC ] CSHIFTM] 

CSPCICSHIFTM] 

12300  PRINTTRBC22)  "C4SPC] CSHIFTM] 

CSPC] CSHIFTM] 

12400  PRINTTRBC22)  "C5SPC] CSHIFTM] 

C9SPC] 

12500  PRINTTRB<22)  "C7SPCIC9SPC] 

12525  P0KE53281 >  6 

12550  IFRR-2THEN00T0 12700 

1 2600  FOR Ja  1 TO300 ¡ NEXT : PRINT" CCLR] " • 

RR*Rfi+l : GOTO7500 

12700  PRINT" CWHT]" ¡ IFZ-0OOTO 14000 

12800  IFZ-5G0T0 15000 

12900  PRINT" CHOM] " i " C7CRSRD] C3CRSRR] 

I BRR VO CSPC] COLEGA  I 

13000  PR I NTSPCÍ 1 7 > " C 1 1 CRSRD ] I  SOLO  C  SPC ] 

"i  1  PRINTZJ  '•  PRINT" CSPC]FRLLOS I  " 

13100  END 

1 4000  PR I NT " C  HOM ] " ; " C 7CRSRD ] C  3CRSRR ] 

! ESTUPENDO  CSPC] ARTISTA  I 

14100  PR I NTSPC (17)"C11 CRSRD ] I N I C SPC ] 

UN  C  SPC ] SOLO  C  SPC ] FALLO  I " 

14200  END 

15000  PR I NT  »  C  HOM ] "1 " C 7CRSRD ] C  3CRSRR ] 

UFCSPC] I !..." 

15100  PRINTSPCOO" C11CRSRD]  ITECSPC] 
SALVASTE  C  SPC  ]  POR  C  SPC  ]  LOS  C  SPC  ]  PELOS  I  " 

15200  END 

15300  W=54272 ¡ P-l : WF-W+4 : V-W+24 ¡ AT-W 
+5 : SE-W+6 : HF-W+1 : LF»W : POKEV. 15 


Este  juego,  al  igual  que  el  publicado  en  el  ne  4  correspondiente 
al  mes  de  mayo  “Aventuras  en  el  desierto”,  tiene  que  salvarse 
en  cinta,  en  dos  partes  por  separado. 

La  primera  parte  del  juego  crea  los  caracteres  y  mientras 
muestra  las  instrucciones  se  encarga  de  buscar  la  segunda  parte 
del  juego. 

EL  JUEGO 

Tú  conduces  un  ratón,  y  tienes  que  comerte  todos  los  puntos 
del  laberinto,  evitando  chocar  con  el  gato  que  te  persigue,  si  te 
ves  acorralado  pulsas  la  letra  “G”  y  te  convertirás  en  un  feroz 
perro.  Una  vez  te  hayas  comido  todos  los  puntos  debes 
comerte  “£”,  ¡pero  no  antes! 

En  la  parte  superior  de  la  pantalla  te  indica  los  ratones  y  los 
efectos  para  convertirte  en  perro  que  te  quedan.  Estos  últimos 
los  conseguirás  comiendo  asteriscos. 

Cada  tres  pantallas  te  dará  un  ratón  (suponiendo  que  llegues, 
claro). 

SU  DISTRIBUCION 

En  este  juego  he  omitido  las  sentencias  REM  por  falta  de 
memoria,  pero  seguidamente  detallaré  un  poco  la  distribución 
del  juego  y  sus  principales  variables: 

10-86  Dibujan  el  laberinto  en  pantalla. 

90-210  Movimiento  del  ratón. 

215-300  Movimiento  del  gato. 

1000-1020  El  gato  te  ha  cogido  y  un  ratón  menos. 

2000-2070  Comprueba  que  hayas  comido  todos  los  puntos. 
3000  Fin  del  programa  y  auto  run. 

4900-5200  Mueven  el  perro,  en  caso  de  haber  pulsado  “G”. 
6000-6075  Datas  musicales. 

8000-8030  Cada  tres  pantallas  te  obsequia  un  ratón. 

Principales  variables: 

Z=Ratones  que  te  quedan. 


Y=Efectos  para  convertirte  en  perro  que  te  quedan. 
D=Número  de  pantallas. 

G=Posición  del  gato. 

Q=Posición  del  ratón. 


1 0  PÜKE36879 .  77  :  PRINT" [CLR] [CRSRD] [YEL] 

[  RVSON  ]  C  3CRSRR  ]  ***CAZA  [  SPC  ]  ORTOS***  L  3CRSRR  ] 
[RVS0FF3" 

30  PR I  NT " C  CRSRD ] DEBES  í SPC ] COMERTE l SPC  3 
LOS [ SPC 3PUN-T0S C SPC ] Y C SPC 3 COMO [ SPC 3U 
LTIM0CSPC3 '£/  " 

40  PRINT" [ CRSRD ] EV I TR C SPC ]RC SPCD LOS CSPC] 
ORTOS  C  SPC ] ME- C  CRSRR ] NOS  í SPC ] CUANDO [  SPC ] 

SEAS ESPC] PERRO. 

60  PRINTSPCC6) " [2CRSRD3DERECHAÍSPC3 ' 

H' " : PRINTSPC<5> " [CRSRD] IZQUIERDA [SPC] 

'F' " ■ PRINTSPC<6> " [CRSRD3ARRIBATÍSPC3 
'T'" 

70  PRINTSPCC7) " [CRSRD] ABAJÜÍSPC] [RVS0N] 
SPCCRVSOFF] " : PRINTSPCC7) " [CRSRD3PERR 
0[SPC]'G'" 

100  P0KE52. 28 : P0KE56. 28 : CLR 

1 10  F0RX=5632TG7679 : PÜKEX. PEEKCX+256 

00)  MIEXTX 

120  PGKE36869. 255 

1 30  F0RL»7 1 68T07 1 75 : RERDD ¡ P0KEL . D : NE 
XTL 

1 35  FORL-7360TÜ7383 : RERDD : P0KEL . D : NE 
XTL 

140  DATA34. 1 19. 127. 107.62. 127. 54.28 
150  DRTR255. 255. 255. 255.255.255.255. 

255 

160  DRTR102. 231. 231. 126.90. 126. 102.2 
4 

1 70  DATA  1 02 . 255 . 255 . 90 , 1 26 . 60 . 255 . 24 

382  PR I NT " [ CLR ] [ CRSRD ] [ CRSRR ] TU [ SPC ] 

LLEVAS [ SPC ] EL [SPC] RATON [SPC ]Z" 

384  PR I  NT " [ CRSRD ] TE [ SPC ] S I GUEN  C  SPC ] L 
OS  [  SPC  ]  GATOS  [  SPC  ]  iS " :  PR  I  NT "  [  CRSRD  ]  [  SPC  ] 

CON [SPC] 'Ü' [SPC] ERES [SPC] PERRO [SPC] Y 

386  PR I  NT " [ CRSRR ] PERO [ SPC ] SOLO [ SPC ] U 
NÍSPCIRATIT0. [CRSRD] [CRSRR] CUANDO [SPC] 
COMES [ SPC ] ' # ' [ SPC ] T I E- [ CRSRR ] NES [ SPC ] 

UN [ SPC ] EFECTO [ SPC ] DE [ SPC ] MAS . " 

390  PR I NT " [ CRSRD  3  CADA [ SPC ] TRES [ SPC ] P 
ANTALLAS [ SPC ] TEDARA [ SPC ] UN [ SPC ] RATON 
.  "  :  CLR 

400  P0KE 1 98 . 7 : P0KE63 1 . 76 ¡ P0KE632 . 207 

: P0KE633. 159 : P0KE634.  13 

500  PGKE635. 82 ¡ P0KE636. 213 : P0KE637. 1 


Segunda  Parte 


1  U*1 : Za3 ; D=1 : P0KE36878. 15 

2  P0KE36879, 221 :FÜRT»1TÜ5:PRINT"[ BLU 3 
[ CLR ] [ 1 1 CRSRD ] [ 6SPC ] PANTALLA " D : F0R0- 
1TO300 : NEXTO 

3  PRINT" [CLR] " : FORJ“1TO300 ■ NEXTJ : NEX 
TT • P0KE36869 . 255 

1 0  PÜKE36879 . 28 : PR I NT " [ CLR  3 [ BLK ] [ SPC ] 
Y® [ 3SPC ] Z» [ SPC ] " : P0KE7688. 48+Z : PRINT 
" [ RED ] XXXXXXXXXXXXXXXXXXXXXX " 

20  PRINT" [CRSRU3X# . 

. X” : PRINT" C CRSRU  3  X . XXX . XXXXXXXXXX . XX 


Commodore  World 


ESPECIAL  PROGRAMAS 


40  PRIHT" [CRSRU 3 X . 

. X" : PRINT" [ CRSRU 3 X. XXX. X. XXXXXX. X. XX 

50  PR I NT " C  CRSRü ] X . 

. X" : PR I NT " [ CRSRU 3 X . XXXXXXXXXXXXXXXXX 

60  PRINT" [CRSRU3X . 

. X" ■ PRINT" [ CRSRU ] X . XXXXXXX . XX . XXXXXX 

70  PRINT" [CRSRU 3 X . 

. X " • PR I NT " [ CRSRU  3 X . XXX . XXXXXXXXXX . XX 

80  PRINT" [CRSRU3X* . . . 

#X" : PRINT" [CRSRU 3 XXXXXXXXXXXXXXXXXXX 
XXX [CRSRD 3 " : P0KE7683, 48+ V 

84  IFD>3THENPOKE8033. 46 

85  IFD>6THENPOKE8052, 46 

86  IFD>9THENP0KE7725,46 
90  G-7735 •  P-46 

100  P0KE198, 0 :  M-0  :  Ü-8042 :  PÜKEQ ,  26  :  PO 
KEG.0 

110  GETA#: IFfl*-"T"THENM-l 
120  IFRÍ-"[SPC3"THENM-2 
130  IFR*-"F"THENM-3 
140  I F AS = " H " THENM-4 
145  I FRí = " O " THEN4900 
150  P0KE7734, 28 : PGKEQ, 32 
160  IFM-1 THENQ-Q-V 
170  IFM-2THENÜ-Q+V 
180  IFM-3THENG-Q-H 
190  IFM-4THENQ-Q+H 

200  I FPEEK  <  Q ) -24THENV-- V : H— H : Q0T016 
0 

202  I FPEEK  <  Q  ) -46THENP0KE36877 , 185 :S- 
S+l 

205  IFQ-GTHEN1000 

206  IFÜ-7734THEN2000 

207  IFPEEK<Q)-42THENV-Y+1 : PÜKE7683, 4 
8+Y 

2 1 0  V-22 : H= 1 ! PÜKEQ , 26 : POKEQ+30720 ,  0 : 
POKE3687 7, 0 : PRI NT " [ CRSRU  3 PUNTOS : " S 
215  FORT- 1 TOU :  PÜKEQ .  P  :  POKEQ+30720 , 2  ¡ 
P-46 

220  IFG>QTHENN-INT<RND<1)#2>+1 
230  IFG<QTHENN»INT<RND<l>*2+3) 

240  IFN-1THENG-G-H 
250  I FN*2THENG*G- V 
260  IFN-3THENG-G+H 
270  IFN»4THENG«G+V 

280  I FPEEK  <  G ) "24THENH— H ¡ V»-V : G0T024 
0 

285  I FPEEK  <  G ) *32THENP*32 

290  PÜKEG . 0 : PÜKEG+30720 . 6 : H» 1 : V-22 ¡ F 

OR J- 1 Tü 1 0 ; NEXTJ : I FG-QTHEN 1 000 

300  NEXTT 

500  GOTO110 

1000  PÜKE36877. 0 • FORT-15TO0STEP-0. 1 : 
P0KE36878. T : P0KE36876. 200+T : NEXTT ¡ PO 
KE36878. 10 

1010  P0KE36876. 0 : Z-Z-l ¡ IFZ-0THEN3000 
1020  G0T02 

2000  P0KE36877. 0 : FORT-7725TÜ8052 : IFP 
EEK  <  T) -46THEN2050 

2001  NEXTT 

2003  P0KE36878. 15 

2004  RESTORE 

2005  REREN: IFW— 1THEN2040 

2010  RERDF ■ P0KE36876 , N ■ FORT- 1 TOF ¡ NEX 

TT : GOTO2005 

2040  I FU=3THEN8000 

2049  U-U+ 1  •'  D-D+ 1  :  PÜKE36876 , 0 :  G0T02 

2050  PR I NT " [ CRSRD  3  QUE [ SPC  3  TE [ SPC  3  T I E 
NES [ SPC  3  QUE [ SPC  3  CO- [ SPC  3 MER [ SPC  3  TODO 
S [ SPC 3 LOS [ SPC 3 PUNTOS ! " : FORT- 1 TO5000 : 
NEXTT 

2060  Z-Z-l : IFZ-0THEN3000 
2070  GQT02 

3000  PR I  NT " [ CRSRD  3 [ 6SPC 3 [ BLU  3  GRME [ SPC  3 
OVER . " : FORT- 1 TO5000 : NEXTT : RUN 


4900  IFV-0THENGOTO110 

5000  Y-V-l : P0KE7683. 48+V ¡ FORT-1TO10 ¡ 

GETBf : IFB$-"T"THENM-1 

5010  I FBí- " [ SPC  3 " THENM-2 

5020  I FBí = " F " THENM-3 

5030  I FBí - " H " THENM-4 

5040  POKEQ. 32 : P0KE36877. 150+<T*9) 

5050  I FM- 1 THENQ-Q-V 

5060  I FM-2THENQ-Q+V 

5070  IFM-3THENQ-Q-H 

5080  IFM-4THENQ-Q+H 

5090  I  FPEEK  <  Q  >  -24THENV— V :  H— H  ¡  G0T05 

050 

5100  V-22 : H-l : I FQ-GTHENG-7735 : S-S+50 

51051 FPEEK  <  Q  > -46THENS-S+ 1 : PR I NT " [ CRSRU  3 
PUNTOS: "S 

5107  IFPEEK<Q)-42THENV-V+1  '•  P0KE7683. 

48+V 

5110  I FQ-7734GOTO2000 

5120  POKEQ. 25: POKEQ+30720. 0 

5 1 30  FORJ- 1 TO200 : NEXTJ 

5200  NEXTT  :  M-0 :  F'OKE  1 98 , 0  ¡  GOTO  1 1 0  :  POK 

E36877.0 

6000  DRTR195. 125.207.250.0.5 

6005  DRTR207 . 1 25 . 0 . 5 . 207 . 1 25 

6010  DRTR201. 125.207. 125.209.450 

6015  DRTR207. 250. 0.5.207. 125 

6020  DRTR201 . 250. 0. 5.201 . 125 

6025  DRTR0.5.201. 125. 195. 125 

6030  DRTR201. 125.207.500. 195.250 

6035  DRTR0. 5. 195. 125.207.250 

6040  DRTR0. 5. 207. 125.0.5 

6045  DRTR207. 125.201, 125.207. 125 

6050  DRTR209 ,500.219.750.0,5 

6055  DflTR219, 125,215.250,207, 125 

6060  DRTR209. 250. 201, 125, 195,750 

6065  DRTR215, 125,0,5,215,250 

6070  DflTfiG, 5, 215, 125,219,250 

6075  DRTR0, 5, 219, 125,215,750,-1 

8000  D-D+ 1 : U- 1 : PQKE36876 , 0 ■ P0KE36879 

,  77 : PR I NT " [ CLR  3 [ 4CRSRD 3 [ VEL  3  #*****RE 

COMPENSA*#*##*" 

8010  PR I NT " [ 2CRSRD  3  L SPC  3  TE [ SPC  3  OBSEQ 
UIO[SPC3UN[SPC3RRTON" : F0RJ-1T04 : H-R+ 

1 : F0RT-128T0255 : P0KE36873+R, T : NEXTT 
8020  P0KE36873+R,  0  •'  NEXTJ  :  R-R+ 1 :  FORJ- 
1T04 ; fl-fl-1 

8030  F0RT-255T0128STEP-1 ¡ P0KE36873+R 
, T : NEXTT : P0KE36873+R, 0 : NEXTJ : fi-0 : GOT 
02 


Magia 

Tedas  de  fundón 

Para  usar  las  teclas  de  función  en  un  programa: 

10  f  1  $=chr$(  133):  Í2$=chr$(  137) 

20  D$=chr$(  1 34):f4$=chr$(  138) 
etcétera. 

Después  puedes  usar  una  rutina  como... 

100  geta$:ifa$=“”thenlOO 
110  ifa$=fl$then  xxxx 
120  ifa$=f2$then  yyyy 
130  ifa$=D$then  zzzz 

Este  sistema  reduce  los  errores  que  cometemos  a  la  hora 
de  depurar  programas. 


N.S.S.  RUN  EE.UU. 


SIMON  64,  es  un  reto  a  nuestra  memoria;  se  trata  de  recordar 
una  secuencia  de  números,  sonidos  y  color,  que  el  ordenador 
irá  presentando  progresivamente,  secuencia  de  mayor  longitud 
según  el  nivel  de  dificultad  elegido.  Asimismo  no  esperará  más 
de  treinta  segundos  su  jugada;  si  esto  sucede  o  se  equivoca, 
tendrá  opción  a  continuar  con  la  misma  secuencia  o  a 
comenzar  desde  el  principio. 

Explicación  del  programa: 


20  a  40  .  Subrutina  de  sonido. 

230  a  270  .  Secuencia  musical  del  ordenador. 

370  a  400  .  Toca  el  ordenador. 

410  a  465  . Tú  tocas. 

1600  a  1700  .  Pinta  pantalla. 

1700  a  2030  . Toca  las  notas. 

5000  a  6000  .  Explicación. 

6000  a  7000  .  Se  ríe  de  tí. 

7000  a  8000  .  Magnífica  presentación. 

8000  a  9000  .  Michael  Row  the  boat  ashure-1  Measure. 


Sacada  del  “maravilloso”  y  “único”  manual  del  usuario. 
Además  el  programa  tiene  una  sorpresita  (bastante  gansa  por 
cierto)  dedicada  a  los  curiosones. 

NOTA:  7005  POKE  774,0;  si  se  cambia  por  un  REM,  el 
programa  se  podrá  listar  perfectamente,  de  lo  contrario  no. 


9  REM  *************************1***** 

*« 

10  GOSUB7000: GOTO 100 

20  F0RN=54272T054295 : POKEN/ 0 : NEXT 
25  V=54296:P0KEVM5 
30  P0KE54278 j  240 : REM  SOS/ESCAPE 
35  P0KE54276/ 17 : REM  ONDA 
40  PÜKE54277  >  0 :  REM  ATA/CAIBA 
45  RETURN 

100  PR I NT " [ CLR 3 " : PÜKE53230 / 0 : P0KE532 
81/11: ESí=" IHGM3 C 19CRSRB] " 

170  PR I NT " C CLR ] C 8CRSRD 1 í 4SPC 1  DESEA  C  SPC 1 
EXPL I  CAC  I ÜN  [ SPC  3  DEL  I  SPC  3  JUEGO  <  S/N  >  7  " 

1 80  GETAí : I FAí= " " THEN 1 80 
200  I  Ffií=  "S"  THENGOSIJB5000 
210  PRINT" CCLRK 8CRSRD 1 C 1 2 SPC 3 N I VEL < 
1/2/33?" : 2=54272 

220  GETAí  :  A=VAL(A$>  :  I  FA<  1 0RA>3THEN22 
0 

230  fil»a+fi>#5:S«0 

240  DI  MAC  Al  :>  :  REM  MATRIZ  SECUENCIA  ÜR 
D. 

250  F0RI=1T0A1 

260  A<D*INT<4*RND<0)+1) 

270  NEXT 

300  REM  COLORES  PRINCIPIO  JUEGO 
310  PR I NT " t  CLR  3  C 1 1 CRSRD 3 1 9CRSRR 3  ATEN 
CION ! C SPC 3 COMENZAMOS" 

320  F0RT=3T06 : F0RG=5T01 1STEP2 

330  POKE53280  /  G  •'  P0KE5328 1  /  T 

340  FQRK* 1 TO 1 00 : NEXT 

350  POKE53280 / T : P0KE5328 1 / G : NEXT : NEX 

T 

360  PRINT"  CCLR3  "  :  GOSUB1600  •'  REM  4  CIJA 
DRITOS 

370  REM  SECUENCIA  ORD.  NOTA  A  NOTA 
375  S=S+1 

377  FORT=1TO500 ¡ NEXT 
380  F0RI=1T0S 

385  I F I >A 1 THENGOTO8000 : REMGANAS 
390  0NA< I 3GOSUE1700/ 1800/ 1900/2000 
400  NEXT 

410  Jal: REM  NOTAS  DEL  JUGADOR 
420  FÜRL=1T0I-1 
425  TIÍ="000000" 

430  GETB* 

432  I FT I $>= " 000030 " THENPR I NTESí / "C17SPC3 
LENTO ! " : GOSUB6000 : GOTO500 

433  I FEf* " " THEN430 

435  B=VAL<B*> : IFBC1ORB>4THEN430 
440  IFA(L)OBTHEN430 
450  ONA í  L  >  GOSUB 1 700 / 1 800 / 1 900 / 2000 
460  NEXT: REM  FIN  BUCLE  JUEGO 
465  G0T0375 

480  PRI NTESí/ " C 17SPC3FALLO I " 

490  GOSUB6000 : REM  MUSICA  FALLO 
500  FORT=1TO 150: NEXT 
510  PRINT" [ CRSRU 3 [ 1 0SPC 3 DESEA C SPC 3 CO 
NTINUAR(SXN) " 

520  GETA1 : IFAÍ=" "THEN520 
530  I FA$= "S " THEN560 
540  I FAíO " S " ANDAÍO" N "THEN520 
550  PRINT" CCLR3 " :END 

560  PR I NT " I CLR  3  C  3CRSRD 3  C  3SPC 3  PULSE  C  SPC  3 

LO I SPC  3  QUE [ SPC  3  DESEE " : PR I  NT 

570  PRI NT " C 3CRSRD 3  C 3SPC 3 1 . 1 SPC 3 SEGU I 

R  C  SPC  3  CON  C  SPC  3  LA  C  SPC  3  SECUENC I A  C  SPC  3  F 

ALLABH" 

580  PRINT" C3CRSRD3 C3SPC32. C SPC 3 OTRO t SPC 3 
NIVEL" 

590  GETCí  :  CaVAL  <  Cí  >  :  IFCÍ -  "  "  THEN590 
600  I FC= 1 THENS=S- 1 : GOTO360 
610  I FC=2THENCLR : G0T02 1 0 
620  GOTO590 

1600  REM  ****M***LaS  4  CUADRITOS*** 
******** 

1610  PRINT" CCLR3 " :F0RT=1 TOS : PRINT :NE 
XT 
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ESPECIAL  PROGRAMAS 


1 620  PR  I  NT  "  [  7SPC  3  [  RVSON  3  [  RED  3  [  1 1  SPC  3 
[ RVSOFF ] C  4SPC 3  í RVSON 3  C  WHT  3 [ 1 0SPC 3  í RVSÜFF  3 
ÍCOMM73" 

1630  PR I NT " C 7SPC 3 [RVSON 3  C RED 3 [ 1 1 SPC 3 
[RVSOFF  3  [  4SPC  3  [  RVSON  3  CWHT3  C 1 0SF'C  3  C  RVSOFF  3 
CCOMM73" 

1 640  PR I NT " C  7SPC  3  C  R VSON  3  C  RED  3 [ 1 1 SPC  3 
[ RVSOFF  3 [ 4SPC 3  C  RVSON  3  C  WHT  3  C 1 0SPC 3 [ RVSOFF  3 
[CQMM73 " 

1 650  PR I NT " [ 7SPC 3 C RVSON 3 C RED 3 [ 7SPC 3 [RVSON 3 
[ VEL  3 1 [ RED  3 [ 3SPC 3  C  RVSOFF  3 [ 4SPC 3 [ RVSON  3 
[ WHT  3 [ 6SPC  32 [ 3SPC  3 [ RVSOFF  3 [ CQMM7 3 " 

1660  PRINT : PRINT : PRINT 
1670  PR I NT " [ 7SPC 3  C  RVSON 3 [ CRN  3 [ 11 SPC  3 
[ RVSOFF  3 [4SPC3 [ RVSON  3 [ VEL  3 [ 1 0SPC 3 [ RVSOFF  3 
[ C0MM7 3 " 

1 680  PR I NT " [ 7SPC 3 [ RVSON  3 [ GRN 3 [ 1 1 SPC  3 
[ RVSOFF  3 [ 4SPC 3 [ RVSON  3 [ VEL  3 [ 1 0SPC 3 [ RVSOFF  3 
[COMM73" 

1685  PRINT" [7SPC 3 [RVSON 3 [GRN 3 [ 1 1 SPC 3 
[  RVSOFF  3  [  4SPC  3  [  RVSON  3  [  VEL  3  [  1 0SPC  3  [  RVSOFF  3 
[ CGMM7 3 " 

1690  PR I NT " [ 7SPC  3 [ RVSON  3 [ GRN  3 [ 7SPC 3  3 
[ 3SPC 3 [ RVSOFF  3 [ 4SPC  3 [ RVSON  3 [ VEL  3 [ 6SPC 3 
4 [ 3SPC 3 [ RVSOFF 3 [ C0MM7 3 " 

1695  RETURN 

1697  REM  ****  LRS  CUATRO  NOTAS  ***** 
******** 

1699  REM  NOTA  1 

1 700  GOSUB20 : P0KE54273, 6 : PQKE54272 , 2 
06 

1705  POKE  1316,81  ■'  PGKE1316+Z, 0 

1710  FORH«1TO250:NEXT 

1720  P0KE54276, 16 

1725  POKE 131 6, 160 : P0KE1316+Z, 2 

1730  RETURN 

1790  REM  NOTA  2 

1 800  GOSUB20 : P0KE54273 , 20 : P0KE54272  , 

100 

1805  POKE 1330,81 ; POKE 1 330+2  , 0 

1810  FORH=  1 TO250  ■'  NEXt 

1820  PGKE54276, 16 

1 825  POKE 1 330 , 160 : POKE 1 330+2 < 1 

1830  RETURN 

1890  REM  NOTA  3 

1900  GOSUB20 ¡ PGKE54273, 81 : P0KE54272, 

161 

1905  POKE 1596,81 : POKE 1 596+Z  ,  1 

1910  FORH-1TO250:NEXT 

1920  P0KE54276, 16 

1 925  POKE 1 596 , 1 60 : POKE 1 596+Z , 5 

1930  RETURN 

1990  REM  NOTA  4 

2000  GOSUB20 ! P0KE54273 , 230  =  P0KE54272 
,  176 

2005  POKE1610,81  :F'OKE1610+Z,  1 

2010  FORH* 1 TO250 : NEXT 

2020  P0KE54276,16 

2025  POKE 1610, 160 : POKE1610+Z,  7 

2030  RETURN 

5000  REM  EXPLICACION 

5010  PR I NT " [ CLR  3 " : PR I NTCHRí  <1 4 ) ■ POKE 

646,  1 

5020  PR I N TT AB (1 3  V [ CRSRD  3 [ RVSON  3 [ SPC  3 
[SHIFTS3 [SHIFTI 3 [SHIFTM3 [SHIFT03 [SHIFTN3 
[SPC364ISPC3 " : PRINT : PRINT 
5030  PRINT" [3SPC3[SHIFTE3L[SPC3 [SHIFTS3 
[SHIFTI 3 [SHIFTM3 [SHIFT03 [SHIFTN3ISPC3 
64 [ SPC  3  ES [ SPC  3  UN [ SPC  3  JUEGO [ SPC 3  DE [ SPC  3 
MEMORIA. " 

5040  PR I NT " [ 3SPC 3 [ 2CRSRD 3 [ SH I FTT  3  RAT 
E [ SPC  3  DE [ SPC  3  RECORDAR [ SPC  3  LA [ SPC  3  SEC 
UENCIfi" 

5050  PR I NT " [ 3SPC 3 DE [ SPC 3 NUMEROS , [SPC 3 
COLORES [ SPC  3  V [ SPC  3  SON I DOS  » 

5060  PR  I  NT  "  [  3SPC  3  QUE  [  SPC  3  EL  [  SPC  3  ORDE 
NADOR [ SPC  3  LE [ SPC  3 1 RA [ SPC  3 OFREC I  ENDO , 

5070  PR I NT "[3SPC 3 SUCESIVAMENTE /  [SPC 3 
EN [ SPC  3  ORDEN [ SPC  3CREC I ENTE " 


5075  PRINT" [3SPC3 SEGUN [ SPC 3 EL [ SPC 3 GR 
ADO [ SPC  3  DE [ SPC  3  D I F I OJLTRD " 

5077  PR I NT " [ 3SPC 3 QUE [ SPC 3 USTED C  SPC 3 P 
REVI AMENTE [SPC 3 ELEGIRA. " 

5080  PR I NT " [ 3SPC 3 [ 2CRSRD 3 [ SH I FTA  3 DEM 
AS[SPC3NG[SPC30LVIDE[SPC3QUE[SPC3TIE 
NEÍSPC3UN" 

5090  PR I NT " [ 3SPC  3  T I EMPO [ SPC  3  MAX I MO [ SPC  3 
DE [ SPC  3  TRE I NTA [ SPC  3  SEGUNDOS " 

5100  PR I NT " [ 3SPC  3 PARA [ SPC  3  RESPONDER . 

5110  PR I NT " [ 3SPC 3 [ 2CRSRD 3 [ SH I FTP  3 ARA 
[  SPC  3  CONT I NUAR  [  SPC  3  PULSE  [  SPC  ]  UN  A  [  SPC  3 
TECLA. " 

5120  GETAÍ : IFAí=" "THEN5120 

5130  PRINT" [CLR3" : PRINTCHRí (1423 : POK 

E646,  14 

5140  RETURN 

6000  REM  MUSICA  FALLO 

6002  PR INT " [ HOM3 [ 2CRSRD3 " 

6005  FORJA=0TO30STEP4 

6007  PRINTTABÍ JA+4) "JA! " : PRINT" [2CRSRU3 

6010  F0RL=542?2T054295 : POKEL , 0 : NEXT 

6020  P0KE54296, 15  REM  VÜL 

6030  P0KE54278,  255 : REM  SXE 

6040  P0KE54276,  129  '■  REM  ONDA 

6050  P0KE5427?, 10 ■ REM  A/C 

6060  P0KE54273, 34 : P0KE54274, 75 

6065  P0KE54276 , 0 : FORT*0TO 1 0 : NEXT 

6070  NEXT 

6080  RETURN 

7000  REM  PRESENTACION 

7005  POKE?74,0 

70 10  PR I NT " [ CLR  3 " : POKE53280 , 6 : P0KE53 
281,6 

7020  Pí  »  "  [ COMMM 3 [ 28C0MMV 3 [ SH I FTM  3 [ SPC  3 
[ COMM- 3 [ SPC  3 [ COMMfi 3 [ 5SPC 3 " 

7030  Oí = " [ COMMM  3 [ SPC  3  COBANO [ SPC  3  & [ SPC  3 
LUNA [ 4SPC 3  PRESENTAN : [ SPC  3 [SH I FTV  3 [ 6C0MM+  3 
[ COMM£  3 [ SPC  3 " 

7040  I í = " [ COMMM  3 [ 28C0MMP 3 [ SH I FTN  3 [ 4SPC  3 
[COMM+3 [4SPC3 " 

7050  PRINT" [8CRSRB3 " 

7060  FORX-0TO40 
7070  PRINTRIGHTí  <.F'Í ,  X) 

7080  PRINTRIGHTí <Oí , X) 

7090  PRINTRIGHT$< Ií ,X) 

7100  PRINT" [4CRSRU3 " 

7105  FORT*0TO150 • NEXT 

7110  NEXT 

7120  PRINT" ICLR3" 

7130  FORP=0TO1@ 

7140  PR  I NTTAB  <  P*2  '>  "  [  RVSON  3  [  SPC  3  S I MON 
CSPC364CSPC3" : PRINT 
7150  FORT=0TO100: NEXT: NEXT 
7160  FORT=0TO1500 : NEXT : RETURN 
8000  REM  GANAS 

80 1 0  PR I NT ¡ PR I NTT AB < 1 4 ) " HAS [ SPC  3  G ANA 
DO" : PRINT 

8020  PRINTTAB<8> "RECORDASTE" ¡ Al  i "MOV 
IMIENTOS" 

8030  V=54296 ¡ W=54276 : A=54277 : HF=5427 
3 : LF=54272 : S=54278 : PH=54275 : PL=54274 

8040  POKEV ,15: POKEW ,65: POKEA ,190: rqk 

EPH, 15 : POKEPL, 15 

8050  READH 

8060  READL 

8070  READD 

8080  IFH=-1THEN  8500 
8090  POKEHF , H : POKELF , L 
8 1 00  FORX=D-50TOD-20 : POKES ,136: NEXT 
8110  FORT= 1 TOD : NEXT : POKEHF , 0 : POKELF , 

0: POKEW, 0 
8120  GOTO8040 

8500  PRINT"! HOM  3 [ 2CRSRD 3 [ 1 0SPC  3 DESEA 
[SPC 3 CONTINUAR [SPC 3 <SXN) " 

8510  GETA$: IFAí=" "THEN8510 
8520  IFAí="S"THENCLR : GOTQ210 
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3530  IFA$="N"THENPRINT"ECLR3" :END 
3540  GÜTO8510 

1 0000  DATA34 , 75 , 250  ,  43 , 52 , 250  ,  5 1  -  97 , 
375/ 43,52,  125, SI , 97. 250, 51 , 172, 250 

10001  DATA51 ,  97, 500, 0, 0, 125.43, 52,25 
0,51,97,250,5 7, 172,1000,51,97,500,-1 

10010  REM  ********* 

10020  REM  ********* 

10030  REM  ********* 


Simón 


Inmaculada  Marquea  Aramburo 

Mirasierra,  2-48  B 

Burgos 


VIC-20 


En  un  principio  se  pide  el  número  de  jugadores  que  van  a 
participar  que  puede  ser  desde  un  solo  jugador  hasta  10. 

Se  pedirá  el  nombre  de  cada  jugador  para  ser  llamados  por  su 
nombre  cuando  corresponda  su  turno. 

A  continuación  se  define  el  número  máximo  de  notas  (a  partir 
de  6  notas  la  cosa  empieza  a  resultar  bastante  difícil). 

El  programa  empieza  tocando  dos  notas  para  cada  jugador.  Al 
final  de  cada  ronda  se  visualizan  los  fallos  de  cada  uno.  En  la 
siguiente  ronda  se  añade  una  nota  más  para  cada  jugador,  y 
así  sucesivamente  hasta  llegar  al  límite  establecido,  momento 
en  el  que  se  volverá  a  empezar  con  dos  notas. 

Se  dispone  de  un  tiempo  determinado  para  pulsar  cada  nota, 
pasado  el  cual  se  contabilizará  un  fallo.  Cada  vez  que  se 
produce  un  fallo,  el  ordenador  nos  muestra  cómo  era  la 
secuencia  correcta  de  las  notas. 

Las  teclas  para  cada  nota  son  F,  H,  B  y  C  como  aparece  en  el 
dibujo  de  la  pantalla. 

Para  empezar  cada  jugador  su  turno  basta  con  pulsar  cualquier 
tecla. 

Este  es  un  buen  juego  para  ejercitar  la  memoria  y  los  reflejos. 


90  PRINT"CCLRK6SPC3St8PC3ICSPC3MCSPC3 

<  ¡  >  í‘  £  HOM  3  E  5CRSRD H 8CRSRR 3  I RVSON  3 

ESHIFT£3 [2SPC3  ECRSRD3  E4CRSRL3  ESHIFTE3 
E3SPC3 ECRSRD3  E5CRSRL3  ESHIFT£3  E4SPC3  ECRSRD3 

£  SCRSRL  3  E  SH I FT£  3  E  2SPC  3 " 


105  B*<1 )«" ERVSON3FE2SPC3 ECRSRD3 E6CRSRL3 
£  6SPC  3  E  CRSRD 3  C  6CRSRL 3  C  6SPC  3 " 

1 10  A$ ( 2  3  = " E HOM 3  E  5CRSRD  3  E  1 1CRSRR3 E RVSON 3 
E 23PC  3  E COMM* 3  C  CRSRD  3 E 3CRSRL 3  £  3SPC  3  E  C0MM* 3 
E  CRSRD  3  C  4CRSRL  3  C 4SPC  3  C COMM* 3  E CRSRD  3  C 5CRSRL 3 
[2SPC3" 

115  B$  <  2 ) * ” E RVSON 3  H  E 2SPC 3  C COMM* 3 [ CRSRD 3 
C  6CRSRL 3  £  6SPC 3  £  CRSRD  3  £  SCRSRL  3  £  6SPC  3 " 

120  A* < 3  3  * " £  HOM  3  £  1 1 CRSRD  3  £  1 1 CRSRR 3  £  RVSON 3 
£  6SPC  3  £  CRSRD  3  E  ÉCRSRL  3  £  6SPC  3  £  CRSRD  3  £ SCRSRL 3 
E2SPC3 " 

125  Bí<3>«" ERVSON3BE2SPC3 ERVS0FF3 ESHIFT£3 
£  RVSON  3  £  CRSRD  3  £  SCRSRL  3  £  4SPC  3  E  RVSOFF 3 
£  SH I FT£ 3  E RVSON  3  E  CRSRD  3  £  SCRSRL 3  E3SPC3 
E  RVSOFF  3  E  SH I FT£  3  £ RVSON 3  £  CRSRD  3  E4CRSRL3 
E  2SPC 3  E  RVSOFF  3  £  SH I FT£  3 " 

1 30  A*  <  4  >  ■ "  £  H0M3  £  1 1  CRSRD  3  £  5CRSRR  3  £  RVSON  3 

£  6SPC 3  £  CRSRD  3  £  SCRSRL  3  £  6SPC 3  £  CRSRD  3  £  SCRSRL  3 
£  RVSOFF  3  £  COMM*  3 "  + " £  R VSGN  3  £  2SPC  3 " 

131  B$(43=" ERVSON3CE2SPC3  ECRSRD3  E5CRSRL3 

£  RVSOFF  3  £  COMM*  3  £  RVSON  3  £  4SPC  3  E  CRSRD  3  E  4CRSRL 3 
£  RVSOFF  3  C  COMM* 3  £  RVSON  3  £  33PC 3  E  CRSRD  3  E  SCRSRL  3 
£  RVSOFF  3  £  COMM*  3  E  RVSON  3  E2SPC3 " 

132  fl<l)-225:BÍ2)-207:B<3>»215:B<4)a 
223 

133  H$="FHBC" 

140  Cí= " ERED  3  E VEL  3  £  BLU 3  £ GRN 3  £ BLK ] " ; B 
<1>»225:B<2)«231 :B<3>-235:B<4>«239 
1 45  I NPUT" £  2CRSRD  3  L I M I  TE  £  SPC  3  DE  £  SPC  3 
NOTAS" ;L 

150  1 NPUT " £  2CRSRD 3  NUMERO  £  SPC  3  DE  £  SPC  3 
JUGADORES" ¡  J : PRINT" ECLR3 " 

160  I F J> 1 0GR J< 1 THEN 1 50 

165  F0RR= 1 T0 J : PR I NT " NOMBRE  £  SPC  3  DEL  £  SPC  3 

JUGADOR "R 

170  INPUTNÍ <R> : NEXT ¡ T-2 ¡ P0KE36879, 23 
6 : PRINT" ECLR3 " 

190  F0RI*1T04 • PRINTMIDí <0$, I , 1 >AÍ( I ) 
B*<I):NEXT 

200  FOR I ■ 1 T0 J • PR I NT " £ HOM  3  £  BLK  3  JUEGA : 

£  SPC  3 " N*  <1 ) : PR I NT “ C HOM  3  £  CRSRD  3  ESCUCH 
A.  "  :G$="  "  :G1Í«="  " 

201  P0KE198, 0 : WAIT198, 1 
205  F0R2-1T0T 

210  H=INTCRND< 1 >*4)+l : G1$=G1$+RIGHTÍ 
<STR$<H) , 1 ) 

220  GOSUB900 : G*-G*+M I D*  C Hí , H,  1  >  :  NEXT 
Z 

230  FORR»0TO10 : GETINí : NEXT 

280  PR I  NT " £  BLK  3  E  HOM  3  E  CRSRD  3  £  7SPC 3  AHO 

RAESPC3TU" 

290  FORZ*1TOT:P»0 

300  GET I N$ : I F I N*= " " THENP*P+ 1 : I FPÍ500 
THEN300 

310  IFIN*OMID$<G*,Z,  DTHEN400 

320  H=VAL <  M I Dí  <  G 1 * , Z , 1 > ) : GOSUB900 : NE 

XTZ 

380  PRINT" EH0M3 E44SPC3 " 

385  NEXT I : PR I NT " E  CLR  3  £  BLK  3 JUGADOR " T A 
B<16) "FALLOS" 

387  F0RW-1T0J:PRINTNS<W)TAB<16)PÍW) ¡ 

NEXT :P0KE 198,0 

388  WAIT198, 1 : PRINT" ECLR3" 

390  T=T+1 ¡ IFT>LTHENT=2 
395  GOTO 190 

400  PR I NT" £  HOM  3  E44SPC 3 " : P0KE36874 ,  20 
0 : P0KE36875, 200 

410  PR I  NT " £ HOM  3  E  BLK  3  £  6SPC  3 I NCGRRECTO 
" :  FORR*0TO2500  =  NEXT  ■'  PR  I  NT  "  £  HOM  3  £  2 1  SPC  3 

420  P0KE36874 , 0 : PR I NT " E  HOM  3  £  CRSRD  3  £  BLK  3 

ESCUCHA"  •'  P0KE36875,  0 

430  F0RZ“1T0T : H«VALCMID$(G1Í, Z, 1 > ) 

440  GOSUB900 : NEXT: PCI >»P< I )+l :Q0T038 
5 

900  P0KE36878, 15 : PQKE36876, A<H> : POKE 
36875, B<H) ; PRINT" EBLK3 "AÍCH)BÍ<H) 

920  FORR=0TO450 : NEXT : P0KE36876 , 0 : POK 
E36875, 0 
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940  PRINTMIDÍÍCÍ ,  H,  1  )A$(H>B:KH) 
950  FÚRR=0TO10:NEXT:RETURN 


Estos  dos  programas  de  aplicación  están  dentro  del  campo  de 
la  Geometría:  clasificación  de  cónicas  y  clasificación  de 
cuádricas.  Ambos  programas,  de  estructura  gemela,  pueden 
librar  al  estudiante  de  laboriosos  cálculos  a  la  hora  de 
clasificar  ambos  tipos  de  curvas,  así  como  para  comprobar 
ejercicios  ya  hechos.  Estos  programas  están  concebidos  para, 
aún  a  riesgo  de  ocupar  un  mayor  espacio  de  memoria  con 
operaciones  de  cambio  de  variables,  el  listado  del  programa 
presente  las  variables  con  sus  nombres  clásicos. 

Los  programas,  después  de  una  estética  presentación,  nos 
pedirán  los  datos  sobre  la  ecuación  a  clasificar,  avisándonos  de 
la  entrada  de  datos  incorrectos  (como  puede  ser  una  igualdad 
1=0),  luego  nos  dirá  el  tipo  de  curva  a  la  que  corresponde  la 
ecuación,  junto  con  la  misma  reducida.  En  el  caso  de 
cuádricas,  nos  presentará  los  invariantes. 

La  estructura  de  ambos  programas  no  es  excesivamente 
complicada,  así  que  no  creemos  necesarias  más  explicaciones. 


19  REM  i i  a 

20  rem  eeiíieijeiíiüegaeijí&iiiiiQeijieetiiijiQijiQeij 
30  REM  §88688888088888888888888881211 
40  REM 

49  PR I NT " [ CLR  3 " : PR I NT " C  3CR3RD ] " 

50  PR I NT " C 5SPC ] **  C  3SPC  3 ** L 2SPC  3  *  [ 3SPC 3 
*  C  2SPC  ]  *  C  2SPC  3  **  C  3SPC  3  **  C  3SPC  3**  " 

51  PR I NT " [ 4SPC  3  * [  2SPC  3  * [ SPC  3  * [  2SPC  3  * 
[SPC3*[3SPC3*C2SPC3*[SPC3*C2SPC3*[SPC3 
*C2SPC]*C8PC3*C2SPC3¡*" 

52  PR  1  NT  "  [  4SF'C  3  *  [  4SPC  3  *  [ 2SPC 3  *  [ SPC ] * 

i*  C  2SPC  ]  *  [  2SPC  ]  *  C  SPC  ]  *  C  4SPC  ]  ¡*  [  2SPC  ]  *  C  SPC  ] 
*C3SPC3" 

53  PRINT"[4SPC3¡t¡[4SPC3*C2SPC3l*[SPC3* 
*C2SPC3*[2SPC3*CSPC3*[4SPC3*[2SPC3*[SPC3 
ÍC3SPC3" 

54  PRINT"[4SPC3*[4SPC3*[2SPC3*[SPC3* 
[SPC3*[SPC3*[2SPC3*CSPC3#[4SPC3*[2SPC3 
*CSPC3*C3SPC3" 

55  PR I NT " C 4SPC 3  * [ 4SPC  3  * [ 2SPC 3  * [ SPC  3  * 
CSPC]*CSPC3*C23PC3*[SPC]*C4SPC]*C2SPC3 
*[SPC3*C3SPC3" 

56  PRINT"C4SPC3*[4SPC3*[2SPC3*[SPC3* 
CSPC3#[SPC3*[2SPC3*[SPC3*[4SPC3#*iM¡[2SPC3 
**[SPcr 

5 7  PR  I  NT  "  [  4SPC  3  *  C  43PC  3  #  t 2SPC  3  #  [  SPC  ]  * 
[SPC3*CSPC3*[2SPC3¡*CSPC3*C4SPC3i*[2SPC3 
*C4SPC3*" 

53  PR  I  NT  "  [  4SPC 3  *  [  43PC  3  *  [  2SPC  3  *  [  SPC  3  * 

C  2SPC  ]  **  C  23PC  ]  *  C  SPC  ]  *  C  4SPC 1  *  C  2SPC  ]  #  C  4SPC  ] 
*" 

59  PR  I  NT  "  [  4SPC  ]  *  [  4SPC  3  * [ 2SPC  3  * [  SPC  ]  * 
[2SPC3**C2SPC3*CSPC3*[4SPC3*[2SPC3*C4SPC3 
*" 

60  PR I  NT  "  C 4SPC 3  * [ 4SPC  3  * [ 2SPC 3  *  C SPC 3 * 

C  3SPC  ]  *  [  2SPC  3  *  [  SPC  ]  *  [  4SPC  ]  *  [  2SPC  ]  *  [  4SPC  3 

61  PR I NT " [ 4SPC  3  * [  2SPC  3  * [ SPC 3  *  [  2SPC ] * 

C  SPC  3  *  [  3SPC  3  *  C  2SPC  3  *  C  SPC  3  #  C  2SPC  3  * [ SPC  3 
* C  2SPC  3  * C  SPC  3  * [  2SPC  3  * " 

62  PR I NT " t  5SPC 3  ** C 3SPC 3  ft* [ 2SPC 3  *  [ 3SPC 3 
* C 2SPC 3 * C 2SPC 3 ** C 2SPC 3 * C 2SPC 3 * [ 2SPC 3 
**CSPC3" 

63  PR I NT " C  4CRSRD  3  C 1 5CRSRR 3  C  RVSON 3  C  SPC  3 
@[ SPC 3 LUI SC SPC 3 LUNA [SPC 3 BARRI 0SC SPC 3 

64  FORT=0TO15 

65  POKE53280, T : FORT 1 =0TO500 : NEXT 

66  NEXT 

70  POKE53280,6 

100  PRINT" CCLR3 " :DIMA(3,3> 

102  PR INT " [ HOM  3 1 7CRSRD  3 " 

104  PRINTTABí 1 1 3 "C 1 1SPC32C7SPC32" 

105  PR I NTTAB ( 7 > " [ SPC 3 [ CÜMM8 3 [ 2SPC 3  +  [ C0MM8 3 
XCSPC3+CCOMM03VCSPC3+CCOMM03XCSPC3+CC0MM83 
X V+ [ CGMM8 3  V  C  SPC  3=0" 

110  01=1024+408 

120  FORI =0 1 TOO 1 +20STEP4 

130  P0KEI , 30 : PGKEI-4,  32 

140  INPUT" CCRSRD3 " ;  B( ( I-Ql )/4> 

150  NEXT 

160  fi(0,0)=B(0):R(0,l>=B(l)X2:A(0,2) 
=BÍ2V2:A(1,1)=B(3> :fi(l,2)=B(4>/2 

161  A(2,2)=B(5> 

170  I FB ( 0  >  «0ANDB ( 1 > =0 ANDB (  2  ) =0ANDB  <  3 

)  =0ANDB  <  4  >  «0RNDB  <  5  >  SS0THENGOTO1 050 

180  I FB (1 ) -0ANBB (  2) =0ANDB<3 > -0ANBB  ( 4 

) =0ANBB ( 5 ) «0THENGOTO 1 050 

200  REM  INVARIANTES 

205  HHÍ = " C  HOM  3  C  7CRSRD 3 [ 4CRSRR 3 " 

210  A00=A(1, 1>*R(2,2)-A(l,2>t2 
220  A11=AÍ0,0)*A(2,2)-A(0,2)12 
230  A22=A(0,0)*Aa,l  >-0(0,1)12 

240  fi=R(0,0>*Aa,l)*fl(2,2>+2*AÍ0, l>* 

A( 1 , 2)*A(0, 2) 

241  B=A(l,l)*A(0,2>t2+R(0,0>*A(l,2>t 
2+A(2,2)*A(0, 1>12:I€TA=A-B 
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300  REM  CLASIFICACION 
305  PRINT "CCLRI" 

310  I FA00=0THEN400 
320  IFDETAO0THEN350 

330  I FA00C0THENPR I NTHHí , " CRVSONI PARC SPC I 
DE  C  SPC ] RECTAS C SPC ] REALES  C SPC I SECANTE 
S"  : GOTO 1000 

340  PRINTHH*; " CRVSONI PARC SPC IDEE SPC] 
RECTAS  C  SPC 1 1 MAG I NAR I AS C SPC I SECANTES " 

: GOTO 1000 

350  I FA00C0THENPR I NTHHÍ ¡ "CRVSONIHIPE 

RBOLA" : GOTO 1000 

360  G5»A(D 1>+A<2,2> 

365  I FSGN <  DETA ) «SGN<  <25 ) THENPR I NTHHí ; 

" C  RVSÜN I EL  I PSE  C  SPC 1 1 MAG I NAR I A " : GOTO 1 
000 

370  PRINTHHÍ; " CRVSONI ELIPSE! SPC] REAL 
GOTO 1000 

400  I FDETAO0THENPR I NTHHÍ ;  "CRVSON3PA 
RAB'OLH"  :  GOTO500 

410  IFA11+A22=0THENPRINTHHÍJ "CRVSONI 
RECTAS!  SPC  I CO I NC I  DEN  TES  "  :  GOTO550 
420  IFA1 1+A22C0THENPRINTHHÍ ; "CRVSONI 
PAR  C  SPC I DE  C  SPC I RECTAS  C  SPC I REALES  C  SPC I 
PARALELAS" : GOTO550 
430  PRINTHH*; " CRVSONI PARC SPC IDE! SPC 3 
RECTAS  C  SPC 1 1 MAG I NAR I AS  C  SPC I PARALELAS 
" : GOTO550 

500  REM  ECUACION  REDUCIDA  DE  LA  PARA 
BOLA 

510  PRINTHHí; " C2CRSRDI < " i 2ÍSGRC -DETA 
/'<A(l,n+A<2,2 )>>;  " )X+(  "  j  A<  D  1  )+A(2j 
2)  i  "  )VT'2=0" 

520  GOTO600 

550  REM  ECUACION  REDUCIDA  DE  R. PARAL 

552  IF<A<  D 1 )+A(2j 2) )=0THEN  PRINTHHí 
i " C 2CRSRD I C  RVSON I VA  C  SPC I ESTA  C SPC I RED 
UCIDA" : GÜTO600 

560  PRINTHHÍi " C2CRSRDI C " J  CAI l+A22)/( 
fl< 1 / 1 )+A<2/2)) 1 ")+<" ;fl(l j 1 )+A<2<2); " 
)VT2=0" 

600  POKE2020J 13 : POKE2021 ; 1 • POKE2022, 

19 ‘ POKE2023;  63 

601  F0RWW-56292TÜ56295 : PQKEUW, 1 : NEXT 

602  GETRí  :  I  FRí  =  "  "  THEN60 1 

603  IFRí="S"THENCLR: GOTO 100 

604  I FRi» " N " THENPR I NT " C CLR I " 'P0KE532 
80; 14-END 

605  GOTO602 

1000  REM  REDUCIDA  PRIMER  TIPO 
1010  H“DETA/A00 

1020  J»<(A< 1 ; 1 )+AC2j 2) >-SQR< <AC 1 ; 1 )  + 

A<2>2D12-4íA00)  V2 

1030  K“( <A<  1 ;  1 1+A<2;2) >+SQR< (A(L1 )  + 

AC2;2))t2-4*A00>>/2 

1040  PRIHTHHJ, " C2CRSRDI ( " < H; "J+CDK, 

">Xt2+<"J Ji " >VT2“0" : GOTO600 

1050  PRINTHHÍJ  "  C  RVSON  ICLIHTIC  SPC  I  DATO 

S  C  SPC  1 1 NCORRECTOS  C  SPC  I CC0MM7 1 11  ¡  G0T06 

00 

2000  REM  **************** 

2001  REM  **************** 

2002  REM  **************** 


Cuádricas 

10  REM  0808080880008880000808888 

1 1  rem  aaaaeaeeeeaaaaaaeeaaeaaaa 


12  rem  a  a 

13  rem  a  a 

14  REM  a  LUIS  LUNA  BARRIOS  0 

15  rem  a  a 

16  REM  a  13  JULIO  1984  a 

17  rem  a  a 

íe  rem  a  a 


19  rem  aaeaaeeeeaeaaaaaeaaaeeeee 

20  rem  aaaaaaaaaaaaaaaaaaaaaaaaa 


40  PRINT" CCLRI " 

50  FORG-0TO26STEP2 :  PR  I NTTAB  <0  >  "  CIJADR 
I CAS  C 1 0SPC I C  BLK I C RVSON I C  SPC  3  a  C  2SPC I L 
U I S  C  SPC I LUNA  C  C0MM7 1 CRVSOFF I " 

60  FORH=0TO  1 5  =  POKE532S0 ,  H  :  NEXT :  NEXT 
70  FORT=0TO2500  •  NEXT 

99  DIMAC4;4);DIMB(9) 

100  PRINT" CCLRI " : PRINT" C4CRSRDI " -POR 
E53280; 6 

109  PRINTSPCÍ 17) "2"SPC( 1 1 > "2"SPC <7)  " 

2" 

110  PR I NT " C C0MM8 1 C  SPC  3 + C C0MM8 1 C  SPC  3  X 
+  C  CÜMM0 1 C  SPC I V+  C  COMM0 1 C  SPC I Z+  C  COMM0 1 

X  C  SPC I + C  COMM0 1 X V+  C  COMM0 IXZ+C C0MM8 1 V  C  SPC I 
+  C  C0MM8 1 VZ+  C  COMMa I Z  C  SPC I =0 " 

120  Ql*=1344 

130  POK'EQ  1 ;  30 : 1 NPUT  "  C  CRSRD I " ;  B  í  0  )  :  PO 
KEQ1 ; 32 : Ql=Ql+3 
140  F0RQ2=Q1 TÜÜ 1 +32STEP4 
150  P0KEQ2; 30 

160  INPUT" " ;  B(  032-Q1+4V4) 

170  PÜKEQ2; 32 
180  NEXT 

182  I FB ( 1 ) «0ANDB < 2 ) =0 ANDB ( 3 ) =0ANDB <  4 
)  =0ANDB  <  5 1  “0ANDB  <  6  )  »0  ANDB  <  7 1  =0THENL9 

1 84  I FL9= 1 ANDB  <  8 ) “0ANDB ( 9 > «0THEN2 1 00 

190  A(0;0)*BC0) :A<0; 1>=BÍ1)X2:AÍ0;2) 

ibB<2)72:A<0j3>®BC3]/2 

192  A(DD«B<4> :A<1;2>=B<5)X2:A<1;3) 

=B<6  V2 

194  A(2;2)=B<7) :A<2;3I»B(8)/2:A<3í3) 
=B(9) 

200  REM  INVARIANTES 
210  REM 

220  D1«A<DDÍA<2;2)ÍA<3,3:>+2ÍA<D2) 
ÍA(D3)ÍA<2,3> 

225  D2=A<2;2)ÍA<D3>t2+A<3,32íA<D2> 

•T2+A<DDíA<2,3>t2 

230  K*D1-D2 

240  D3=A<0, l>ífl<2,2)ifl<3,3>+fl<D2)ífl 
C2;3)*A<0;3)+A<0;2)*A<2;3)*Aai3) 

250  D4»A<0,3>ÍA<2,2>ÍACD3>+A<0,2>ÍA 

<1;2I*A<3;3I+A<0; DíA<2,3>12 

260  D5=A<0,  DÍAÍD2)ÍA<3,3)+A<DDÍA 

<2;3)*AC0;3)+A<0;2)*A<1;3M2 

270  D6=A<0,3>ÍA<D2:>ÍA<D3)+A<0,  DÍA 

<D3)ÍA<2,3>+A<0,2>ÍA<D  DíA(3,3> 

280  D7=A<0; 1 )ÍA( 1 > 2>ÍA(2j  3)+A( D  DÍA 
<2j  2>ÍA<0;  3)+A<0;  2)ÍA<  L3)*H(1i2) 

285  D8=A<0, 3)ÍA< 1 , 2) t2+A<0,  2>ÍA< D  D 
ÍA<2.3)+A<0;  DÍAÍD3)ÍA<2;2> 

290  L=A(0; 0>í <D1-D2I-A<0; 1 )í (D3-D4)+ 
A(0/2)Í(D5-D6)-A<0j  3)Í<D7-D8) 

300  J=(ACDDÍA<2;2I-A<D2M2)  +  CACD 
DíA(3;3)-A<D3)t2)+<A(2;2)ÍA<3;3)-A 
<2, 3)12) 

310  I=A(M)+A(2,2)+fl(3,3) 

320  CDA<0;0)ÍA<2;2)ÍA<3;3)+2ÍA':0;2I 
ÍA<2,3>*fl<0,3> 

325  C2*A<2;2>íA<0;3)t2+A<0;0)ÍA<2;3) 
t2+A<3; 3)ÍA(0; 2) 12 

330  C3*A(0;0)ÍA<D  DíA(3;3)+2íA<0,  D 
ÍACD3)ÍA<0;3) 

335  C4=A(D  DíA<0/3)t2+A(3;3)ÍA(0;  1) 
T2+AC0; 0)ÍA<  D  3) 12 

340  C5*A<0;0)íA<D  DÍAC2; 2I+2ÍAC0;  D 
ÍAÍD2)ÍA<0;2) 

345  C6=AC  D 1)*A<0; 2) T2+AÍ 0; 0>ÍA< 1 > 2) 

T2+fl<2i2)ÍA(0;  D12 

350  KTC1-C2+C3-C4+C5-C6 

360  JT=<A<0,0>ÍAO,  D-A<0>  1M2)+<A<0 

J0>ÍAC2;2)-A(0;2)T2I+(B(0>ÍA<3;3>-AC 

0;3)12) 

370  REM  SIGNATURA 

380  U 1  *SGN  <  K  )  :  W2=SGN  <  J  )  :  W3=*SGN  <1 )  :  W4 
=SGN< 1 > 

390  IFUI1=0THENW1  =  1 
400  I FW2=0THENW2= 1 
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410  I FU3=0THENU3= 1 
420  I FUI =U2THENPE=PE+ 1 
430  I  FU  1  OU2THENVA®  VA+ 1 
440  IFU2=U3THENPE=PE+1 
450  IFW20W3THENVA=VA+1 
460  IFU3=U4THENPE=PE+1 
4?0  IFW30W4THENVA»VA+1 
480  SIG=ABS<PE-VA) 

500  REM  CLAS IFICflC ION 

505  PHí = " [ HOM 3 [ 7CRSRD ] [ 2CRSRR ] " 

510  HHÍ ® " [ CLR3 [ 5CRSRD3 1  2CRSRR  3  [  RVSON  3 

520  IFL“0THEN750 
530  IFKO0THEH570 

540  I F J>0THEHPR I  NTHHÍ J "PARABOLO I DE l SPC  3 
ELIPTICO" : GOTO 1000 

550  IF JC0THENPR I NTHHÍ i " PARABOLO I DEC SPC 3 
HIPERBOLICO": GOTO 1000 
570  IFSI0-1THEN600 

580  I FL>0THENPRI NTHHÍ ; "ELIPSOIDE [SPC' 3 
IMAGINARIO" : GOTO 1400 
590  I FLC0THENPR I NTHHÍ ¡  "ELIPSOIDECSPC3 
REAL" : GOTO 1400 

600  I FL>0THENPR I NTHHÍ i "HIPERBOLOIDECSPC3 

HIPERBOLICO" : GOTO 1400 

610  IFLC0THENPRI NTHHÍ J " H I PERBOLO I DE [ SPC  3 

ELIPTICO" :GOTO1400 

750  REM  L*0 

760  IFK=0THEN780 

765  I FS I G® 1 THENPR I NTHHÍ i "CONO [SPC 3 RE 
AL" :QOTO1400 

775  PR I NTHHÍ j "CONO [ SPC 3 1 MHG INARIO" : G 
OTO  1400 

780  IFJ-0THEN850 
790  IFJ>0THEN820 

800  I FKT O0THENPR I NTHHÍ ;  “CILINDROÍSPC3 

HIPERBOLICO" : GOTO 11 00 

810  I FKT =0THENPR I NTHHÍ i "PLANOS[SPC3R 

EfiLES [SPC 3 SECANTES ": GOTO 1 100 

820  I FKT «0THENPR I NTHHÍ ; " PLANOS [SPC 3 I 

MAGINAR IOS [SPC 3 SECANTES" : GOTO 1 100 

830  I FSGN ( KT ) ®3GN ( I ) THENPR I NTHHÍ i "CI 

LINDROÍSPC3 IMAGINARIO" :G0T01 100 

840  PR I NTHHÍ J "CILINDRO[SPC3ELIF'TICO[SPC3 

REAL": GOTO 11 00 

850  I F I =0THENPR I NTHHÍ i "PLANO [SPC 3 UNI 

CO " : PR I NT " [ CRSRD  3 [ RVSON  3 [ 2CRSRR 3  VA [ SPC  3 

ESTA  [  SPC  3  REDUC I  DO  "  •'  GOTO2000 

860  I FKTO0THENPR I NTHHÍ ;  "GILI NDRO [ SPC 3 

PARABOLICO" : GOTO 1200 

870  IFJT>0THENPRI NTHHÍ; " PLANOS [SPC 3 I 

HAG I NAR I OS [ SPC  3  PARALELOS ": GOTO 1 300 

880  I FJT<0THENPRI NTHHÍ J "PLANOS [SPC 3 R 

EALESÍ SPC 3 PARALELOS" : GOTO 1300 

890  PRINTHHÍ J " PLANOS [ SPC 3 CO INCIDENTE 

3" : GOTO 1300 

899  REM 

900  REM  ECUACIONES  REDUCIDAS 
920  REM 

1000  REM  PARABOLOIDE 

1005  IF<IT2-4*JX0THEN2100 

1006  IF-L/.K0THEN2100 
1010  K1=SQR<IT2-4*J) 

1020  F'RINTPHÍ 

1030  PRINT" <I+Kl)/’2l  ")Xt2+(";  <I-K 
1 V2; ">Vt2+<"l2*SQRí-L/J)J ")2®0":GOT 
02000 

1100  REM  CILINDROS  NO  PARABOLICOS 
PLANOS  SECANTES 
1110  IF< I T2-4# J ) <0THEN2 1 00 
1120  K1«SQR<I12-4*J) 

1130  PRINTPHÍ 

1140  PRINT"C";KT|7JJ ")+<"; (I-Kl  V2l ") 

XT2+C " i ( I+Kl >72; " )Vt2=0"  GOTO2000 
1200  REM  CILINDRO  PARABOLICO 

1209  IFC-KT/IX0THEN2100 

1210  PRINTPHÍ 

1220  PRINT" ("1  I  j  ")XT2+<"  ;2ÍSQR<-KT/,I 
) i " ) V=0" : GOTO2000 


1300  REM  PLANOS  PARALELOS 
1310  PRINTPHÍ 

1320  PRINT"  ( "  j  JT/I ;  "H< "  j  I J  " )Xt2=0" : 
GOTO2000 

1400  REM  ELIPSOIDES  HIPERBOLOIDES  CO 


1420  PRINT :PRINT"C0N[SPC3A1,£SPC3A2, 
[SPC 3A3/  [ SPC 3 LAS [ SPC 3 SOLUC IONES! SPC 3 

1430  PRINT" [3SPC3Pf3-<"j I; ">P12+<", J 
i ")P-í";k; ">=0" 

1440  GOTO2000 

2000  POKE2020J 13 : POKE2021 , 1 : POKE2022 
; 19 : POKE2023* 63 

2010  F0RKK-56295T056295-4STEP-1 :POKE 
KKj 1 : NEXT 

2014  I FLU® 1 THEN2020 

20 1 5  PR I NT " [ 4CRSRD  3 [ 2CRSRR  3  L® " ; L 1 " *K 
*"  JK;  Jj  "*I=";  I;  "*SIG-";SIG 
2017  PRINT" [2SPC3KT®" J KT J "*JT®" j JT 
2020  GETEAí : IFEAf®" "THEN2020 

2030  I  FEAí ®  "  S  "  THENCLR  ■’  GOTO  1 00 
2040  I FE Aí O " N " THEN2020 
2050  POKE53280J 14 : PRINT" [CLR3 " ; END 
2100  PR I NTT AB  í 1 5  > " [ UHT  3 [ R VSON  3 [ SPC  3  D 
ATOS [SPC 3  INCORRECTOS [SPC 3 [C0MM7 3" :LU 
*1 : GQTO2000 

2200  REM  *****.M*M*****é» 

2201  REM  ««¡Mttft*********** 

2202  REM  ***é,M’«»í*«*«*«** 


Es  el  clásico  juego  de  los  chinos.  Es  tan  sencillo  que  pienso  que 
no  es  necesaria  explicación. 


1  PR I NT " [ CLR  3 [ 20CRSRD  3 [ RED  3  CÜPVGR I GH 
TÍSPC3 JULIAN [BLU 3 " 

3  FORD-1 TO?: PRINT" [CRSRD3 ": NEXT 

4  PRINT" COMO [ SPC 3 TE [ SPC 3 LLAMAS " , 


Página  134 


ESPECIAL  PROGRAMAS 


Commodore  World 


5  INPUTI* 

10  PRINT"[CLR3" 

20  P0KE36879,255 

30  A=INT <RND< 1 3*3+1 3 

40  PRINT  " [  2CRSRR 3  TU  [  SPC 3  P I  BES " , 

50  INPUTI 
60  X»INT<I/23+A 
70  IFX=ITHENX»X-1 

72  IF  I=0THEN  X=A 

73  IFI-6  THENX-A+3 

80  PR I NT " [  CRSRD  3 [ 2CRSRR  3  VO  C  SPC  3  P I  DO  C  3SPC  3 


Reloj  de  mesilla 


85  PR I NT " C  22C0MM8 3  [ CRSRD I " 

90  PR I NT " C  2CRSRR 3 LLEVAS" , 

100  INPUTK 

102  PR I NT " C  CRSRD 3 [ 2CRSRR I LLEVO  í 5SPC ] 

"¿A 

103  PRINT  "  1220011110]  " 

110  PR I NT " [ 2CRSRR  3  LA [ SPC  3  SUIIFi  C  SPC  D  ES 

120  U«A+K 
130  PRINTU 

170  I FX=UTHENPR I NT " [ CRSRD ] [ 2CRSRR ] [ RED ] 

HCSPC]EC3SPC']GCSPC]flCSPC]NCSPC]flCSPC] 

DISPC30" 

180  I F I “UTHENPR I  NT  "  [  CRSRD ] C 2CRSRR ] C  RED  3 
GÍSPC3AISPC3NISPC3AISPC3SISPC3TI8PC3 

E" 

181  IFI®UTHENL*L+1 

182  IFX»UTHENE*E+1 

183  PRINT" CCRSRD3 [PUR3 " ¡ I*¡ "... " 1 L" C2SPC3 

vic...";e 

200  PR I NT " [ BLU ] [  RVSOFF ] " 

210  PR I NT " [ CRSRU  3 [ CRSRR  3 [ CRSRD ] SEGU I 
M0SISPC3  <S/N3?" 

220  GETG*  ’ IFG*O"S"THEN220 
230  PRINT" CCLR3" 

240  A=INT<RND< 13*43 
250  P=INT<RND< 13*73 

260  IFPCATHEN240 

261  I FP>A+3THEN250 

270  PRINT" [ CRSRD 3 C 2CRSRR 3 VO C SPC 3 P I DO 
C3SPC3 " ; P 

280  PR I NT " C  CRSRD  3  C  2CRSRR3 TU  C  SPC  3  P I DE 
S", 

290  INPUTI 

300  PRINT"! 22COMH0  3 " 

310  PRINT" CCRSRD3 C2CRSRR3TUCSPC3TIEN 

ES"; 

320  INPUTK 

330  PRINT" C 2CRSRR 3 VO [ SPC 3 TENGO C2SPC3 


340  PRINT"!  22COMI10  3  " 

341  H«K+ñ 

342  PRINT"! CRSRD  3 ! 2CRSRR 3  LA ! SPC  3  SUMA 


[SPC3ES" ; H 

350  IFP-HTHENE-E+1 

351  IFI-HTHENL-L+1 

360  I F I =HTHENPR I NT " ! CRSRD  3 ! RED  3 ! SPC  3 
G1SPC3AÍSPC3NÍSPC3AÍSPC3SÍSPC3TISPC3 
E" 


370  IFP=HTHENPRINT" [CRSRD3 [RED3ÍSPC3 
H[SPC3E[3SPC3G[SPC3A!SPC]N!SPC]A[SPC3 
D!SPC30[SPC] " 

388  PRINT" [CRSRD3 !PUR3 " ; I*J LJ " 
!2SPC3VIC...";E 

389  PRINT" !BLU 3 " ; " [ CRSRD 3 [ CRSRR 3 SEGU 
IM0S[SPC3<S/N>" 

390  GETG* : IFG*"" "THEN390 

391  IFGÍ="S" THEN10 

392  I FGS» " N " THENPR I NT " [ CLR  3 " : END 

393  GOTO390 

399  PRINT" [BLU 3" 

400  GOTO10  -i 


Al  ejecutar  el  programa,  el  ordenador  pide  una  serie  de  datos: 
hora,  fecha,  hora  de  la  alarma  y  sonido  de  la  misma.  La  hora 
hay  que  entrarla  de  la  forma  habitual  (ej.  032648).  Este 
número  ha  de  ser  siempre  menor  a  125959.  Si,  por  ejemplo, 
quisiéramos  introducir  las  7  h.  de  la  tarde,  tendríamos  que 
poner  070000,  y  contestar  a  la  siguiente  pregunta  AM(1), 


Los  sonidos  de  la  alarma  los  he  sacado  de  las  págs.  162  y  153- 
154  del  manual  del  usuario.  Cada  uno  puede  cambiarlos  a 
voluntad  (lineas  últimas). 

Después  de  haber  contestado  a  todas  las  preguntas,  el 
ordenador  pasa  a  dibujar  el  reloj;  en  primer  lugar,  y  hay  que 
apretar  la  tecla  F7,  para  que  la  alarma  pueda  sonar  (igual  que 
un  reloj  de  mesilla). 

Apretando  Fl,  aparecerá  el  día  y  el  mes;  y  pulsando  otra  vez 
F7  al  sonar  la  alarma,  parará  la  ejecución  de  la  misma.  Si  la 
alarma  no  se  para  con  este  procedimiento,  sonará  un  minuto 
(más  o  menos). 


0  REM  *  RELOJ  DE  MESILLA  * 

5  REM  *  COPYRIGHT  <C>  J.  MIGUEL  SUNE 
-  VERANO  1984  « 

1 0  PR I NTCHR*  <1423: POKE53280 , 1 : P0KE53 
281, 1 

15  F0RI-54272T054278 : POKEI , 0  =  NEXTI : P 
0KE54296, 0 

20  I NPUT " [ CLR  3 [ CRSRD  3 [ BLK  3 [ SPC  3 1 NTRO 
DUZCA [ SPC  3  LA [ SPC  3  HORA  < [ SPC  3 MENOR [ SPC  3 
QUEISPC3 125959ISPC3  > [SPC 3 " ; TI* 

25  IFTI$>" 1 25959 "THENRUN 

30  I NPUT " [ CRSRD 3 [ SPC 3 AM [ SPC 3 < 1 3 [SPC] 

OÍSPC3PMÍSPC3  <23 [SPC3 " J  J 

35  I NPUT " [ CRSRD  3 [ SPC  3  MES [ SPC  3 ¡ [ SPC  3 " 

;  A 

40  INPUT" [CRSRD3 [SPC3DIAÍSPC3 • !SPC3" 

J  F 

45  I NPUT " [ CRSRD  3 [ SPC  3  HORA [ SPC  3  DE [ SPC  3 
LA [SPC 3 ALARMA [SPC 3 : [SPC3 " ; TI* <R3 : INP 
UT" [CRSRD3 [SPC3AMÍSPC3  < 1 3 [SPC30ÍSPC3 
PMÍSPC3  <23 [SPC3 " j H 

50  PR I NT " ! CRSRD  3 [ SPC  3 SON I DO [ SPC  3  DE [ SPC  3 
LA [SPC 3 ALARMA [SPC 3 : " : PRINT" [CRSRD] [SPC 3 
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G-GRflVE",  "MaMEDra'S  "fi=ñGUDO" 

55  INPUT" [SPC3CUHLISPC3  ",H{:  IFH$0"fi 
"  HNDHÍO  "  M  "  fiNDHiO 11 G"  THEN50 
60  GGSUB275 

65  PR I NT “ [ CLR 3 [ GRN 3 [ 6CRSRR 3 [ RVS0N3 [ 3SPC 3 
RELO J  C  4SPC 3 DE  C  4SPC  3  MES I LLfi 1 3SPC 3 " 

70  PR I NT  :  PR I NT 11  C 3CRSRD  3  C 3CRSRR ]  [ RVSClN 3 
C  34SPC 3 [  RVSOFF  3 [ SPC ] " 

75  PR  I  NT  "  C  GRN  3  í  3CRSRR  ]  [  RVSClN  ]  [  SPC  3  C  RVSOFF  J 
C 32SPC ] [  RVS0N3  CSPC  J " 

80  PR I NT " C 3CRSRR ] [RVSON 3 [ SPC 3 [ RVSOFF 3 
[ 32SPC 3 CRVSON 3  [  SPC  3  [  BLU ] F  C  GRN  3 " 

85  PR I NT " [ 3CRSRR  3  C  RVSON  3 [ SPC  3 [ RVSOFF ] 

C  32SPC  3  C  RVSClN  3  C  SPC  3  C  BLU  3 1  C  GRN  3  " 

90  PR I NT " C 3CRSRR 3  C  RVSON 3  C  SPC  3  C RVSOFF  3 
C 1 1  SPC  3  C  COMMfi  3  C  3SH I FT*  3  C  COMMS  3  C  1 0SPC  3 
[RVSON 3 CSPC 3" 

35  PR I NT " [ 3CRSRR 3 [ RVSON  3 [ SPC  3 [ RVSOFF  3 
[  1 1  SPC  3  [  SH  I FTB  3  [  9SPC  3  [  SH  I FTB  3  [  1 0SPC  3 
[RVSON 3 [SPC 3" 

100  PR I NT M [ 3CRSRR 3 [ RVSON 3 [ SPC 3 [ RVSOFF 3 
[ 1 1SPC3 [SHIFTB3 [9SPC3  CSHIFTB3 [ 10SPC3 
[RVSON 3 [SPC 3" 

105  PR I NT " [ 3CRSRR 3 [ RVSON  3  C  SPC  3 [ RVSOFF  3 
[ 1 1SPC3 [SHIFTB3 [9SPC3 [SHIFTB3 [ 10SPC3 
[RVSON 3 [SPC 3" 

110  PR I NT " [ 3CRSRR 3  C RVSON  3  C SPC  3 [ RVSOFF  3 
[  1 1  SPC  3  [  COMMZ  3  [  9SH I FTK»  3  C  COMMX  3  [  10SPC3 
[RVSON 3 [SPC 3 [BLU 3 F[ GRN 3 " 

115  PR I NT " [ 3CRSRR 3 [ RVSON 3  C SPC 3 [RVSOFF 3 
[ 32SPC 3 [ RVSON  3 [ SPC  3 [ BLU  3  7 [ GRN  3 “ 

120  PR I NT " [ 3CRSRR 3 [ RVSON  3  C  SPC  3  C  RVSOFF  3 
[ 32SPC  3 [ RVSON  3 [ SPC  3 " 

125  PR I NT " [ 3CRSRR  3 [ RVSON  3 [ 34SPC 3 [ RVSOFF  3 

130  PR I NT " C 4CRSRR 3  C  SH I FTQ  3 [ 30SPC 3 [ SH I FTQ  3 
[4SPC3 " 

135  PR I NT " [ HOM 3 [ 9CRSRB 3 [ 6CRSRR 3 "LEFT 
*<TI$<R)¿2)"CSPC3-[SPC3"MIDf (TI$<R)i 
3,2) 

140  I FH*  1 THENPR I NT " [ 8CRSRR 3 -FlM- " 

145  I FH> 1 THENPR INT " C  8CRSRR  3 -PM- " 

1 50  PR I NT " [ BLK 3 [ HOM 3 [ 1 0CRSRD 3 [ 1 0CRSRL 3 

[SPC 3 • "jRIGHT*<TIÍ/23 

155  I FT I i> " 1 25959 " THENT I $=" 0 1 0000 11  ¡ J 

■J+l 

160  I F J* 1 THENMI» " RM " ■GOSUB270 
165  IFJ>1THENMÍ*"PM"  :  GOSUB270  •  J«=0 
170  PR I NT " [ BLK 3 [ HOM 3 [ 1 1 CRSRB 3 [ 9CRSRR 3 
[ 6SPC  3 [ 2CRSRR 3 " LEFTí  < T I S , 2 ) ; " [ SPC  3 ¡ [ SPC  3 
";MIBí(TIJU3,2> 

175  IFTIÍ®TIÍ (R)flNB  L*  1 THENGOSIJB290 
180  GET fl* • I FR$* " [ F 1 3 " THENQ0SUB2 1 5 : 00 
SUB200: GOTO 150 

185  IFfi$=" [F73 "THENL"L+1 ¡ IFL-1THENG0 
SUB230 • GOTO150 

190  I FL> 1 THENG0SUB245 : L-0 : GOTO150 
195  GOTO 135 

200  PR I NT " [ HOM  3 [ 6CRSRB 3 [ 5CRSRR  3  MES [ SPC  3 

:  [2SPC3";FU  "  [  12CRSRR3DIFIÍSPC3  :  "F 

205  FORI-1TO90.’GOSUB320¡NEXT 

210  PR I NT " [ HOM  3 [ 6CRSRD  3  C  4CRSRR  3 [ 3 1 SPC  3 

[4CRSRR3  "  ■'  GGSUB260  :  RETIJRN 

215  PR  I  NT  "  [  HOM  3  C  6CRSRD  3  "  ■  FORB*  1 T02  •'  P 

R I  NT " [ CRSRD 3 [ 3CRSRL  3 [ SPC  3  " 

220  NEXT 
225  RETURN 

230  PR I NT " [ HOM  3 [ 4CRSRD 3 [ 7CRSRR  3  C  RVSON  3 
[BLU3  ÍSPC3F-7TSPC3 [RVS0FF3 " ¡L»l 
235  PR  INT 11  [  9CRSRD  3  C  3CRSRL  3  [  3SPC  3  " 

240  PR I NT " [ 3CRSRL 3  C 3SPC  3 " = RETURN 

245  PRINT" [H0M3 [4CRSRB3 [7CRSRR3 [RVSOFF 3 

[ 14SPC3 " : L»0 

250  PR  I  NT  "  [  9CRSRD  3  [  3CRSRL  3 1  RVSON  3  [  BLU  3 

255  PR I NT " [ 3CRSRL 3 [ RVSON  3 [ BLU  3  7 [ GRN  3 
" : RETURN 

260  PR INT 1 » [ HOM 3 [ 7CRSRD 3 [ 2SPC 3 [ 2CRSRR 3 
[ 32SPC  3 [ CRSRR  3 [ R VSON  3 [ BLU  3  F " 


265  PR  INT 11  [  2SPC  3  [  2CRSRR  3  [  32SPC3  [  CRSRR  3 
[ RVSON  3 1 [ GRN  3 [ 5CRSRR 3 " : RETURN 
270  PR I NT " [ HOM  3 [ 1 2CRSRD 3  C 1 3CRSRL  3 " ; M 
%  • RETURN 

275  I FHí= " fl " THENV"96 : K-254 ■ RETURN : RE 
M*F#-6 


285  I FHÍ  =» " G " THENV*  1 1 :  K=1 14  •  RETURN  ■  RE 
M*F-3 

290  P0KE54296, 15:P0KE54277,2’P0KE542 
78 ,  240 :  P0KE54276 ,  33  '■  F0RI“1  TÜ28 
295  P0KE54272  ¡  K  •'  P0KE54273,  V :  F0R2»1  TO 
700 : NEXTZ : P0KE54296j  0  i GOSUB320 : FORV* 
1TO500 

300  NEXT V : GOSUB320 ¡ P0XE54296 , 1 5 
305  GÜSUB320  •’  GETH$ :  I  Fñ$- "  [ F7 3 "  THENL» 
2 ■ G0T0315 
310  NEXTI 

315  P0KE54296, 0 :P0KE54272> 0 : P0KE5427 
3<  0  •  L=>2 1  RETURN 

320  PR  I  NT "  [  HOM  3  [  1 0CRSRII 3  [  8CRSRL  3 "  R I G 
HTÍCTIÍ, 2): RETURN 


La  explicación  del  programa  es  muy  sencilla.  Antes  de  todo  te 
pide  tu  nombre,  después  imprime  tu  nombre  en  la  pantalla 
junto  al  de  tu  contrincante,  la  casa,  que  en  este  caso  es  la 
computadora.  Después  te  pide  la  cantidad  que  quieres  apostar 
de  5  a  500$.  Cuando  lo  hayas  escrito  aparecerán  los  datos  en 
la  pantalla  moviéndose  y  cambiando  los  números  hasta 
finalmente  parar.  En  la  primera  jugada  la  única  opción  es  la  de 
jugar.  Después  de  la  primera  jugada  ya  te  pide  la  opción  de 
jugar  o  de  cubrirse.  Cuando  eliges  jugar  la  casa  muestra  sus 
dados.  Si  tus  dados  son  más  altos  que  los  de  la  casa,  ganas  lo 
que  has  apostado,  si  tu  puntuación  es  más  baja,  pierdes  lo  que 
habías  apostado.  Si  la  opción  es  cubrir,  pierdes  la  mitad  de  lo 
que  has  apostado,  te  enseña  en  la  parte  inferior  de  la  pantalla 
lo  que  hubiese  tenido  la  casa  y  pasa  seguidamente  a  la  próxima 
jugada.  Lo  ganado  se  va  almacenando  y  te  lo  va  mostrando 
cuando  apuestas. 


Página  136 


ESPECIAL  PROGRAMAS 


Commodore  World 


4  PRINT" CCLR] " 

3  P0KE36879;26 

7  H“1@00 ; K*0 

10  REM-.J IJEGO  DE  DADOS- 

15  REM-- PRESENTACION-- 

16  PRINT" CCLR] " 

17  FOR  A-1T022 

20  PRINT" CSHIFTQ]"; 

25  NEXTA 

27  PRINT" C17CRSRD]" 

30  F0RA=»1T022 
35  PRINT" CSHIFTQ]"; 

40  NEXTA 

30  FORB“ 1 TO500 : NEXT 

60  PR I  NT " C  HOM ] C 1 0CRSRD ] C  8CRSRR ] C  RVSON ] 

DADOS  C  RVSOFF ]  <  C  )  " 

70  PR I NT " C  2CRSRD ] C  20CRSRL ] ENR I QUE  C  SPC ] 
VILADOMIU" 

80  PRINT" C2CRSRDH 16CRSRL] BARCELONA" 

81  FORA=QTO2000 : NEXTA 

90  PRINT" C8CRSRD] C 19CRSRLIPULSACSPC] 

UNA C SPC] TECLA" 

100  GETfií : IFAt=" "THEN100 
1 10  P0KE36878; 15 : FORL-130TO234 : P0KE3 
6876;  L  ¡  FORM-1TO40  :  NEXTM  ■'  NEXTL  ¡  P0KE36 
878;  0 

120  P0KE36876; 0 
130  PRINT" CCLR]" 

140  PGKE36879; 26 

150  I NPUT " C 1 3CRSRD  í  TU  C  SPC ] NOMBRE " ; N* 

160  IFLENCN$)>4THEN  PRINT"SOLOCSPC:]A 
CEPTO  C  SPC ] NOMBRES  C  SPC ] CON  C  SPC ] 4  C SPC ] 

LETRAS " : FORU* 1 TO2000 ¡ NEXTU : GOTO  1 30 

170  REM-EMPIEZA  EL  JUEGO- 

180  PRINT" CCLR]" :P0KE36879;  105 

190  PR I NT 1 "  C 2CRSRD ] C  WHT ] CASA  C  6CRSRD ] C  4CRSRL ] 

"N$ 

193  PR I NT " C  HOM ] C 1 8CRSRD ] C  WHT ] C  SPC ] C 20COMMU ] 
C RVSON]" 

200  PR I NT " C  WHT ] C  RVSON ] APUES . M I N  C  SPC ] 

Sí  C  SPC ] MAX  C  SPC ] 500$  C  RVSOFF ] " 

210  PR  I  NTN$  "  C  SPC  ]  T I  ENES  •  "  H  "  C  CRSRL  ]  t  C  3SPC  ] 

220  I NPUT " CUANTO C SPC ] APUESTAS " J  J 
230  I F J>500OR JOTHENGOTO 1 80 
240  REM-C0MEN2AMIENT0- 
245  F0RV«1T015 
250  D*INT(RND<1)*6+1> 

260  S»INT(RND<1>*6+1) 

265  PR I NT " C  HOM ] C  9CRSRD ] C  3CRSRR ] " ¡ 

270  ONSGOSUB 1 000 ; 2000 ; 3000 . 4000  >  5000 
;  6000 

275  PRINT"  C3CRSRUH9CRSRR]"; 

280  ONDGOSUB 1 000 ; 2000 ; 3000 ; 4000 ; 5000 
;  6000 
290  NEXTV 

296  PRINT" CHOM] C  19CRSRD] OPCION '■  C  15SPC] 

C RVSON ] JCRVSOFF JUGAR C24SPC] " 

301  PRINT" CCRSRU] C21SPC] " :K«K+1 : IFK> 

1 THENG0SUB5 10: IFK-1 THEN3 1 0 

310  GETI$ : IFI$*" "THEN310 

311  IF I $■ " J " THENGOTO400 

320  I F I #■ " C " THENPR I  NT " C  HOM ] C 1 0CRSRD I 
*PI " INT( J/25 : H*H-INT< JX2) : G0T0996 
400  F0RV-1T015 
410  W-INTCRNDd  5*6+1) 

420  X*INT(RND< 1 )*6+l ) 

425  PR I NT " C  HOM ] C 3CRSRD ] C  3CRSRR ] " ; 

430  ON  WGOSUB 1000; 2000; 3000; 4000; 300 
0  ;  6000 

435  PR I NT " C  HOM ] C  3CRSRD ] C  9CRSRR ] " ; 

440  ON  XGOSUB 1000; 2000; 3000; 4000; 500 
0 ; 6000 

445  NEXTV 

446  I FD+S=W+XTHENG0T0449 

447  I FD+SCW+XTHENGOTO450 

448  IFD+S>W+XTHENGOTO460 


449  IFD+S»W+XTHENPRINT" CHOM] C 10CRSRD] 

* I GURL " : G0T0997 

450  I FD+SCW+XTHENPR I NT " CHOM] C 10CRSRD] 

*P I" J : FORA= 1 TO 1 000 : NEXTA : H“H-J 

45 1  P0KE36877 ; 220 : FORL* 1 5TO0STEP- 1 : P 
0KE36878 ; L : FORM“l TO300 : NEXT : NEXT : POK 
E36877; 0 

452  P0KE36878 ; 0 • GOT0996 

460  I FD+S>W+XTHENPR I NT " C  HOM ] C 1 0CRSRD ] 

*GAN " J : FORA= 1 TO 1 000 : NEXTA : H«H+ J 

461  F0RA*1T05  •'  P0KE36878;  13:FORL-130T 
0234 : P0KE36876 ; L : NEXTL :  P0KE36878 ; 0 : 
P0KE36876; 0 : NEXT 

462  G0T0996 

510  PRINT" CHOM] C 19CRSRD] C5CRSRR] CCRSRD] 

/ C  RVSON ] C  C  RVSOFF ] UBR I R " ; RETURN 

996  PR I NT " C  HOM ] C  20CRSRD ] C  2 1 SPC ] " 

997  PR I NT " C  HOM ] C 1 9CRSRD ] C  RVSON ] " N$ " ■ 

"D+S" C  CRSRL ] C  5SPC ] CASA» " W+X : F0RA-1T0 
3000 'NEXT: GOTO  170 

998  GETA* : I F A$= " S " THEN 1 70 

1000  PR I NT " C  6CRSRR ] C  RVSON ] C  3SPC ] C  CRSRD ] 

C  3CRSRL  ]  C  SPC  ]  C  SH I FTQ  ]  C  SPC  ]  C  CRSRD  ]  C  3CRSRL  ] 

C3SPC] C RVSOFF] " : RETURN 

2000  PR I NT " C 6CRSRR J C RVSON ] C  SH I FTQ ] C  2SPC ] 

C  CRSRD ] C  3CRSRL ] C  3SPC ] C  CRSRD ] C  3CRSRL ] 

C  2SPC ] C  SH I FTQ ] C  RVSOFF ] " : RETURN 

3000  PR I NT " C  6CRSRR ] C  RVSON ] C  SH I FTQ ] C 2SPC ] 

C  CRSRD ] C  3CRSRL ] C  SPC ] C  SH I FTQ ] C  SPC ] C CRSRD ] 

C  3CRSRL ] C  2SPC ] CSHIFTQ] CRVSOFF] " : RETU 
RN 

4000  PRINT"! 6CRSRR ] C  RVSON ] C  SH I FTQ ] C  SPC ] 

C  SH I FTQ ] C  CRSRD ] C  3CRSRL ] C  3SPC ] C  CRSRD ] 

C  3CRSRL ] C  SH I FTQ ] C  SPC ] C  SH I FTQ ] C  RVSOFF ] 

" ¡ RETURN 

5000  PR  I  NT  "  C  6CRSRR  ]  C  RVSON  ]  C  SH  I  FTQ  ]  C  SPC  ] 
CSHIFTQ] CCRSRD] C3CRSRL] CSPC] CSHIFTQ] 

C  SPC  ]  C  CRSRD  ]  C  3CRSRL  ]  C  SH  I  FTQ  ]  C  SPC  ]  C  SH  I  FTQ  ] 
CRVSOFF]" : RETURN 

6000  PR I NT " C  6CRSRR ] C  RVSON ] C  SH I FTQ ] C  SPC ] 
CSHIFTQ]! CRSRD ] C  3CRSRL ] C  SH I FTQ ] C  SPC ] 
CSHIFTQ]! CRSRD ] C  3CRSRL ] C  SH I FTQ ] C  SPC ] 
CSHIFTQ] CRVSOFF] "  RETURN 
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Nombres  de  colores 

Si  quieres  poner  una  nota  de  color  en  los  nombres  de  tus 
programas  haz  lo  siguiente: 

Grábalo  con  el  nombre: 

“[CTRL  1]N[CTRL  2]0[CTRL  3]M[CTRL  4]B[CTRL  5] 
R[CTRL  6[E” 

Ten  en  cuenta  que  cada  control  de  color  ocupa  un  carác¬ 
ter  de  los  16  permitidos. 

J.S.P.  RUN  EE.UU. 


Lood/Run 

Todos  sabemos  que  podemos  cargar  y  autoejecutar  un 
programa  desde  cinta  pulsando  SHIFT  y  RUN/STOP. 

El  problema  es  que  no  se  puede  hacer  lo  mismo  con  los 
programas  en  disco.  Para  solucionarlo,  se  puede  hacer: 
LOAD“PROGRAMA”,8  y  pulsar  SHIFT-Return. 

Esto  hará  que  NO  se  ejecute  la  línea  anterior. 

Entonces  subimos  con  el  cursor  y  pulsamos  SHIFT-RUN/ 
STOP.  Ahora  el  programa  se  cargará  y  se  autoejecutará. 

M.F.  RUN  EE.UU. 


Os  envío  este  programa  animado  por  lo  que  cuenta  Ignacio 
Ortega  en  el  número  8  de  la  revista,  a  mí  me  paso  lo  mismo 
que  él  cuenta  con  respecto  al  manual  del  usuario  y  después  con 
la  guía  de  referencia.  Tengo  el  C-64  y  el  cartucho  HES  MON 
64  desde  julio,  cuando  empece  a  ver  la  guía  de  referencia  me 
llamó  mucho  la  atención  el  modo  “Bit  Map”  de  alta 
resolución,  pero  al  probar  el  programa  ejemplo  de  la  guía  me 
desilusione  un  poco  al  ver  la  lentitud  del  método  (llenado  de 
la  pantalla  de  “porquería”,  posterior  borrado  línea  a  línea,  y 
finalmente  el  cambio  de  color),  así  pues,  que  me  decidí  a  hacer 
una  subrutina  en  código  máquina,  ayudado  por  el  ensamblador 
del  Hes  Mon. 

El  programa  yo  lo  tengo  en  casa  con  todas  las  funciones  que  se 
me  han  ido  ocurriendo  con  el  tiempo,  como  me  faltan  los 
números  1,  3,  4  y  5  de  la  revista  siempre  pensé  que  ya  lo 
habríais  publicado. 

Aquí  os  lo  mando  con  tres  funciones  (Coseno,  elipse  y 
epicicloide)  para  que  podáis  ver  cómo  se  usa  la  subrutina  y 
para  ayudar  un  poco  al  que  no  entienda  aún  bien  la  manera  en 
que  se  han  de  expresar  las  fórmulas  de  las  funciones  a 
representar.  También  he  introducido  la  esfera  para  que 
ayudados  de  vuestra  imaginación  y  sabiduría  matemática 
podáis  representar  figuras  aparentemente  en  tres  dimensiones. 

El  programa  comienza  en  la  línea  20,  para  que  una  vez 
efectuado  el  primer  Run,  añadáis  la  línea  10  que  debe  ser: 

10  GOTO  30 

Esto  es  porque  al  efectuar  el  primer  RUN,  por  medio  de  las 
instrucciones  READ  y  DATA  se  introduce  en  memoria  a 
partir  de  la  posición  49.152  ($C000)  la  subrutina  en  código 
máquina.  En  esta  la  subrutina  queda  salvada  del  programa  en 
BASIC,  es  decir  que  no  corre  peligro  de  borrarse,  asi  pues,  la 
primera  vez  que  se  ejecuta  el  programa  será  la  más  lenta. 

Líneas  30-90.  Estas  líneas  no  creo  que  necesiten  explicación, 
simplemente  sirven  para  elegir  la  función  que  deseas  ver 
representada.  Podéis  cambiarlas  o  añadir  las  que  vosotros 
queráis. 

Líneas  100-130.  Con  estas  lineas  se  representa  la  función  COS, 
las  funciones  CH,  RO,  LN,  BY  y  BI  son  las  que  explica  la 
Guía  de  Referencia. 

Líneas  140-210.  Con  estas  se  representa  una  elipse  en  cualquier 
parte  de  la  pantalla  y  del  tamaño  que  vosotros  elijáis. 

Líneas  220-330.  Por  medio  de  estas  se  representa  en  la  pantalla 


una  epicicloide  de  la  cual  vosotros  debéis  elegir  los  radios  de  la 
circunferencia  fija  y  de  la  circunferencia  generatriz  móvil.  Se 
vera  representada  en  el  medio  de  la  pantalla,  además  al  final 
también  se  representa  la  circunferencia  fija. 

Líneas  340-470.  Con  estas  se  representa  una  esfera  en  el  centro 
de  la  pantalla. 

Línea  990.  Es  la  forma  que  explica  la  Guía  de  introducir  una 
subrutina  en  lenguaje  máquina  a  partir  de  BASIC. 


20  GOSUB990 

30  PR I  NT  "  I CLR 1  “  "  í  RVSON  3  [  UHT  3  B I  ME  C  SPC 1 
L  A  C  SPC 3 FUNC I QN [ SPC  3  QUE  C  SPC  3  QU I ERES  C  SPC 3 
VER  C  SPC 3 REPRESENTADA " 

40  PRINT"C0S/ ELIPSE/ EPICICLOIDE/ ESFE 
RA" 

50  I NPUTAÍ : IFAí=" " THEHGOTO20 
60  I  Ffl$= "COS " THEN0OTG 1 00 
70  I FAÍ  ■  " EL I PSE " THENG0T01 40 
80  I F Aí- “ EP I C I CLO I  DE " THENGOTO220 
90  IFfií="ESFERA"THENGOTO340 
100  SYS49152 

110  FORX=0TG300  :  V- 1 00-90*COS  (  X#ir/ 1 50 
> ! CH= INT<  X/8 ) : RO» I  NT  <  V/8 ) : LN»YAND7 
1 20  B V=8 1 92+RÜ*320+8*CH+LN ¡ B I •?- < XAN 
D7) 

1 30  POKEBV i PEEK(BV>0R(2tBI ) : NEXT ; GOT 
0110 

140  1 NPUT " DAME  C  SPC ] EL  C  SPC 3 SEN I EJE [ SPC 3 
MAYOR" ;F 

1 50  I  NPUT  "  DAME  C  SPC  3  EL [ SPC  3  SEM I EJE  C  SPC  3 
MENOR" / E 

1 60  I NPUT " DAME  C  SPC 3 LA  [  SPC  3  COORDENADA 
C  SPC  3  X  C SPC 3  DEL [ SPC  3  CENTRO " ; G 
1 70  I  NPUT  "  DAME  C  SPC  3  LA  C  SPC  3  COORDENADA 
[ SPC  3  Y  C  SPC  3  DEL  C  SPC  3  CENTRO  "  ¡ H 
180  SYS49152 

190  FORS"0TO<2*ir>STEP.  03 :  X»G+<F*C0S< 

S>> :Y=H+(E*SIN<S>) 

200  CH" I NT ( X/8 ) : R0= I NT ( Y/8 ) : LN" YRND7 
: BV-8192+RO#320+8#CH+LN : BI=7-(XAND7) 

210  POKEBV/  PEEK(BY)QR(2TBI )  '■  NEXTS  '•  G0 
TO190 

220  PRINT" CCLR3CCOMM73LACSPC3EPICICL 
0 1 DE  C  SPC  3  ES  C  SPC  3  CERRADA  C  SPC  3  S I [ SPC  3  E 
L  C  SPC  3  RAD 1 0 [ SPC  3  DE [ SPC  3  LA  C  SPC  3  C I RCUN 
FERENC IAC  SPC  3  F I  JA " 

230  PR  I  NT  "  C  CRSRIJ  3  C  24CRSRR  3  ES  C  SPC  3  MUL 
T I PLO  C  SPC  3  DEL  C  SPC  3  DE  C  SPC  3  LA  C  SPC  3  C I RC 
UNFERENC IACSPC3 MOVIL" 

240  PR I  NT " ES  C  SPC  3  DEC I R  C  SPC  3  RF*N*RM / E 
N  C SPC  3  ESTE  í SPC  3  CASO  C  SPC  3  TENDRA  C  SPC  3  N 
C2SPC3RRCOS" 

250  PR I NT " S I C  SPC  3  SON  C  SPC  3  PR I M0S  t SPC  3 
NO  C  SPC  3  CERRARA , [ SPC  3  Y C  SPC  3  S I C  SPC  3  SON 
C  SPC  3 1 GUA-LES C  SPC  3  SERA  C  SPC  3  UNA  C SPC  3  C 
ARDI0IDE" 

260  I  NPUT  "  DAME  C  SPC  3  EL  C  SPC  3  RAD  1 0  C  SPC  3 
DE  C  SPC  3  LA  C  SPC  3  C I RCIJNFERENC I A  C  SPC  3  F I J 

270  1 NPUT " DAME  í SPC  3  EL  C SPC  3  RAD 1 0  C SPC  3 
DE  C  SPC  3  LA  C  SPC  3  MOV I L /<  MENOR  C  SPC  3  QUE  C  SPC  3 
EL ISPC 3 ANTERIOR)"/ L 
280  SYS49152 

290  FORT-0TO ( 2#ff ) STEP . 03 : X» 1 50+  <  <  K+L 
)#COS<T)>-<L*CGS<<<K+LVL>*T>> 

300  Y"100+<  (K+L)#SIN(T->)-(L¡*SIN<  (<K+ 
LVDÜiT)  ) 

310  CH"INT(X/8)  ■'  RO-INTCY/8)  :  LN=YAND7 
: BV-8192+RO*320+8*CH+LN : BI-7-(XAND7> 

320  POKEBV/ PEEK<BY) 0R< 2TB I ) :NEXTT 
330  FORT"0TO<2*tt)STEP. 03 : X»150+CK*CO 
S<T))  :V"100+<KüiSINíT))  :GOTO310 
340  SYS49152 

350  FORT"0TO  <  2*ir )  STEP.  03  :  X- 1 50+  <  50*C 
0S(T)  )  :  V"100+C50Ü(SIN<T)  ) 

360  CH= I NT ( XX8  > : R0=INT  < Y/8 ) : LN= YRND7 
:  BV=8 1 92+RO*320+8*CH+LN  :  B I  "7-  (  XAND7  ) 
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370  POKEB V , PEEK ( B V ) OR  <  2  tB I ) : NEXT 
380  F0RT=<ir/2)TCK3*iT/2>STEP.  03  :  X-150 
-<25#COS<T>)'V=100-<50#SIN<T>> 

390  CH=INT(XX8) : RO®INT (VX8) ' LN=VANB7 
: BV»8192+RO*320+8#CH+LN : BI»7-<XANB7) 

400  POKEBV i PEEK <  BV ) OR  <  2  tB I ) : NEXT 
410  F0RT=(3*trX2)T0(tT*2.5)STEP.  1  :X-15 
0-<25#COS<T>>:V»100-<50HiSIN<T)) 

420  CH= I  NT  (  XX8  > : RO* I NT  <  VXS ) : LN"VHND7 
■ BV*81 92+RO#320+8#CH+LN :BI»7-< XRND7 ) 

430  POKEBV,  PEEK<BV)0R(2TBI  )  ■'  NEXTT 
440  FORT-0TOirSTEP.  1  :  X=150-(50*CO8<T) 
) :Vol00-C2SiSIN<T>> 

450  CH=INT(X78) :R0»INTCVX8) :LN-VfiND7 
: BV-8192+RO#320+8#CH+LN : BI-7-(XflNB7> 

460  POKEBV , PEEK  <  BV ) OR  í 2  tB I ) : NEXT 
470  F0RT*irT0(2#tr)STEP.  03 :  X- 1 50- < 50*C 
OS<T) > ' V*100-Í25*SIN(T>) : GOTO450 
990  RESTORE : FORX-0TO77 ' REflBfl ■ P0KE491 
52+X, fl : NEXT 
995  RETURN 

1000  riflTR173, 24, 208, 9, 8, 141,24,208,  1 

73. 17.208 

1010  DATR9, 32, 141, 17,208, 169,32, 133, 
252,169,0 

1020  DflTfll33,251, 162,31, 160,0, 145,25 

1.136.208.251 

1 030  DRTR230 ,252,202,208,244,160,63, 

145.251. 136. 16.251 

1040  BRT8169, 0,  133,253, 169’,  4,  133,254 
,169,3,170 

1050  BATA 160, 0, 145,253, 136,208,251,2 

30.254.202.208 

1060  BATA244, 160,0, 145,253,200, 192,2 
32,208,249,96 


,  C02A  88 
,  C02B  10  FB 
,  C02D  A9  00 
,  C02F  85  FD 
,  C031  R9  04 
,  C033  85  FE 

,  C035  A9  03 
,  C037  AA 
,  C038  A0  00 
,  C03A  91  FB 
,  C03C  88 
,  C03B  B8  FB 
,  C03F  E6  FE 
,  C041  CA 
,  C042  B0  F4 
,  C044  A0  00 
,  C046  91  FB 

,  C048  08 

,  0849  00  E8 

,  C04B  B0  F9 
,  C04B  60 


DEV 

BPL  $0028 
LBA  #$00 
STA  $FD 
LBA  #$Ü4 
STA  ÍFE 
LBA  #$03 
TRX 

LDV  #$00 
STA  <$FB> , V 
DEV 

BNE  $C03A 
INC  $FE 
BEX 

BNE  $0038 
LBV  #$00 
STA  C$FB>,V 
INV  . 

CPV  #$E8 
BNE  $0046 
RTS 


Parece  ser  que  muchos  vic-ciosos  no  se  aclaran  con  el  super- 
expander,  otros  no  lo  conocen  y  no  saben  las  posibilidades  de 
este  con  ahorro  de  memoria  en  unos  comandos  fáciles  de 
aprender  en  vez  de  infinidad  de  pokes  los  cuales  hay  que  saber. 
Así  pues,  me  he  animado  a  escribir  este  programa  con  una 
detallada  explicación,  para  que  los  que  no  posean  el  super- 
expánder  o  los  que  lean  por  primera  vez  la  revista  puedan 
enterarse. 

10  fija  el  modelo  de  gráfica  (alta  resolución,  a  saber)  y  los 
colores  que  se  emplea  para  la  luna. 

20-50  crean  las  variables  a  saber: 

x. =coordenada  horizontal  del  centro  de  las  lunas 

y. =coordenada  vertical  del  centro 

A=longitud  del  radio  horizontal  (0.7  factor  de  corrección  para 

que  la  luna  sea  redonda) 

b=longitud  del  radio  vertical 

100  imprime  el  círculo  correspondiente 


110-140  modifican  las  variables  para  que  la  luna  suba  y  sea 
más  pequeña 

170-195  manera  no  muy  ortodoxa  de  fijar  las  variables  de  la 

última  luna 

200  borra  la  pantalla 

205-220  fija  color,  pinta  la  luna 

235-280  cambia  el  color  y  pinta  la  figura 

290-300  cambia  el  color  y  colorea  por  dentro  la  figura 

310  música,  a  saber  /ctrl/  / — /  =  modelo  música 

v9=volumen 

s3=voz 

o3=octava  de  la  voz 
t3,  t4,  t5=tiempo 

cdefgab=notas  musicales  (por  orden) 

320  borra  la  pantalla 
330  para  el  programa 


10  GRFIPHIC2 ;  CGLÜR0,  6,1,1 
20  X-512 
30  V-512 
60  fl=><5 00*0.7) 

70  B=500 

80  CIRCLE1  ,  X, V,  8,  B 
90  X-X+50 
100  V-V-50 
110  0*0. 7> 

120  B“B-50 

150  IFYO100THEN170 

160  GÜTG80 

170  X»X-50 

180  V-V+50 

190  fl=ft+<5 0*0.7) 

195  B»B+50 
200  SCNCLR 
205  COLORE, 0, 1,0 
210  CIRCLE1 , X, V, fíj B 
220  PftINTI ,  X, V 
240  COLOR0, 6,1,1 

250  BRftWl , 100, 870TO30, 640TO65,  430TO1 
00, 700TO380, 280TO430, 160TO400, 54T045 
0,  120 

260  BRRW1 , 450, 120TO512, 74TO540, 90TO6 

15, 30TO630, 64TO580,  128 

270  BRHW 1 , 580 , 1 28TO620 , 1 20TO530 , 240T 

0478, 364T0448, 480TO448, 832 

280  DRFfWl ,  448, 332TO490,  832TO490, 870T 

0410, 870TO410, 512TO280, 670TO330, 670 

290  DRRW1 , 330, 670TO330, 832TO380, 832T 

0380, 870TO100, 870 

300  C0L0R6, 0,0,1 

310  PfiINTI , 45, 640 

310  PRINT" [CTRL  «•]  V9S303T3GGGCT 4EGCT5E ' 
320  SCNCLR 
330  END 
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Directorio  del  cassette 

Para  ver  el  contenido  del  cassette: 
LOAD“MXYZTPLK”  (o  un  nombre  similar) 

Como  este  programa  no  lo  tendrás  en  la  cinta,  el  ordena¬ 
dor  irá  sacando  en  pantalla  todos  los  nombres  de  los  pro¬ 
gramas  que  encuentre. 


Es  éste  mi  primer  contacto  práctico  en  el  C.M.  Se  trata  de 
evitar  la  exasperante  espera  necesaria  cuando  pasamos  a  alta 
resolución  y  tenemos  que  inicializar  la  memoria  utilizada  para 
el  bitmapping  (8000bytes).  Con  esta  rutina  esta  labor  se  realiza 
en  un  parpadeo,  con  lo  cual  la  desesperación  se  reduce  a 
esperar  que  se  pinte  la  figura  a  representar  en  la  pantalla  de 
alta  resolución. 

La  rutina  (27  bytes)  la  he  localizado  en  un  espacio  libre  en  la 
página  2  (posiciones  680  a  706).  Los  registros  de  comunicación 


679 


valor  de  inicialización  (0,  en  caso  de  limpieza 


251,  252  . 

253,  254  . 

Veamos  su  aplicación 
famosa  “huevera”;  en 
como  el  del  Listado  1 . 


de  bit-map) 

.  cantidad  de  registros  a  inicializar 

.  dirección  de  comienzo 

con  un  ejemplo:  se  trata  de  pintar  la 
la  forma  habitual  el  programa  seria 


Incorporando  el  programa  C.M.  en  forma  de  subrutina  el 


programa  quedaría  como  en  el  Listado  2. 


Las  líneas  1  y  2  contienen  los  datos  del  programa  C.M.  y  la 
línea  10  lee  el  programa  C.M.  y  lo  introduce  en  27  bytes 
consecutivos  empezando  en  680. 


La  subrutina  Basic  que  comienza  en  1000  calcula  los  valoi 


“pokear”  en  las  posiciones  251  y  252  (cantidad  de  bytes  a 
inicializar)  y  253,  254  (dirección  de  comienzo).  Se  hacen  los 
pokes,  incluyendo  el  de  la  posición  679  con  el  valor  de 
inicialización  y  después  se  llama  a  la  subrutina  C.M.  (sentencia 
SYS680).  Los  registros  de  comunicación  pueden  cambiarse 
(modificando  el  programa  C.M.  convenientemente)  pero  es 
obligatorio  que  los  que  contienen  la  dirección  de  comienzo 


esten  en  la  página  cero. 


Las  variables  QC,  QQ,  QI  se  utilizan  para  pasar  los  valores  de 
dirección  de  comienzo  (QC),  cantidad  de  bytes  consecutivos  a 
inicializar  (QQ)  y  valor  de  Inicialización  (QI),  a  la  subrutina 
1000. 


La  nueva  línea  51  pasa  los  valores  8192,  8000,  0  (limpieza  de 
bit  map)  y  la  línea  71  pasa  los  valores  1024,  1000,  16 
(inicialización  de  colores  de  fondo  y  trazo  a  negro  y  blanco). 
Finalmente  el  listado  en  C.M.  “sui  generis”  (o  sea  según  mi 
entender)  del  programa. 

[  LDA  $(DQI)  En  donde: 

LDY  #0  QI=Valor  de  Inicialización 

|  LDX  #0  DQI=Dirección  donde  se  encuentra 


D.L.  RUN  EE.UU. 
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’STA  ($(LQC)),Y  el  valor  de  inicialización  (679  decimal) 
__  INY  QQ=Cantidad  de  bytes  consecutivos 

_u  BNE  Bucle  1  a  inicializar. 

a  INC  $(HQC)  LQQ=Dirección  donde  se  encuentra 

60  INX  el  byte  bajo  (low  byte)  de  la  cantidad 

CPX  S(HQQ)  a  inicializar  (251  decimal) 

.  BNE  Bucle  1  HQQ=Idem  del  byte  alto  (high  byte) 
(252  decimal) 

QC=Dirección  de  comienzo 

STA  ($(LQC)),Y  LQC=Dirección  donde  se  encuentra 
r'1  INY  el  byte  bajo  de  la  dirección  de  co- 

•g  CPY  $(LQQ)  mienzo  (253  decimal) 

¿  BNE  Bucle  2  HQC=Idem  del  byte  alto  (254  decimal) 

RTS  LQC  y  HQC  deben  ser  dos  bytes 

consecutivos  en  página  cero 

El  programa  está  diseñado  para  un  C-64  por  lo  que,  si  bien  la 
rutina  en  sí  es  válida  para  el  VIC-20  no  sé  si  el  lugar  donde  está 
localizada  y  los  registros  usados  para  comunicación  entre  BASIC 
y  C.M.,  están  asimismo  disponibles  para  el  usuario  en  el 
susodicho  VIC-20 

Nótese  que  al  estar  la  rutina  localizada  en  espacios  libres  de  la 
parte  más  baja  de  la  memoria,  antes  del  comienzo  del  BASIC, 
ésta  no  ocupa  un  sólo  byte  en  nuestra  zona  de  programas  por  lo 
que  no  es  necesario  reservar  (y  proteger)  espacio  alguno  en  dicha 


0  REM  'GRAF1H '  DIBU  JO  EN  ALTA  RESOLU 
CIÜN  (GRAFICO  «HUEVERA*)  JJV  09/34 
30  BA=2*4@96 : P0KE53272, PEEK(53272)0R 
8 : REM*SITUAR  BIT  MAP  EN  8192 
40  P0KE53265, PEEK( 53263 )0R32 : REM*ENT 
RAR  EN  MODO  BIT  MAP 
50  F0RI-BAT0BA+7999  :  POKEI ,  0  ■’  NEXT :  REM 
«BORRAR  BIT  MAP 

60  PGKE53280, 0 • REM*C0L0R  DE  BORDE  NE 
GRO 

70  FOR I  =  1 024TO2023  '■  POKE 1  i  16 ’■  NEXT :  REM 
«COLORES  NEGRO (FONDO)  V  BLANCO (TRAZO 

60  X0“ 1 60 • Z0=200 : REM*CENTRADO  DEL  GR 
AFICO 

90  R=10 : FORX1=-T00TQ100 ’ J=0 
1 00  V=R* I NT  <  SQR ( 1 0000-X 1 *X 1 ) /R ) 

110  F0RV=VT0-VSTEP-R 

120  Z 1 = I NT ( 80+30*S I N ( SQR ( X 1 *X 1 + V*V ) / 

12)-.7*V) 

130  IFZKJTHEN180 

135  T=Z1 :X=X1+X0:Z=Z0-Z1 

140  R0= I NT ( Z/8 ) : CH= I NT ( X/8 )  ¡  L I =ZAND7 

150  BI*7-(XAND7) 

160  BY-BA+RO*320+CH*8+LI 

170  POKEBV/ PEEK ( BV ) 0R2  tB I 

180  NEXTV • NEXTX1 

190  GETAí : IFRÍ=" "THEN190 

200  P0KE53265 , PEEK  <  53265 ) AND223 : REM* 

MODO  BIT  MAP  OFF 

210  P0KE53272,PEEK( 53272 )ANB247 

220  PRINT" CCLR] " : END 


0  REM  'GRAF2H'  DIBUJO  EN  ALTA  RESOLU 
CION  (GRAFICO  «HUEVERA*)  JJV  09/84 

1  DATA 1 73 j 167,2, 160,0, 162,0, 145,253, 
200 , 208 , 25 1 , 230 , 254 , 232 , 228 , 252 

2  DATA208, 244, 145,253,200, 196,251,20 
8,249,96 

10  FOR  I  =0TO26  :  READDD  :  POKE630+ 1 ,  DD  :  NE 
XT :  REM*  LECTURA  DE  PROGRAMA  C.M. 

30  BA=2*4096 : P0KE53272 , PEEK ( 53272 ) 0R 
8 : REM*SITUAR  BIT  MAP  EN  8192 


40  P0KE53265, PEEK(53265)0R32 : REM*ENT 
RAR  EN  MODO  BIT  MAP 
51  QC=BA : 00=8000  ^  01=0 : GOSUB1000 - REM* 
BORRAR  BIT  MAP 

60  POKE53280 , 0 : REM*C0L0R  DE  BORDE  NE 
GRO 

71  QC= 1 024 : 00= 1 000 : Q I » 1 6 ¡ GOSUB 1000 : R 
EM*  INICIALIZAR  COLORES  DE  FONDO-TRA 
ZO 

80  X0"160 • Z0=200 : REM*CENTRADO  DEL  GR 
AFICO 

90  R=10 : FORX1=~100TO100 : J=0 
100  V=R* I NT  <  SQR ( 1 0000-X 1 *X 1 ) /R ) 

110  F0RY*VT0-VSTEP-R 

120  Z 1  =  I NT ( 80+30*S I N ( SQR  <  X 1 *X 1 + V*V ) / 

12)-.7*V) 

130  IFZKJTHEN180 

135  J=Z1  X»X1+X0:Z=Z0-Z1 

140  R0=INT(Z/8) : CH= I NT ( X/8 ) : L I =ZAND7 

150  BI=7-(XAND7) 

160  BV=BA+RO*320+CH*8+L I 
170  POKEBV, PEEK (BV)0R2TBI 
180  NEXTV : NEXTX1 
190  GETAÍI F Aí= " " THEN 1 90 
200  P0KE53265 ,  PEEK.  (  53265  )  AND223  :  REM* 
MODO  BIT  MAP  OFF 
2 1 0  P0KE53272 , PEEK ( 53272 ) AND247 
220  PRINT" CCLR D " 1 END 
1000  REM*  SUBRUTINA  DE  INICIALIZACIO 
N  DE  UNA  ZONA  DE  MEMORIA 
1010  P0KE25 1 , 00- 1 NT  < 00/256 ) *256 • POKE 
252, 1 NT (00/256 ): REM*  NUM.  DE  BVTES  A 
INIC. 

1 020  P0KE253 , QC- 1 NT  C QC/256 ) *256 ■ POKE 
254, INT(QC/256) : REM*  DIRECCION  DE  CO 
MIENZO 

1030  PQKE679, OI : REM*  VALOR  DE  INICIA 
LIZACION 

1040  SVS680 : RETURN 


f  Magia 

Generador  de  sonidos 

He  aquí  un  pequeño  programa  en  lenguaje  máquina  que 
hace  sonar  las  teclas  cada  vez  que  se  pulsan: 

60000  fora=828to86 1  :readb:  pokea,b;next 
60010  data  169,15,141,14,144,120,169,78,141,20 
60020  data  3,169,3,141,21,3,88,96,165,197 
60030  data  201,128,240,7,101,197,105,128,141,12 
60040  data  144,76,191,234 

Para  hacerlo  funcionar  hay  que  hacer  SYS  828,  y  para 
pararlo,  pulsar  STOP. 

T.J.C.  RUN  EE.UU. 

Caracteres  indocumentados 

Además  de  los  caracteres  que  aparecen  en  el  teclado,  hay 
otros  cuatro  que  no  se  ven.  Son  los  siguientes:  ASCIIs 
126,127,169,186  (en  pokes  94,95,105,122). 

Corresponden  a  pulsar  SHIFT  P,  COMM  *,  SHIFT  £, 
SHIFT  @,  estando  en  modo  minúsculas. 


En  una  linea 

1  n=(rnd(l)*16)+l:b$=mid$(“ — texto — ”,n,l):print  spc(n)b$ 
“[CRSR  U]”:gotol 


Commodore  World 


ESPECIAL  PROGRAMAS 


Se  trata  de  una  respuesta  a  Peré  Esquerra,  que  en  la  sección  de 
Carta  Blanca  del  número  5  (junio)  preguntaba  si  se  podía  usar 
la  función  AUTO  sin  tener  el  cartucho  de  “Ayuda  al 
programador”. 

Pues  este  programa-rutina  equivale  a  la  función  AUTO.  Al 
teclearlo  hay  que  respetar  la  numeración  de  las  líneas.  Una  vez 
escrito  hay  que  grabarlo,  porque  al  final  tiene  una  rutina  de 
autodestrucción. 

Al  hacer  RUN  pregunta  el  número  de  la  primera  línea  del 
programa.  A  continuación  el  incremento  o  diferencia  entre  las 
siguientes  líneas.  La  entrada  de  datos  se  hace  mediante  un 
GET  (línea  63992),  el  cursor  parpadea  gracias  al  POKE  204,0 
de  la  línea  anterior.  El  parpadeo  es  a  veces  bastante  irregular, 
debido  al  POKE.  Para  salir  de  la  rutina  entrar  —  y  RETURN. 
Las  líneas  63990  a  63997  desaparecerán  quedando  solamente  el 
programa  creado. 

Espero  que  el  programa  os  parezca  interesante  y  que  podáis 
publicarlo. 

Saludos  de  un  vic-cioso 


0  REM  i****************************** 
*** 

1  REM  #*  FUNCION  FlUTO  PARA  EL  VIC-20 

2  REM  **  TOMAS  TORIBIO.  2ARAG02A 

m 

*«* 

63990  INPUTMCCLR3LINER[SPC] INICIAL"; 
A ¡ INPUT" INCREMENTO" ; B : PÜKE2, B : PRINT" 
CCLR] "; 

63991  B*A/256 : POKE0, (B-INTCB) J#256 :p 
0KE1jB;PRINTMIDÍ<STR$CA>/2); : POKE204 
,  0 

63992  GETAí  :  IFA*=  "  TFIENPR I NT "  C CLR ]  " 
;  : FClRI«0TCl7 : PRINT63990+I ¡ P0KE632+I , 1 
3 : NEXT : 00T063997 

63993  PRINTAí ;  :  IFA*OCHR*<13)THEN639 
92 

63994  PRINT"GCSHIFT0363995" : F0RA=>631 
TÜ634 : POKER, 145 : NEXT : POKE A, 13 ¡ P0KEA+ 
1,13:P0KE198,6:END 


63995  PRINT" I 2CRSRU ] " ¡ FÜRA» 1T03'PRIN 
T "  C 7SPC 1  "  :  NEXT  ■'  PRINT"  C 3CRSRU I "  J 

63996  A*PEEK<0)+2564iPEEK(  1  5+PEEKÍ2)  ¡ 
00T063991 

63997  P0KE63 1,19: POKE640 , 1 3 : POKE 1 98 , 
10 :  PRINT"LCSFIIFTI  ]  "  :  ENE 


Cifrador  1084 

Sirve  para  cifrar  o  descifrar  el  mensaje  contenido  en  las  seis 
primeras  líneas  de  pantalla.  Las  líneas  inferiores  de  la  pantalla 
se  emplean  para  dar  al  usuario  las  instrucciones  oportunas 
sobre  el  manejo  del  programa. 


Morse  1084 

Emite  el  sonido  equivalente  al  mensaje  situado  en  las  primeras 
seis  líneas  de  pantalla,  codificado  en  MORSE.  El  resto  de  las 
líneas  de  pantalla  tienen  la  misma  función  que  en  el  programa 
anterior.  Es  posible  cambiar  el  valor  de  determinadas 
posiciones  (como  ya  se  explicará  más  adelante),  logrando 
distinto  tono  y  timbre  y  fijar  los  tiempos  de  duración  del  punto 
y  raya  y  separación  entre  caracteres.  Jugando  con  estos 
tiempos  pueden  lograrse  dispositivos  que  activen  de  forma 
automática  y  a  gran  distancia  sistemas  de  alarmas  (como 
ocurre  con  los  radiofaros). 

Morse-C  1084 

Realiza  las  funciones  de  los  dos  anteriores,  con  lo  que  resulta 
posible  emitir  en  morse  un  mensaje  cifrado.  El  cifrador 
utilizado  en  este  programa  es  distinto  a  la  primera  rutina  ya 
que  debe  restringir  el  juego  de  caracteres  válidos  únicamente  a 
los  alfabéticos.  Por  otra  parte  se  simplifica  al  limitarse  sin 
deslizar  el  alfabeto  en  uno  u  otro  sentido  tantas  veces  como  se 
pulse  la  tecla  de  función  adecuada. 

Descripción  de  las  rutinas  escritas  en  ensamblador  utilizadas  por 
los  programas. 

Cifrador  1084.  Consta  de  16  bytes  y  siete  instrucciones.  La 
dirección  de  inicio  de  pantalla  es  la  $0400,  por  lo  que  podemos 


direccionar  a  ella  como  si  se  tratara  de  una  tabla,  utilizando 
cualquiera  de  los  registros  índice  del  procesador.  La  posición 
$8000,  la  inmediata  anterior  al  comienzo  de  la  rutina 
contendrá  el  único  valor  utilizado  como  variable  por  la  rutina 
cifradora,  por  el  motivo  que  descubrirá  el  propio  lector  al 
hablar  del  descifrado. 

La  primera  instrucción  carga  en  el  registro  índice  X,  el  valor 
contenido  en  la  posición  $8000  y  que  deberá  ser  dieciséis  para 
direccionar  al  inicio  de  la  pantalla.  Este  valor  inicial  se  debe  al 
hecho  de  que  6  líneas  de  pantalla  de  40  caracteres  suponen  240 
posiciones,  y,  como  quiera  que  una  página  tiene  256 
posiciones,  nos  sobran  16,  que  pueden  ser,  caso  de  emplear 
direccionamiento  indexado,  tanto  las  16  primeras  o  las  16 
últimas.  He  elegido  las  primeras  por  comodidad  para 
establecer  los  lazos  del  programita.  Si  X=16,  está  claro  que  la 
base  no  puede  ser  la  posición  $0400,  ya  que  esto  nos  llevaría  a 
ignorar  y  no  cifrar  a  los  primeros  caracteres.  Por  ello  la  base 
utilizada  es  $03F0  que  sumada  al  desplazamiento  $10  (=16  en 
base  decimal),  no  da  la  dirección  de  inicio  de  la  memoria  RAM 
reservada  para  la  pantalla. 

La  segunda  instrucción  incrementa  en  una  unidad  el  contenido 
de  la  posición  de  pantalla  direccionada  (cifrado  deslizando  el 
código  de  pokes  hacia  la  derecha). 

La  siguiente  instrucción  incrementa  en  una  unidad  el  registro 
índice  X,  permitiendo  direccionar  con  la  misma  base  la 
siguiente  posición  de  pantalla. 

La  cuarta  instrucción  bifurca  hacia  el  retorno  a  basic  en  el 
caso  de  que  el  registro  índice  sea  cero,  en  cuyo  caso  hemos 
terminado  con  las  seis  líneas  de  pantalla. 

La  quinta  instrucción  decrementa  en  una  unidad  la  posición  de 
la  pantalla  que  en  ese  momento  se  direcciona  (realiza  cifrado 
deslizando  el  código  hacia  la  izquierda). 

La  siguiente  instrucción  incrementa  el  registro  índice, 
direccionando  la  siguiente  posición  de  pantalla. 

La  séptima  instrucción  bifurca  caso  de  no  haber  finalizado  el 
proceso  (si  no  ha  cifrado  las  seis  primeras  líneas  de  pantalla)  a 
la  segunda  con  lo  que  se  crea  un  lazo  con  dos  salidas 
(instrucciones  4  y  7). 

Finalmente  se  retorna  la  basic  o  a  la  rutina  cm  que  llame  a 
esta  otra. 

Como  conclusión,  ante  el  examen  sobre  la  operación  de 
cifrado,  podemos  afirmar  que  cualquier  carácter  situado  en 
una  posición  impar  de  la  pantalla  (dirección  de  memoria  RAM 
par)  sufre  un  cifrado  pasando  a  ser  el  siguiente  carácter  de  la 
lista  poke  que  figura  en  el  manual  del  usuario;  y  el  que  ocupe 
una  posición  par  de  pantalla  e  impar  de  memoria  pasa  a  ser  el 
carácter  anterior  de  la  lista  de  códigos  poke  mencionada.  En 
otras  palabras  una  C  sufre  una  transición  hacia  D  o  B 
dependiendo  de  su  posición  impar  o  par  de  pantalla.  Para  el 
cifrado,  la  salida  de  la  cuarta  instrucción  es  inútil,  ya  que  al 
incrementar  en  uno  una  dirección  par,  jamás  puede  conseguirse 
un  par,  y  cero  es  par.  Sin  embargo  es  útil  si  se  emplea  la 
misma  rutina  para  descifrar.  ¿Cómo?  Si  el  desplazamiento 
inicial  no  es  $10  (16)  sino  $0F  (15)  el  inicio  de  la  exploración 
no  será  la  primera  posición  de  pantalla,  sino  la  anterior  (sin 
uso  según  el  manual  del  usuario)  la  cual  incrementara,  la  2a,  si 
que  coincide  con  la  primera  de  pantalla,  pero  en  esta  ocasión 
la  decrementará  realizando,  por  tanto,  el  proceso  contrario  al 
anterior,  es  decir,  el  descifrado. 


Morse  1084.  Una  descripción  tan  detallada  como  la  efectuada 
para  el  programa  anterior  superaría  los  límites  de  espacio  que, 
me  imagino,  puede  conceder  la  revista.  Por  ello  será  bastante 
más  superficial,  entrando  más  a  fondo  en  aquellos  detalles  que 
merezcan  la  pena. 

Las  distintas  rutinas  en  código  máquina  utilizadas  y  el 
conjunto  de  variables  y  constantes  por  ellas  empleadas  ocupan 
205  bytes,  distribuidos  de  la  siguiente  forma: 


32768  $8000 

32769  $8001 

32829  $803D 

32830  $803E 
32890  $807 A 


Duración  H1  del  punto.  (U) 

Duración  LO  del  punto.  (U) 

Duración  HI  de  la  raya.  (U) 

Duración  LO  de  la  raya.  (U) 

Retardo  HI  para  caracteres  no  alfabéticos, 
incluido  el  espacio.  (U) 


32891  $807B 
32780  $800C 


32827  $803B 

32828  $803C 
32889  $8079 


Retardo  LO  semejante  al  anterior.  (U) 
Tono  y  timbre  del  sonido  emitido  (valores 
aconsejados  33  y  17)  (U:  variable  utilizable 
por  el  usuario). 

Contador  para  temporalización.  (S) 

Idem.  (S) 

Desplazamiento  X.  (S) 


Las  tres  últimas  variables  no  debe  utilizarlas  el  usuario,  el  resto 
de  ellas,  señaladas  con  una  U  entre  paréntesis  puede  emplearlas 
para  adaptar  el  programa  a  sus  necesidades. 

Cada  400  unidades  elementales  del  tiempo  empleado  por  las 
rutinas  en  código  máquina,  equivalen  a  1  segundo  sexagesimal 
(1.00099184  aproximadamente). 

La  señalización  HI  y  LO  no  se  utiliza  de  la  forma  habitual  ya 
que  sus  valores  tienen  la  propiedad  conmutativa,  es  decir, 
cambiando  entre  si  LO  y  HI  se  obtiene  el  mismo  tiempo  que  es 
equivalente  al  producto  entre  ambos  valores. 

Por  ejemplo,  si  Vd.  desea  una  codificación  morse  con  rayas  de 
2  segundos  de  duración  aproximada,  puede  introducir 
cualquiera  de  estas  dos  sentencias  BASIC. 

25  T=INT(SQR(400*2)+.5):POKE  32829 ,T:POKE  32830, T 
O  bien, 

25  T=INT(SQR(400*2)):POKE  32829,T:POKE 
32830, INT(400*2/T-f.5) 

Existen  otras  muchas  formas  de  encontrar  los  valores 
adecuados  de  forma  más  exacta  (cuando  puede  descomponerse 
en  factores  enteros  comprendidos  entre  1  y  255,  en  nuestro 
caso  400*2=800=100*8,  con  lo  que  puede  escribirse: 

25  Poke  32829, 100:poke  32830,8) 


CONSTANTES 

32863  $805F  Inicio  tabla  código  morse  (corresponde  a  la 
letra  A) 

32888  $8078  Fin  tabla  código  morse  (corresponde  a  la 
letra  Z) 


RUTINAS  terminadas  con  la  instrucción  RTS 

32770  $8002  Prepara  SID  con  el  sonido  elegido  ($800C), 
volumen  0 

32795  $801B  Emite  sonido  de  duración  ($8000)*($8001), 

correspondiente  al  punto  morse  (volumen  15) 

32802  $8022  Realiza  pausa  (silencio)  equivalente  a  la 
duración  del  punto. 

32831  $803F  Emite  sonido  de  duración  ($803D)*($803E) 
correspondiente  al  signo  raya  del  alfabeto 
Morse. 

32838  $8046  Realiza  pausa  (silencio)  equivalente  a  la 
duración  de  una  raya. 

32892  $807C  Efectúa  codificación  Morse,  emitiendo  los 
sonidos  equivalentes  al  mensaje  situado  en 
las  6  primeras  lineas  de  pantalla. 


Esta  última  rutina  emplea  a  todas  las  demás,  excepto  la  rutina 
de  preparación  del  SID,  que  se  utiliza  directamente  desde  el 
programa  codificado  en  BASIC.  Su  funcionamiento  en  grandes 
líneas  es  el  siguiente:  Explora  el  área  de  memoria  RAM 
correspondiente  a  las  6  primeras  líneas,  si  el  carácter  'encontrado 
no  es  válido  (no  es  alfabético)  realiza  una  pausa  de  silencio 
equivalente  a  ($807A)*($807B),  caso  contrario  (el  carácter  es 
alfabético)  toma  de  la  tabla  de  códigos  Morse  el  que  le 
corresponda  llamando  a  las  rutinas  de  emisión  de  punto  o  raya 
según  código  y  dejando  entre  signo  y  signo  morse  (pe.  entre  un 
punto  y  una  raya)  un  silencio  equivalente  al  punto.  Cuando  se 
detectan  dos  caracteres  válidos  consecutivos  (que  forman  parte 
de  la  misma  palabra)  se  realiza  un  silencio  equivalente  a  la 
duración  de  una  raya. 

La  tabla  de  códigos  morse  contenida  a  partir  de  las  posiciones 
$805F  es  la  siguiente: 


o  - 


z - .. 


Representación  binaria 


10  01  01  00 


01  10  01  01 
10  10  00  00 
10  01  00  00 
10  10  10  00 


01  01  01  00 
10  00  00  00 
01  01  10  00 


01  10  10  00 
10  01  01  10 
- 10  01  10  10 


Valor  decimal 


10 


10  01 


01 


154 

165 


Como  el  lector  habrá  observado  para  cada  letra  se  emplea  un 
byte  y  para  cada  signo  del  alfabeto  morse  dos  bit,  con  lo  que 
en  cada  byte  pueden  existir  hasta  4  signos  Morse  que  es  la 
longitud  máxima  de  una  letra  codificada  en  Morse. 

Los  pares  de  bit,  tienen  el  siguiente  significado: 

10  Raya 
01  Punto 

00  Fin  carácter  Morse. 

Cuando  la  rutina  codificadora  toma  un  código  Morse  binario 
de  la  tabla  correspondiente  examina  su  contenido  rotándolo 
hacia  la  izquierda  y  llama  a  las  rutinas  de  emisión  de  sonido 
que  correspondan. 

Puede  adaptarse  un  conjunto  de  relés  (son  suficientes  dos 
salidas)  para  conectar  directamente  el  ordenador  a  una  emisora 
decamétrica  para  emisión  en  código  Morse. 

“MORSE-C  1084”.  Es  el  programa  más  complejo. 

Todo  lo  que  se  ha  dicho  respecto  a  “MORSE  1084”  es 
aplicable  a  esta  versión.  Las  rutinas  máquinas  son  idénticas, 
pero  se  han  añadido  dos  más  que  suponen  unos  61  bytes 
adicionales.  Estas  rutinas  son: 

32973  S80CD  Rota  abecedario  1  posición  hacia  la 
izquierda 

B  efectuará  transición  hacia  A  y  esta 
hacia  Z. 

33002  S80EA  Rota  abecedario  1  posición  hacia  la 
izquierda. 

La  rutina  es  algo  más  complicada  a  la  del  primer  programa 
debido  a  que  sólo  se  cifran  los  caracteres  alfabéticos  y  a  que  es 
preciso  establecer  una  continuidad  entre  la  z  y  la  a,  y  viceversa, 
esto  es  detrás  de  la  z  se  inicia  de  nuevo  el  abecedario. 

Se  adjuntan  los  listados  en  ensamblador  a  fin  de  que  sea 
posible  estudiar  las  rutinas  descritas. 


50  PR I NT " E RVSON 3 PR I MERAS ESPC3LINEA8E SPC ] 

DE E SPC 3 PANTALLA.  C SPC] COMANDOS :  EGRN3E5CRSRD3 

60  PR I NT " H0ME/CLR C SPC 3 ¡ E2SPC3POSICIO 
N ARSE  ESPC3 INICI O/BORRAR " 

70  PR I NT " I NST/DEL  E  SPC  3 ¡ E2SPC3 INSERTA 
R  E  SPC  VC  SPC  3  DELETEAR  E  SPC  3  C AR ACTER " i 
00  PRINT "CURSORES! SPC 3 ¡ E2SPC3MOVIMIE 
NT0ESPC3CURS0R" 

90  PRINT"F1 C7SPC3 i E28PC3CIFRARESPC3 " 

100  PRINT"F3[?SPC3 i C 2SPC 3 DESC I FRAR C SPC 3 
110  PRINT"F5E7SPC3 i C2SPC3 IMPRIMIRCSPC3 

120  PRINT"F7E7SPC3 i E2SPC3FINE2SPC3 " 

130  PR I NT" TECLADO E2SPC 3 : E2SPC3USÜESPC3 
COMUN E SPC 3" 

140  PRINT" EH0M3 " i 

150  00SUB  240 

160  CETA* ¡ IFAf»" "THEN150 

170  IF  ASC ( Ai 3 ■ 1 33THEN  P0KE  32768.16 

¡SYS  D i  GOTO  160 

180  IF  ASCCfif )*134THEN  P0KE  32768.15 

¡SYS  D ¡ 00T0  160 

190  IF  ASC ( Aí ) ■ 1 35THEN  270 

200  IF  ASC(AÍ)«136THEN  END 

210  IF  ASC(AÍ)»147  THEN  30 

220  PRINTAf .'  ¡GOTO  160 

230  STOP 

240  T-80 ¡ PR INT" E RVSON 3  E BLK  3  E  SPC 3  E CRSRL 3 

"J  ¡FOR  >1  T0  T  ¡  NEXT 

250  PR I NT " E  RVSOFF 3  E  COMM73 E  SPC  3  E  CRSRL  3 

"I ¡FOR  1-1  T0  T i NEXT 

260  RETURN 

270  L$» . FOR  C-1024  T01264 ¡ PpPEEKCC 

) 

280  IFP>190THEN  Bi«" ESPC3 " ¡ DOTO  310 
290  Bt-CHRi( < (P+64)AND(P<32) )+( CP+32 
)AND(P>63> )+(P  AND  <P>323  AND  CPC64) 

)) 

300  IF  ASCCBÍ3-0THEN  BÍ»"ESPC3" 

310  L$“L4+BÍ ¡ NEXT  C 
320  0PEN4.  4  ¡  PRINT44.  Lí  '•  CL0SE4  !  00T0  1 
60 

330  STOP 

10000  DATA  174.  0.  128.  254.  240.  3. 

232.  240 

10010  DATA  6.  222.  240.  3.  232.  208. 

244.  96 


RUTINA  ENSAMBLADOR  CIFRADOR  1084 


8O01  AE  tío  80  LDX  $8000 
8004  FE  F0  03  INC  Í03F0.5 


800A  DE  FO 
80OD  E8 
8Ú0E  DO  F4 


BEQ  $8010 
3  DEC  $03F0. > 

INX 

ENE  $8004 


Cifrador  1084 

10  D-32769¡F0RI-D  TO  D+15 ¡ READ  J¡P0K 
E  I . J ¡ NEXT 

30  PR I NT " E  CLR  3  E 7CRSRD 3  E  BLK  3  E  RVSON  3  ES 
TE  E  SPC  3  PROGRAMA  f  SPC  3S I RVF  C  SPC  3  PARA  E  SPC  3 
CIFRARESPC30ESPC3DESCI-"  1 
40  PR I NT " E  RVSON  3  FRAR  E  SPC  3L0SE  SPC  3 CAR 
ACTERES  E  SPC  3  ESCR I  TOS  E  SPC  3  EN  E  SPC  3  LAS  E  SPC  3 
SEIS" ¡ 


Morse  1084 

10  S"3276S ¡ FOR  I=S  TOS+204¡READ  A¡P0 
KEI . A ¡ SU“SU+A ¡ NEXT 

20  IF  SUO  25071  THEN  PRINT" ECLR3 E3CRSRD3 
ERROR  E  SPC  3  SENTENC I AS  E  SPC  3  DATA " 

30  SYS  32770 ¡ T»80 

40  PR I NT " E  CLR  3  E  6CRSRD  3  E  CYN  3  E  40COMMU  3 

50  PR I NT " E  BLK  3  ESTE  E  SPC  3  PROGRAMA  E  SPC  3 
OENERA  E  SPC  3  SON I DO  E  SPC  3  CORRESPON " ¡ 


60  PR I NT " D I ENTE  C  SPC  3  AL  C  SPC  3  COD 1 00  C  SPC  3 
MORSE  £ SPC  3 DE  C  SPC  3  UN  C SPC  3  MENSA JE  £  SPC  3 
DECSPC] " J 

70  PR I  NT " 240 [ SPC  3  CARACTERES  C SPC  3  COMO 
£ SPC 3 MAX IMOC SPC 3 DEC SPC 3 LONGITUD! SPC] 

/"i 

80  PR  I  NT  "  S I  TU  ADO  £  SPC  ]  EN  £  SPC  3  LAS  £  SPC  3 
SE 1 8  C  SPC  3  PR I MERAS  C  SPC  3  L I NEAS  C  SPC  3  DE  C  SPC  3 

90  PR I NT" PANTALLA. " 

100  PR  I  NT  "  SOLO  C  SPC  3  SON  C  SPC  3  VAL  I  DOS  C  SPC  3 
LOS  C  SPC  3  CARACTERES  C  SPC  3  ALFABE— "  i 
110  PRINT"TIC0SCSPG3 1 ONORANDOSE C SPC 3 
ELCSPC3REST0. " 

120  PR I NT " C  CRSRD  3  C  RVSON  3  C  6SPC  3  PULSE  C  SPC  3 
F 1 C  SPC  3  P ARA  C  SPC  3  COD I F I CAR  C  SPC  3  MORSE  C  5SPC 3 

130  PRINT" CRVS0N3 C6SPC3PULSECSPC3FXCSPC3 
, C  SPC  3X0 1 C SPC  3  PARA  C  SPC  3 TERM I NAR  C  5SPC 3 
CRVS0FF3 " i 

140  PR I NT " C CRSRD  3 ESTUD I  ANDO C SPC 3 LAS C SPC  3 
I NSTRUCC I ONES  C  SPC  3  DEL  C  SPC  3 PROGRA- " i 
150  PR  I  NT  "  MA  C  SPC  3  PODRA  C  SPC  3  REGULAR  C  SPC  3 
L A  C  SPC  3  DURAC I ONC  SPC  3  DEL  C  SPC  3PUNT0 , C8PC3 

160  PRINT"COMACSPC3VCSPC3PAUSACSPC3P 
0RCSPC3BLANC0CSPC30CSPC3CARACTERCSPC3 
DES—"; 

170  PRINT"C0N0CID0. " 

180  PR I NT " C  C VN  3  C  CRSRD  3  C  40CDMMO 3 " ¡ 

190  PRINT  " CH0M3 " J 

200  PRI NT " C  BLK  3  C RVSON  3  C  SPC  3  C  CRSRL 3 " 1 
:  FOR I  - 1 TOT  ■'  NEXT  :  PR  I  NT  "  C  C0MM7  3  C  RVSOFF  3 
CSPC3CCRSRL3"; :FQR  I-1T0  T ' NEXT 
210  GET  Ai  '■  IF  Ai»" "THEN  200 
220  IF  ASCCAÍ3-133  THEN  SVS  32892^00 
TO  200 

230  IF  ASC<A#»133  AND  ASC<A$X141TH 
EN  PRINT : PRINT"FINCSPC3PR0GRAMA" ¡ END 

240  IF  ASCCAÍ3-19  THEN  190 

250  IF  ASC<AÍ)-147  THEN  40 

260  PRINT  A$; ; GOTO  200 

270  DATA  2,  20.  169.  255.  162.  6.  15 

7.  0 

280  DATA  212.  202.  202.  169.  33.  157 
.  0.  212 

290  DATA  202.  202.  202.  157.  0.  212. 

202.  157 

300  DATA  0.  212.  96.  162.  24.  169.  1 
5.  157 

310  DATA  0.  212.  172.  0.  128.  174.  1 
.  128 

320  DATA  206.  59.  128.  208.  251.  202 
.  208.  248 

330  DATA  136.  208.  242.  162.  24,  169 
,  0.  157 

340  DATA  0,  212,  96,  0,  0,  10,  20,  1 
62 

350  DATA  24,  169,  15,  157,  0,  212,  1 
72,  61 

360  DATA  128,  174,  62,  128,  206,  60, 

128,  208 

370  DATA  251,  202,  208,  248,  136,  20 

8,  242,  162 

380  DATA  24,  169,  0,  157,  0,  212,  96 
,  96 

390  DATA  149,  153,  148,  64,  89,  164, 

85,  80 

400  DATA  106,  152,  101,  160,  144,  16 
8,  105,  166 

410  DATA  100,  84,  128,  88,  86,  104, 

150,  154 

420  DATA  165,  0,  169,  16,  169,  16,  1 
41,  121 

430  DATA  128,  174,  121,  128,  189,  24 
0,  3,  168 

440  DATA  136,  24,  105,  0,  48,  45,  24 
,  233 


450  DATA 

26,  16 

,  40,  185,  95,  128,  7 

2,  41 

460  DATA 

192,  240,  28, 

104,  72,  41, 

128,  208 

470  DATA 

16,  32 

,  27,  128,  32,  34,  12 

8,  104 

480  DATA 

24,  42,  42. 

1,  252,  72,  IB 

4,  80 

490  DATA 

230,  32,  63, 

128,  184,  80, 

237,  32 

500  DATA 

70,  128,  104, 

172,  122,  128 

,  174,  123 

510  DATA 

128,  202,  206 

,  253,  136,  20 

8,  247,  238 

1  520  DATA 

121,  128,  206 

,  181,  96 

l  1 

. ,  8002 

H9  FF 

LDA 

#ÍFF 

, ,  8604 

H2  06 

LDX 

#$06 

• t  0006 

9D  00 

D4  STA 

$D400, X 

. ,  8009 

CA 

DEX 

. ,  800A 

CA 

DEX 

. ,  800B 

A  9  21 

LDA 

#$21 

. ,  800D 

9D  0ü 

D4  STA 

$D400, X 

. ,  8010 

CA 

DEX 

.,  8011 

CA 

DEX 

.,  8012 

CA 

DEX 

8013 

9D  00 

D4  STA 

ÍD400.X  | 

.,  8016 

CA 

DEX 

.,  8017 

9D  00 

D4  STA 

ÍD400.X 

. ,  801 A 

60 

RTS 

.,  88 1 B 

A2  18 

LDX 

#$18 

.,  80 ID 

A9  0F 

LDA 

#$0F 

. ,  88 IF 

9D  0Ü 

D4  STA 

$0400, X 

. ,  8022 

AC  O0 

80  LDV 

$8000 

.  ,  8025 

AE  01 

80  LDX 

$8001 

. ,  8028 

CE  3B 

80  DEC 

$803B 

. ,  802B 

D0  FB 

BNE 

$8023 

. ,  802D 

CA 

DEX 

. ,  802E 

D0  F8 

BNE 

$8028 

.  ,  8030 

88 

BEV 

. ,  8031 

D@  F2 

BNE 

$8025  i 

. ,  8033 

A2  18 

LDX 

#$18 

Ay  00 

LDA 

#$00 

. ,  8037 

9D  00 

D4  STA 

$0400, X 

. ,  803A 

60 

RTS 

. ,  803B 

00 

BRK 

. ,  803C 

00 

BRK 

. ,  803B 

02 

??? 

. ,  803E 

14 

??? 

. ,  803F 

A2  18 

LDX 

#$18 

. ,  3041 

A9  @F 

LDA 

#$0F  i 

. ,  8043 

9D  00 

D4  STA 

$0400, X 

. ,  8046 

AC  3D 

80  LDV 

$8030 

. ,  8049 

AE  3E 

80  LDX 

$803E 

. ,  804C 

CE  3C 

80  DEC 

$803C 

. ,  804F 

D0  FB 

ENE 

$804C 

. ,  8051 

CA 

DEX 

. ,  8052 

D0  F8 

BNE 

$8@4C 

. ,  8054 

88 

DEV 

. ,  8055 

D0  F2 

BNE 

$8049 

. ,  8057 

A2  18 

LDX 

#$18 

. ,  8059 

A9  00 

LDA 

#$00 

, ,  805B 

9D  00 

D4  STA 

$D400 , X 

. ,  805E 

60 

RTS 

1_  1 

Morse-C 

1084 

10  S-32768F0R 

I-S  TOS+267 ! REHD  A : PO 

KEI.A’SU» 

SU+A : NEXT 

20  IF  SUO  32871  THEN  1 

'R I NT " C  CLR  3C3CRSRD3 

ERROR  C  SPC  3  SENTENC I AS  C SPC  3  DATA " 

30  SVS  32770 ¡T- 

=10 

40  PRINT" 

CLR  3  C 6CRSRD ] C  CVN  3  C 40CÜMMU 3 
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50  PR I NT " E  BLK ] ESTE  E  SPC ] PROGRAMA E SPC 3 
GENERA  [  SPC ] SON I DO  C  SPC  3  CORRESPON " ; 

60  PR  I  NT  "  D I  ENTE  [  SPC  I  AL  E  SPC  ]  COD I GO  E  SPC  1 
MORSE  E  SPC  3  DE  C  SPC  3  UN  t  SPC  3  MENSAJE  C  SPC  3 
DE [SPC 3 " j 

70  PR I NT " 240 [ SPC  3  CARACTERES [ SPC  3  COMO 
[ SPC  3  MAX I MO  C  SPC  3  DE [ SPC  3  LONG I TUD [ SPC  3 

80  PR I  NT " S I TUADO [ SPC  3  EN  C  SPC  3L AS [ SPC  3 
SE I S  C  SPC  3  PR I MERAS [ SPC  3  L I NE AS [ SPC  3  DE  E  SPC  3 

90  PRINT"PANTALLA. " 

100  PR I NT " SOLO  C  SPC  3  SON [ SPC  3  VAL I DOS  E  SPC  3 
LOS  E  SPC  3  CARACTERES  E  SPC  3  ALFABE-- " ¡ 

110  PR I NT " T I COS  E  SPC  3 I GNORANDOSE  E  SPC  3 
ELE SPC 3 RESTO. " 

120  PR I NT " E  CRSRD  3  EL  E  SPC  3  C I FRADO , ESPC3 
DESC I FRADO  E  SPC  3  SE  E  SPC  3  PRODUCE  E  SPC  3  DE 
SL I  — 11 3 

130  PR I NT " ZANDO  E  SPC  3  EL  E  SPC  3  ALFABETO  E  SPC  3 
A  E  SPC  ] I ZQU I ERDA  E  SPC  3  O  E  SPC  3  DERECHA . " J 

140  PR I NT " E  COMM 1 3  E  CRSRD  3 [ R VSON  3  F 1 E  SPC  3 
■ C SPC  3  PARA  E  SPC  3  COD I F I CAR  E  SPC  3  MORSE  E 15SPC3 

150  PRINT" ERVSON3F3CSPC3 1 CSPC3CIFRAR 
- E  SPC  3 DESPLAZA  E  SPC  3 1 ZQU I ERDA  E  SPC  3  MEN 
SAJE  E  SPC  3 11  i 

160  PRINT" ERVSON3F5ESPC3 ¡ ESPC3DESCIF 
RAR.  ESPC 3 DESPLAZA [ SPC  3  DERECHA [ SPC  3  ME 
NSAJE"; 

170  PRINT" ERVSON3F7ESPC3 '• ESPC3TERMIN 
ARE27SPC3"; 

180  PR I NT " E  CVN  3  E CRSRD  3  £  40COMMO  3 " i 
190  PRINT  " EHOM3 " ,' 

200  PR I NT " E  BLK  3  E  RVSON  3 [ SPC  3  E  CRSRL 3 " 1 
: FOR I » 1 TOT : NEXT : PRINT " [ C0MM7 3  C  RVSOFF  3 
ESPC3  ECRSRL3  "  1  :FOR  I-1TO  T  •'  NEXT 
210  GET  Aí ! IF  Ai"" "THEN  200 
220  IF  ASC(A$)"133  THEN  SVS  32892 ¡GO 
TO  200 

230  IF  ASCEAÍ)"134  THEN  SVS  32973 ¡GO 
TO  200 

240  IF  ASC(At)"135  THEN  SVS  33002 ¡GO 
TO  200 

250  IF  A3C(AÍ)>135  AND  ASC<AiX141TH 
EN  PR I NT : PR I NT " F I N  E  SPC  3  PROGRAMA " : END 

260  IF  ASCEA$>"19  THEN  190 

270  IF  ASC(AÍ)"147  THEN  40 

280  PRINT  Ai. : GOTO  200 

290  DATA  2.  20.  169.  255.  162.  6.  15 

7.  0 

300  DATA  212.  202.  202.  169.  33.  157 
.  0.  212 

310  DATA  202,  202,  202,  157,  0,  212, 

202,  157 

320  DATA  0,  212,  96,  162,  24,  169,  1 
5,  157 

330  DATA  0,  212,  172,  0,  128,  174,  1 
,  128 

340  DATA  206,  59,  128,  208,  251,  202 
,  208,  248 

350  DATA  136,  208,  242,  162,  24,  169 
,  0,  157 

360  DATA  0,  212,  96,  0,  0,  10,  20,  1 
62 

370  DATA  24,  169,  15,  157,  0,  212,  1 
72,  61 

380  DATA  128,  174,  62,  128,  206,  60, 

128,  208 

390  DATA  251,  202,  208.  248,  136,  20 

8,  242,  162 

400  DATA  24,  169,  0,  157,  0,  212,  96 
,  96 

410  DATA  149,  153,  148,  64,  89,  164, 

420J  DATA  106,  152,  101,  160,  144,  16 
8,  105,  166 


430  DATA  100. 
150,  154 
440  DATA  165, 
41,  121 
450  DATA  128, 
0,  3,  168 
460  DATA  136, 
,  233 

470  DATA  26, 
2,  41 

480  DATA  192, 
128,  208 
490  DATA  16, 
8,  104 
500  DATA  24, 
4,  80 

510  DATA  230, 
237,  32 
520  DATA  70, 

,  174,  123 
530  DATA  128, 
8,  247,  238 
540  DATA  121, 
550  DATA  162, 


12, 

560  DATA  136, 
4,  152 

570  DATA  157, 
96,  169 
580  DATA  26. 

16,  189 
590  DATA  240, 
0,  13 

600  DATA  233, 
,  9 

610  DATA  200, 
208,  231 
620  DATA  96. 


i  84,  128,  88,  86,  104, 

'  0,  169,  16,  169,  16,  1 
'  174,  121,  128,  189,  24 
24,  105,  0,  48,  45,  24 
16,  40,  185,  95,  128,  7 
240,  28.  104,  72,  41, 
32,  27,  128,  32,  34,  12 
42,  42,  41,  252,  72,  18 
32,  63,  128,  184,  80, 
128,  104,  172,  122,  128 
202,  20e,  253,  136,  20 

128,  208,  181,  96 
16,  189,  240,  3,  240, 

240,  12,  233,  27,  16, 
240,  3,  232,  208,  236, 
41,  255,  208,  243,  162, 
3,  168,  24,  105.  0,  24 
26,  16,  9,  192,  26,  16 
152,  157,  240,  3,  232, 
169,  1,  9,  0,  208,  243 
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Respetando  las  variables 

Para  no  borrar  las  variables  cuando  hacemos  RUN,  nada 
más  fácil  que  hacer  GOTO  a  la  primera  línea. 

A.K.  RUN  EE.UU. 

Ahorrando  tiempo  en  el  C-64 

Para  no  tener  que  esperar  el  tiempo  que  el  ordenador 
emplea  en  mostrar  el  programa  que  ha  encontrado  cuando 
busca  en  la  cinta,  basta  con  pulsar  la  tecla  COMMODORE. 

B.B.B.  RUN  EE.UU. 

Scroíl  abajo 

Para  hacer  un  scroll  abajo  en  el  VIC-20,  podemos  utilizar 
la  siguiente  línea: 

10  PRINT“[HOME][CRSR  D][CRSR  L][INSERT]”:poke 
218,158. 

Cada  vez  que  lo  hagamos,  toda  la  pantalla  bajará  una 


“La  escoba”  es  un  juego  de  cartas  que  he  adaptado  para  que 
se  pueda  jugar  contra  el  ordenador. 

Para  los  que  no  sepáis  cómo  se  juega  os  explicaré  las  reglas:  A 
cada  jugador  se  le  dan  tres  cartas,  y  al  principio  se  colocan 
cuatro  sobre  la  mesa.  Lo  que  hay  que  hacer  es  intentar  sumar 
15  con  UNA  de  nuestras  cartas  y  una  o  más  de  las  que  hay 
sobre  la  mesa.  El  valor  de  las  cartas  es  el  que  indican;  la  J=8, 
la  Q=9  y  el  rey  (K)=10. 

De  modo  que  si  por  ejemplo  en  la  mesa  hay  un  5,  un  4  y  un  2, 
y  nosotros  tenemos  un  rey,  podemos  llevarnos  el  5,  y  si 
tenemos  un  caballo  (Q),  nos  podemos  llevar  a  la  vez  el  4  y  el  2. 
Si  no  queremos  o  no  podemos  sumar  quince,  hay  que  echar 
una  carta. 

Cuando  se  nos  acaban  las  tres  cartas,  se  reparten  otras  tres  y 
así  hasta  que  se  acaban.  Las  últimas  cartas  se  las  lleva  el  que 
haya  hecho  la  última  jugada  ganando  puntos. 

Lo  que  se  valora  al  final  de  cada  partida  son: 

Las  cartas:  Un  punto  para  el  que  tenga  más  cartas. 

Los  oros:  Para  el  que  tenga  más  oros  (los  oros  son  las  cartas 
que  tienen  un  asterisco). 

Los  sietes:  Para  el  que  tenga  más  sietes. 

El  velo  (el  siete  de  oros):  Un  punto  para  el  que  lo  tenga. 
Escobas:  Un  punto  por  cada  escoba  que  se  haya  hecho. 

Una  escoba  se  hace  cuando  al  sumar  quince  no  queda  ninguna 
carta  en  la  mesa. 

El  ganador  es  el  que  más  puntos  suma. 

El  programa 

Para  jugar  tenemos  que  colocarnos  sobre  las  cartas  que 
queremos  coger  y  pulsar  el  botón  del  joystick.  Si  no  tienes 
joystick  o  superexpander  puedes  cambiar  las  líneas  del 
programa  que  se  indican  a  continuación  del  listado. 

Cuando  se  han  señalado  todas  las  cartas  que  se  van  a  coger,  se 
pulsa  el  botón  ENTER  que  está  en  la  parte  izquierda  de  la 
pantalla.  Si  nos  equivocamos  podemos  pulsar  el  botón 
CLEAR.  El  programa  detecta  errores,  de  modo  que  no 
podemos  hacerle  trampas. 

Lineas  a  cambiar  si  no  se  tiene  joystick  o  superexpander: 

1005  P=PEEK(197):IFP=64THEN1030 
1010  IFP=32THEN  1050 

1015  POKEK,E: K=K+(P=  17) — (P=  1 8)+((P=52) — (P=2 1  ))*22 

2050  IFPEEK(197)=64THEN2050 

READY. 


0  COTOS  :  (C)RIB 

3  T=SU :  F0RI=1TÜLEN(SÍ)  :  N=RSC<MID$<S$ 

'  I>  1 )  )-64  :  P=0  ■  IFMIDÍCRÍj  I;  1)="*"THEN 
P=1 

5  T=T+1-(N=7)*SI+P*R0-(<N=7)RND<P=1) 

)*31 ■HEXT 

6  T=T-<Q=0)*100-<Q<5)*2-<Q>14) : IFT>B 
ETHENBE<=T :  BEi-Ri+Si+R* 

7  RETURN 

8  DIMCC39) J(2) ,  V<2)  j  D<9)¿  8(10).,  B<10 

>  :  P0KE36879, 25  :  PR I  NT 11 CCLR  ]  C  CRSRIi  ]  [  CRSRR] 
CSPC]" 

9  Y$=  "  [ HOM ] [ 22CRSRB : X$= " [ 22CRSRR ] 

10  Cí = " [ SH I FTO ] C  CQMMT3 £  SH I FTP  H 3CRSRL ] 

C  CRSRD 3 [ COMMG 3 £ SPC  3 £ COMMM 3 [ 3CRSRL 3 [ CRSRD  3 
C  COMMG 3  C  SPC  3  C COMMM 3  C 3CRSRL 3  C CRSRD 3  £  COMMO 3 
C  8PC  3  C  COMMM  3  C  3CRSRL 3  C CRSRD  3 [ SH I FTL  3  C COMMfl 3 
CSHIFT83 " :  Pi="*£SHIFTR] T/“  '•  Ni=" 12345 
67JQK"  •  S=7680  : 030720 

1 1  Dí = " [ COMMM  3  C  3C0MM+ 3 [4CRSRL3  C CRSRD 3 
C  COMMM  3  £ 3C0MM+ 3  £  4CRSRL  3  £ CRSRD  3  C COMMM  3 

C  3C0MM+ 3  C  4CRSRL  3 [ CRSRD  3  £ COMMM  3 1 3C0MM+  3 
C4CRSRL3C  CRSRD  3 £ COMMM  3  C  3C0MM+  3 

15  PRINT"  CH0M3  "ThBC  15)  "VIC  ■  PRINT  '■  PR 
I NTTRB  (.1 5  )  "  ESC=00 1 "  :  PR  I  NTTRB  <1 5  )  "  PUN= 

00  C  2CRSRL  3 " SPC ( - < P2< 1 0  )  )  M I Di ( STRi C P2 

),2) 

16  PRINTLEFTiCYl,  19)TRB<15)"TU"  :pRIN 
T  :  PRINTTRBC  15)  "ESC=00"  :  PRINTTRBt  15)  " 

PUN=00 £ 2CRSRL  3 " ; 

17  PRINTSPC(-(PK10))MIDÍ<STR«<P1),2 

l  !rf  £  T*  í W* ‘ 1 9>  "  C  RVSON  3  E  £  SPC  3  £  2CRSRL  3  [  CRSRD  3 
í 2SPC  3  £  2CRSRL  3  £  2CRSRD 3  C £ SPC  3  C  2CRSRL  3 
[ CRSRD  3 [ 2SPC  3  C  HOM  3 

35  FÜRI=0TÜ39 • C< I )=I : NEXT : FORI=0TO9 : 

D( I )=-l ; HEXT 

40  FORI=0TÜ39 : B*INT(RNB(0)*40) : R=C< I 

) : C  < I ) =C  <  B ) : C  í  B ) =R : NEXT 

45  M=0  •'  R0=3  :  SI»  12 :  E 1  =0 :  E2=0  : 01  =0 : 02= 

0 : S1=0 : S2=0 • F0RI=1 TÜ4 : C»C C M ) : G0SUB87 
5 : M=M+1 : NEXT 

65  V 1 =0 : V2=0 ■ C 1 =0 : C2=0 : FÜRJU* 1 T06 : GÜ 
SUB950 : F0RPL=1T03 : GOSUB1000 : GOTO 100 
75  POKE7703 , 32 : NEXT : NEXT 

90  FORJ=0TO9 : IFDC J)=-1THEN95 

91  C=D< J) : N=C ; IFLR*2THENGOSUB550 

92  IFLR=1THENGÚSUB1 152 

93  Y*6-6*< J>4)  : X=l+( J-INT ( J/5)*5)*4 : 
G0SUB975 

95  NEXT : GOTO2000 

100  TD=0 : FORI=0TÜ9 :  IFD( I )=-l THEN 104 

103  TD=TD+D< I )-INT (D( 1)710)410+1 

104  NEXT 

1 05  BE=0  ■'  BEÍ= "  "  :  Si= " "  :  R$= "  "  :  POKE7703 
/  160 

110  Bi* . . . 

115  I FD  C I ) =- 1 THEN 1 40 
120  P=INT (B( I )/10) 

125  N=D< I )~P*10 
130  BÍ=BÍ+CHRi<65+N) 

135  0#=0í+MIDÍ(P$j P+l , 1 ) 

140  NEXT • L=LEN<B$) 

141  IFL=0THEN400 
145  IFL=1 THEN 185 

150  F0RI=1T0LEN(BÍ)-1 

151  FOR  J= 1 TOLEN  <  B$ ) - 1 

155  IFRSC<MID$(BÍ, J, 1 ) )>RSC<MID*<BÍ, 

J+l- 1))THEN180 

160  R$=MIDÍ(BÍ< J/í)  : SÍ=MIDÍCBt; J+l , 1 

165  B*"LEFT$<Bii J-1)+SÍ+R#+MID*<B*, J 

170  RÍ=MIDÍ<0$, Jj 1) :S$=MI D*<OÍ, J+l, 1 

175  ÜÍ=LEFTi<0$, J-l ) +SÍ+RÍ+M I D$ < 0$ , J 
+2) 

180  NEXT: NEXT 
185  FORJ=0TG2  :  Si="  "  :  R$="  11 
191  IFV(J)=-1 THEN300 
195  P=INT<V( J)/10) 


200  N=V<J)-P*10 

20 1  h$=CHR$ <  65+N ) +M I Di í  Pi , P+ 1 > 1 ) 

205  Ü=TD+N- 1 4  :  SU=  1  -  <  P*0  )  i*RO-  <N=6  )  *S  I 
-<V< J)=6)*31 

210  X( 1 )=14-N : H( 1 )=1 : B=1 
215  N=fiSCÍMID$<B4j fi<B) < l))-64 
220  I FN>X  <  B ) THEN280 
230  IFN<X<B)THEN310 

240  Si=" " . . 

250  Si=S$+MIB$<BÍ,HCI), 1) 

255  Ri=R4+M  I  Di  <  0$  <  R  (.  I )  j  1 ) 

260  NEXT 
270  G0SUB3 

280  I FR  (  B  )  OLTHEN330 
290  IFB>1THENB=B-1  -'GOTO330 
300  NEXT : GOTO350 
310  IFR<B)=LTHEN290  ’ 

320  R<B+1 )=R<B) : X(B+1 )=X(B)-N : B*B+1 

330  R<B)=fl(B)+l :G0T0215 

350  I FBE$= " " THEN400 

355  GOSUB800 

360  GOTO500 

400  BE=0 : FOR J=0TO2 : I FV ( J ) ■- 1 THEN430 
410  P*INT(V(J)/10) 

415  N=V( J)-P410 

420  V=- <  N+TDC4  )  *  1 0-  <  PO0  )  *3-  <  N<>6  )  *5 
-<  <NO6)RND<PO0)  )-<  (N+TD)>13)*5-<  ÍN 
+TD)<>7) 

425  1 F V>BETHENBE= V  :  BE#=CHR4  <  65+N )  +M 
ID$(P$, P+l , 1 ) 

430  NEXT 

435  N*RSCÍLEFT*(BEÍ> 1 ) )-65 : FORI-0TO3 
MTFRIGHT*<BEÍ,  DOMIDiCP»,  I  +  l.DTHEN 

436  P=I :C=N+P*10 

437  FORI=0TÜ2 : IFVCI )=CTHENVC I )*-l : J« 

438  NEXT 

440  V=0 : X=3+J*4 : P0KES+X+V422, 32 : GOSU 
B900 :  FORT » 1 T0999  •'  NEXT :  V®  1 :  G0SUB975 
450  G0SUB875 
455  G0T075 

500  N=RSC ( LEFT i <  BEi > 1 ) ) -65 : FOR I «0TO3 
¿gfID.^2,  DOMIDíCPi,  1  +  1 , 1)THEN 

505  C=N+ 1*10: GOSUB550 
515  F0RI=3T02+L 

520  N=RSC < M I Di < BEi / 1 , 1 ) )-65 : FORJ«0TQ 
3 : IFMIDiCBEtj I+L; 1 )*MIDl(P$i J+l , 1 )TH 
ENP=J 

525  NEXTJ : C=N+P*10 
530  GOSÜB550 
540  NEXT I 

543  T=0 : FORH=0TO9 : T=T+D(H) : NEXT : IFT= 
-10THENE2=E2+1 

544  PR I NT " [ HOM ] [ 2CRSRD ] " SPC  <1 9- <  E2<  í 
0))MIDiíSTR'Í<E2)  <2) 

545  LR=2 : G0T075 

550  I FC< 1 0THENÜ2=O2+ 1 : IFO2>5THENRO=0 

555  IFC-INTÍCX10)*10«6THENS2»S2+1 : IF 

S2>2THENSI=0 

560  IFC=6THENV2=1 

565  C2=C2+1 

575  RETURN 

800  N=RSC ( LEFTi <  BEi , 1 ) ) -65 : FOR I -0TÜ3 
^IFmDicBEi^,  l)OMÍD*<Pi,  1  +  1, 1)THEN 

810  P=I 
815  C«N+P*10 

820  FORI«=0TO2:  IFV<I)OCTHENNEXT 
825  V<I)=-1 

830  V=0 : X=3+ 1 *4 : POKES+X+1 V*22 >  32 : GOSU 
B900 

835  L-<LEN(BEÍ)-2)X2 

840  FORT= 1 TO 1 000 : NEXT : F0RH=3T0L+2 

841  N=RSC<MID$<BEÍ,H,  1 )  )-65  :  FOR.J=0TO 
3:  IFMIDt<BEÍ,H+L,  DOMIDiCPi,  J+l,  1)T 

HENNEXT 

842  P=J : C“N+P*10 
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643  FORJ=0TO9-  IFB(J>OCTHENNEXT 

844  D(J)=-1 : Y=6-6*(J>4) : X*l+( J-INT( J 
X5)*5)#4  :  GGSUB975 

845  J= 1 0 : NEXTJ : NEXTH : POR I =0TÜ2 : IFPEE 
K ( S+3+ I *4 ) 079THEN84? 

846  X=3+I*4 

847  NEXTI ¡Y®1 : G0SUB975 
843  RETURN 

850  PRINTLEFTÍ(YÍ,19)SPCÍ18)J  ¡F0RI®1 
T04 : PR I NT " C RVSON ] E  C RVSÜFF  3 " i  • F0RT= 1 T 
0200 : NEXT : PR I NT " C CRSRL 3 l SPC ] C CRSRL 3 " 

855  F0RT=1 TO200 : NEXT : NEXT : RETURN 
875  X=INT(RNB(1>*5)*4+1 :Y=6-6*(RNB(1 
».5)  :  I FPEEK < S+X+ VÍ22 ) 032THEN875 
900  P=INT(CX10) 

902  N»C-P*10 

903  PR I NTLEFTÍ  ( Yí , Y+ 1 ) LEFTÍ (Xí , X ) Cí " 

[H0M3 

904  PRINTLEFTí (Yí, Y+2) LEFTÍ (Xí, X+l  )M 
I  Bí ( Pí ,  P+ 1 , 1 )  "  [  CRSRL  3  [  2CRSRII 3 " M I Bí ( N 
Í,N+1, 1)"CH0M3 

905  IFVC1 8RNBV>5THEND ( I NT  ( ( X- 1 )  X4 ) -5 
#(Y=12))»C 

906  RETURN 

950  V(0)=C(M) :V(1)=C(M+1) : V(2)=C(M+2 
)  :  M=M+3 

955  PR I NT "  C HÜI'1 3 1 2CRSRR 3  "  i  :  FÚRI=1TQ3  : 

PR INTBÍ " [ 5CRSRU 3 " i ■ FORT® 1 TÜ275 : NEXT : 

NEXT 

960  J(0)=C(M) : J(1)=C(M+1>: J(2)-C(M+2 
)  ¡  M-M+3 

365  FQRI*3TÜ1 1STEP4 : X«I : V-18 : C-J( 1X4 
i : GGSUB900 : FORT® 1 TO200 : NEXT : NEXT 
970  RETURN 

975  F0RI=VT0Y+4+(Y=l ) : PRINTLEFTí (Yí, 

I )  LEFTÍ  (  X* , X- 1 > " C 4SPC  3 [ 4CRSRL 3  L CRSRB 3 
í  SPC  3  C  3C0MMÚ!  3  C  HON  3 "  :  FORT®  1 T099 :  NEXT : 

NEXT 

380  PR I NTLEFTí  ( V* , Y+5+  ( V® 1 )  ) LEFTÍ ( Xí 
, X- 1 ) " [ 4SPC  3  C  HOM  3 
985  RETURN 

990  PR I NTLEFTí < Yí , V+ 1 ) LEFTÍ ( X$ , X- 1 ) " 

C COMMM 3  C  CRSRL  3 [ CRSRB  3  C COMMM 3  [ CRSRL 3  [CRSRB 3 
[ COMMM 3  C  CRSRL  3 [ CRSRB  3 [ COMMM  3 [ CRSRL  3 [ CRSRB  3 
[ COMMM 3 CHOM 3" = RETURN 
995  PR I NTLEFTÍ < Yí , V+ 1 JLEFTí ( Xí , X- 1 > " 

[ SPC  3 [ CRSRL  3 [ CRSRB  3 [ SPC  3  C  CRSRL  3  C  CRSRB  3 
[ SPC  3 [ CRSRL 3  C  CRSRB 3 [ SPC 3  C CRSRL 3 [ CRSRB 3 
C  SPC  3 [ HOM  3 " ; RETURN 

1 000  SP=0 : CE=0 : Tí® " " : K=8094 : GOTO 1 020 

1005  P=RJOY( 1 ) : IFP®0THEN1030 
1010  I F  ( PftNB 1 28  >  ® 1 28THEN 1 050 

1015  POKEK , E : K=K+(  < PRND4 ) *4 ) - ( ( PRNB8 
)=8>+( ( (PRND1 )®1 )-( (PRNB2>®2) >Í22 

1016  IFK<7680THENK=K+506 

1017  I FK>8 1 85THENK=K-506 

1020  E=PEEK(K) : POKEK,  43 ;P0KEK+C0,6:G 
OTO1005 

1030  H=H+1  ■'  IFH<10THEN1005 

1035  H=0 : IFCK®1THENCK=0 : POKEK , E : GOTO 

1005 

1040  CK=1¡ POKEK >43: OOTO 1005 

1050  POKEK, E : H=9 ¡ CK®0 

1051  KY=INT ( <K-7680)X22) ■ KX=(K-7680) 

-22*KY 

1052  I FKY  Í60RE=32THEN 1015 

1053  I  FKY>  1 7FlNBKX>  1 4THEN 1015 

1055  I FE> 1 28RNBK Y<20THEN 1100 

1056  I FE> 1 28THEN 1 095 
1060  I FKY> 1 7THEN 1085 

1065  CR= I NT  < KXX4 ) : V=6  = I FKY> 1 1 THENCfi® 

Cfl+5 :  Y®12 

1070  X®  1  +  ( CR- 1 NT ( CRX5 )  ¡t¡5  )  *4  ■  IFPEEKCS 
+X+YÍ 22- 1 ) 032THEN 1015 
1 075  Tí =TÍ +CHRÍ ( 48+Cft ) : GOSUB990 : GOTO 
1015 

1085  IFCE=1THEN1015 


1086  CE®1 : CR=INT ( (KX-3)X4) : TÍ=CHRí <4 
8+Cfl)+Tí 

1087  Y®  1 8  :  X»3+CR*4  :  GOSUB990 :  GOTO  1 0 1 5 

1090  I FCE=0ORLEN ( Tí ) = 1 THEN 1095 

1091  I FSP® 1 THEN I FCE=0ORLEN (  Tí  >0 1  THE 
NI  095 

1092  I FSP® 1 THENX® I NT ( RND<1 ) *5 ) *4+ 1 : V 
=6-6*(RNB(  1  )>.  5>  :  C*J(VRL(Tí ) )  '■  G0SUB9 
00 : GOTO2000 

1093  T=VRL (LEFTÍ (Tí,  1))  : F0RI=2T0LEN( 

Tí  >  :  T=T +VRL  ( M I Bí ( Tí ,  1, 1 )  )  '■  NEXT  •  I FTO 
15THEN1095 

1095  IFTí®" "THEN1015 

1 096  I FCE® 1 THENCE=0 : Y® 1 8  =  X=3+VRL ( LEF 
TÍ(TÍ,1))Í4: G0SUB995' TÍ“MIBÍ(TÍ , 2) : 

1097  FOR I ® 1 TOLEN ( Tí ) : Y®6 • V® VRL  <  M I Bí  < 

Tí, I, 1)) : IFV>4THENY=12 

1098  X® 1 + ( V- I NT ( VX5 ) *5 ) *4 : G0SUB995 • N 
EXT  :  Tí® 11 "  :SP=0:GOTO1015 

1100  L=LEN(TÍ) • IFL=0THEN1015 

1 105  I FL= 1 RNBCE=0THENGOSUB650 : GOTO10 

95 

1110  I FL® 1 THENY® 1 8 ¡ X=3+ VRL ( Tí  ) *4 : GOS 
UB975 : C=J< VRL(TÍ ) ) : G0SUB875 : RETURN 
11151 FCE=0THENGOSUB850 : GOTO 1 095 
1120  V® J ( VRL ( LEFTÍ (Tí,l))):T =V- 1 NT < V 
X 10) í 10+1 ■ F0RI®2T0LEN(TÍ ) ’V®B(VRL(MI 
Bí (Tí , 1,1))) 

1125  T=T+V-INT(VX10)*10+1  NEXT 
1130  I FTO 1 5THENGOSUB850 : GOTO 1 095 
1135  Y®18 • X=3+VRL ( LEFTÍ ( Tí , 1 ) >*4 : GOS 
UB975 

1140  F0RJ®2T0LEN(TÍ ) • N=VRL(MIBÍ (Tí , J 
, 1 ) ) : Y®6-6í(N>4) : X®1+(N-INT (NX5)*5)Í 
4 • G0SUB975 
1145  NEXT 

1150  F0RI=2T0LEN(TÍ ) : N®B(VRL(MIBÍ (Tí 
, I, 1))) :B(VRL(MIBÍ(TÍ, I, 1)))®-1 : GOSU 
B1 152: NEXT 

1 1 5 1  N= J ( VRL ( LEFTÍ ( Tí , 1 ) ) ) : GOSUB 1 1 52 
: GÜT01 157 

1152  I FNC 1 0THENO 1=01+1 

1153  IFN-INT (NX10)*10=6THENS1=S1+1 

1154  IFN=6THENV1®1 

1155  C1=C1+1 

1156  RETURN 

1157  FORI=0TO9 ; IFB( I )®-lTHENNEXT : El® 

El  +  1 

1159  PRINTLEFTÍ ( Yí , 21 )SPC( 19-(E1<10) 
)MIBí (STRÍÍEI ) , 2) 

1160  LR®1 : RETURN 

2000  PR I NT " CHOM 3 [ 7CRSRB 3 [ 7SPC 3 TU " , " [ SPC 3 
VIC 

2015  PRINT : PRINT"OROSC2SPC3 "01 , 02 ; PR 
I NT " S I ETES " S 1 ,  S2  ••  PR I NT " CRRTRS " C 1 ,  C2  : 
PRINT" VELO  C  2SPC 3 "VI , V2 ; PRINT" ESCOBR " 

El ,  E2 

2041  T1®-(01>02)-(S1>S2)-(C1>C2)-(V1 
=1 )+El 

2042  T2=-(02>01 )-(S2>Sl )-(C2>Cl )-(V2 
=  1  )+E2 

2043  P1-P1+T1 : P2=P2+T2 : PRINT : PRINT" CSPC3 
T0TRL"T1 , T2 

2050  I F ( R JOY ( 0 ) RNB 1 28 ) O 1 28THEN2050 
2055  FORI=7790TO8054 : POKEI , 32 : NEXT : G 
OTO  15 
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Rafael  Alberto  García  Medina 

Carretera  de  Granada,  ns  4,  3S  C  C“64 

Guadix  (Granada) 


JL-.  .  y  s*.  .. 

JT3j.  C  <i  tt-EM  i//>.  A  dtu/  MüCtío\ 

lnj|l 


Es  un  juego  fascinante  en  el  que  la  astucia  y  habilidad  del 
jugador  cuenta  mucho. 

Se  puede  jugar  desde  el  teclado  o  con  el  Joystick  en  el  Port  2. 
Una  nave  intergaláctica  llamada  OMNIBUS  es  atacada  por  99 
misiles  enemigos.  Tu  misión  es  la  de  tripular  el  OMNIBUS  y 
esquivar  el  ataque  enemigo. 

Se  gana  cuando  se  lleva  la  nave  hasta  la  parte  inferior  de  la 
pantalla  o  cuando  se  esquivan  los  99  misiles. 

Se  pierde  cuando  el  OMNIBUS  es  alcanzado  por  algún  misil. 
Al  final  del  juego  se  visualiza  los  puntos  obtenidos  y  los 
centones  (es  decir  el  tiempo)  realizado  durante  el  vuelo. 


2  PCIKE 1 024+X+40JHY ,  78 :  X*X+DX  ¡  I FX-0ORX 
*39THENDX«-DX 

3  V*Y+DY: IFY*0ORY*24THENDY*-DY 

4  NEXTK i PR I NTTAB C 1 6 ) " [ CRSRD  3 [  BLK 3 [ RVSON 3 
GMN I  BUS  "  :  PR I  NTTFlB  C  7  )  "  i  5CRSRD  3  £  SPC  3  DE 

C  SPC  3  RAFAEL C SPC  3  GARC I A  í SPC  3  MED I NA  C SPC  3 

5  FORK>1TO4000  '•  NEXTK 

6  PR  I  NT  "  [  3CRSRD 3  SE  C  SPC  3  PUEDE  [ SPC  3  JUQ 
AR  C  SPC  3  DESDE [ SPC  3  EL  C  SPC  3  TECLADO  [ SPC  3 
OCSPC3CQNCSPC3ELCSPC3 JOISTIKCSPC3ENCSPC3 
EL  C  SPC  3P0RTC  SPC  32" 

7  PRINTTABC3) "F . DERECHA" 

8  PRINTTABC3) " J . IZQUIERDA" 

9  PRINTTABC3) "B . ABAJO" 

1 0  PRINTTABC3)  "Y . RETORNA [ SPC 3 ARR 

IBA" 

11  PR I NT " [ RVSON 3  C  3CRSRD 3  VAMOS  í SPC  3  A  [ SPC  3 
COMENZAR  [ SPC  3  EL  C  SPC  3  V I AJE  C SPC  3 1 NTERG 
ALACT I CO " : PR I NT " I RVSON  3  PULSA  C  SPC  3  UNA 
[SPC 3  TECLA. » 

12  GETWÍ  :  IFW*=" "THEN12 

13  T I  $*  "  000000  "  ;  PR  I  NT  "  C  CLR  3  [  1 0CRSRD  3 
" :POKE53269,0 

14  X*130 ¡ Y*50 

13  A-INTCTI/60) : IFA#70*>6930THEN3100 


20  POKE53280, T ■ P0KE53281 ,  T+l 


30  T-INTCRNDC0)#30) 

1000  RESTORE 
1 020  V-53248 ¡ POKEV+34  ,  3 
1030  P0KE53269,  4  > POKE2042, 13 

1035  I FY<20THENY*20 

1036  I FV*>260THEN5 1 00 

1037  I FX=>250THENX“250 

1038  IFX*<10THENX*10 

1040  FORN-0TO62 ¡ READQ : P0KE832+N ,  Q : NE 

1 045  X-X : V-V ¡ P0KE33232 , X : P0KE53233, V 

1030  DATA0, 0.0. 0.0, 0,0, 0,0. 1. 1.0,  1.  i 
31.0/ 1/ 131,0, 1, 199,0, i, 13SG0, i, 199,0 
>1/1 99 

1060  DATA0, 0.238. 0.0, 254. 0,0, 16.0,0, 

124, 0, 0, 16, 0, 0, 56, 0, 1,253,0,0,56,0,0 

1070  BATA0, 16,0,0, 16,0 

2000  P0KE53277 , PEEK  C 53277 )  OR  C2  T2  ) ¡ PO 

KE5327 1 , PEEK  C  5327 1 ) OR  C 2 12 ) 

3000  I FPEEK C  V+3 1 ) ANDX*XTHEN5999 
3500  GETR$: IFR*="F"THENX"X-30 
3510  I FRí * " J " THENX*X+30 
3520  IFR*-"B"THENY-Y+15 
3330  I FRí * " Y " THENY* Y- 1 00 
4000  JV-PEEKC 56320) 

4010  IFCJVAND1 )*0THEN  V»  Y+100*CY>1 ) 

4020  I F  C  JVAND2 ) »0THEN  V-  Y-15*CY<235 

4030  IFCJVAND4)-0THEN  X-  X+30*CY>1) 

4040  I F  C  J VAND8 ) *0THEN  X-  X-304KXC330 

4100  PRINTTABCT)  " [ RED 3 [ 2SPC 3 C SH I FTN 3 
CSHIFTM3 

4110  PRINTTABCT)  " C2SPC3 C2COMM+3 
4120  PRINTTABCT)  "[2SPC3C2COMM+3 
4130  PRINTTABCT)  " C2SPC3 CC0MMG3 CC0MMM3 

4145  PRINTTABCT)  "[SPC3"A 

4150  PRINTTABCT)  " C SPC 3 C COMMG 3 [ 2SH I FTB 3 
[ COMMM  3 [ 3SPC  3 [ SPC  3 

4151  PRINTTABCT)  "[2SPC3**[3SPC3"j 
4132  PRINT 

3000  F0RL-34272T054293 : POKEL , 0 : NEXT 

5010  P0KE34296, 15 

5020  P0KE54277, 28. 9 

3040  P0KE54273 , 93  < P0KE54272 , 2 

5050  P0KE54276, 129 

5060  P0KE54276, 16 

5070  GOTO 15 

5100  PRINTTABC4) "[RVS0N3 [9SPC3MUYISPC3 
BIENCSPC3CAPITAN I I I [SPC 3 " 

3110  PR I NTTAB  C  4 ) " [ 2CRSRD 3  LA [ SPC  3  NAVE 
C  SPC  3  HA[ SPC  3  S I DO [ SPC  3  TR I PUL ADA " 

3111  PR I NTTAB  C  4 ) " PERFECTAMENTE " 

3120  PRINT"C2CRSRD3" 

5130  PR I NTTAB  C 1 5 ) " [ RVSON  3 [ 8SPC  3 " 

3140  PRINTTABC 16) " [RVS0N3  C2SPC30. K I C2SPC3 

5150  PR I NTTAB  C 1 7 ) " [ RVSON  3  C  8SPC 3 " 

5999  POKEV+28, 4 : POKEV+38, 3 : POKEV+37, 

6000  F0RB-1T016 

6010  POICE53280, B  •  P0KE53281 ,  B+3 

6020  NEXTB 

7000  P0KE53281 , 7 

8000  F0RL-54272T054295 : POKEL , 0 ¡ NEXT 

8010  P0KE34296, 15 

8020  P0KE34277, 28. 9 

8040  P0KE54273, 1 1 ; P0KE34272, 1 

8050  P0KE54276, 129 

8070  FORD* 1 TO3000 ■ NEXT 

|000  P0KE33276, PEEKC53276)ANDC253-2t 

10005  P0KE5328 1,7' POKE V+2 1 , 0 
10010  PR I NT " [ 4CRSRD 3  GAME [ SPC  3  OVER " 
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Commodore  World 


1 0020  PR I NT " TU  í SPC i PUNTUAC I ON  C  SPC ] HA 
C  SPC  ]  S I  DO  C  SPC  3  C  RVSON  ]  "  ;  A*70 "  í  RVSOFF  ] 
PUNTOS" 

1 0025  PR I NT " T I EMPO [ SPC ] DE  í SPC  ]  VUELO  C  SPC  2 
C  RVSON ] " ¡ A " í RVSOFF ] CENTONES " 

11000  PR I NT " GU I ERES C SPC] JUGAR C SPC] OT 
R A  C  SPC ] VEZ  <  S7N ) " 

11010  GETA$: IFA*»"S"THEN13 
11020  IFAíO"N"THENl  1010 


Alvaro  Ibáñez 
Cardenal  Siliceo,  20 
28002  Madrid 


(/V/VO-.  C>eMA\ 
/  44  ruenTA  S 
\c<JANOO  J06&U£s\ 
\  CON  T<J  MICA  O  i 


Üfrv^  ¥ 

¥  A  7 


Los  que  hayais  visto  la  película  TRON  de  Walt  Disney, 
seguramente  os  habréis  quedado  asombrados  por  las  fabulosas 
carreras  de  motos  que  tenían  lugar  entre  los  protagonistas. 

Este  programa  es  una  recreación  de  una  de  esas  carreras  de 
motos,  en  la  que  hemos  de  luchar  contra  el  ordenador. 

El  objetivo  es  acorralar  al  ordenador,  para  que  no  tenga  más 
remedio  que  chocarse,  y,  al  mismo  tiempo,  evitar  que  el 
ordenador  nos  haga  lo  mismo  a  nosotros. 

Nuestra  moto  se  controla  con  las  teclas  A,D,0  y  L,  tal  y  como 
se  indica  en  las  instrucciones  al  principio  del  programa. 

La  barra  de  espacios  la  podemos  usar  en  caso  de  que  nos 
veamos  acorralados  y  veamos  que  nos  chocamos  sin  remedio. 
Entonces  nos  transportará  a  otro  lugar  de  la  pantalla.  Tiene  el 
inconveniente  de  que  a  veces  aparecemos  en  un  lugar  que  ya 
está  ocupado,  y  morimos  irremisiblemente. 

Hay  que  tener  en  cuenta  que  el  ordenador  también  puede 
hacer  uso  del  hiperespacio,  por  lo  que  es  realmente  difícil 
ganarle. 

Si  queremos  que  el  ordenador  no  haga  uso  de  él,  basta  con 
cambiar  la  línea  750  por:  750  REM,  y  si  queremos  que 
nosotros  tampoco  podamos  usarlo  hacemos  lo  mismo  con  la 


5  REM(C) ALVARO  IBANEZ 
10  GOTO 1000 

40  D( 1 )=1 :D<22=-1 :B(3>=-22:D(4>=22 
45  BL=0 : RO=0 : Rí = " [ HÜM ] C  WHT ] C  3CRSRR ] V 
I C  "  :  £$= "  [  HOtl  ]  C  WHT  ]  L 1 1 CRSRR  ]  TU  " 


60  PRINT"CCLR]" 

100  M<*  I  NT  <  RND  <  1 )  *484  ) +7702 

105  K=*INT(RND(  1  )*484)+7702 :  IFK«=MTHEN 

105 

110  POKEM, 160 : POKEK+30720, 4 : POKEK, 16 
0 

115  PRINTRi; RQ • PRINTBí i  BL 
120  GETAí :  IFAíO"  "THEN120 
125  GETAi : IFA$=" "THEN125 
170  GOTÜ210 
200  GETfl* 

210  IFAi="H"THENB=-l 

220  IFAÍ="B"THENB»1 

230  IFA$="0"THENB— 22 

240  I Ffif = " L " THENB=22 

250  I F Aí = " C SPC ] " THENM- I NT  (  RND  <1 ) *484 

>+7702 

260  M=M+D 

265  I FPEEK  <  11  >  *  1 60THENG*  1 :  GÜTO800 
270  I FM<7702THENM“M+484 : GOTG280 
275  IFM>8185THENM=11-484 ¡ GGTO280 
280  I FPEEK 0*1  >«,160THENG*1  :GOTO800 
290  P0KE11, 160 
300  IFH=1THEN400 

310  H=1 :X-INT(RND(1)*10)+1 : J-INTCRND 
< 1 )*4)+l 

320  I FB  <  J )  O-PTHEN390 

335  ÜNJGOTÜ340,350,360,370 

340  J=INT (RND< 1 )*3)+2 ¡ GGTO390 

350  J»INT(RNB(1  >*3)+2 ' IFJ=2THENJ»1 

355  GOTO390 

360  J=INT (RNB< 1 )*3)+l : IFJ-3THENJ-4 
365  GOTO390 
370  J=INT(RNB( 1 )*3)+l 
390  P=DCJ> 

400  I FPEEK ( K+P  )  “  1 60THEN500 
403  K=K+P 

405  IFK<7702THENK=K+484 
410  IFK>8185THENK«K-484 

414  I FPEEK <  K  )  ■  1 60THEN750 

415  POKEK+30720,4:POKEK, 160 
420  W»W+1 : IFW>XTHENH-0 : W=0 
430  GOTO200 

500  I FP=- 1 THENA 1 =-22 : A2=22 : A3* 1 
510  I FP= 1 THENA 1 =-22 ; A2=22 : A3=- 1 
520  I FP=-22THENA 1— 1 : A2« 1 = A3=22 
530  I FP-22THENA 1 — 1  ¡  A2*  1 :  A3— 22 
550  I FPEEK C K+ A 1 >  *  1 60ANDPEEK ( K+A2 > *  1 6 
0ANDPEEK  <  K+A3 ) « 1 60THEN750 
555  I  FPEEK  <  K+A 1  >  =  1 60ANDPEEK  <  K+A2 >  - 1 6 
0THENP=A3 : GÜTO403 

560  I FPEEK (K+Al >= 1 60ANBPEEK < K+A3 ) » 1 6 
0THENP-A2 ¡ GOTO403 

565  IFPEEK(K+A1  >»160THENP»A3  :  GGTO403 

570  I FPEEK  <  K+ A2  >  =  1 60ANBPEEK C K+A3  >  =  1 6 
0THENP=A1 :GÜTO403 

575  I FPEEK  <  K+A2  > - 1 60THENP-A3 : G0TÜ403 

580  S=RND( 1 ) ¡ IFS>. 5THENP=R1 : GGT0403 

590  P=ft2 : GOTÜ403 

750  K>I NT (RND ti >*484) +7702 

755  I FPEEK ( K  > = 1 60THEN800 

760  GOTO200 

800  G0TO900 

810  IFG*1THENRCI*R0+1  •  G=0  ¡  GOTQ830 
820  BL=BL+1 

830  I FRCK 1 0ANDBL< 1 0THENH=0 : GOTÚ50 
835  PR I NT " C HGI'1  ] C CRSRD ] " i  :FÜRI*1T022: 

PR I NT " [ 223PC ] " ; : FORT* 1 T0 1 08 : NEXT : NEX 
T 

840  A*= " [ H0N ] C 1 0CRSRB ] L 6CRSRR ] GANE C  SPC ] 
0VER" 

845  FGRI=1TÚLEN(A$) : PRINTMIDÍ(Rí j I; 1 
> ;  :  FORT=1TO70  :  NEXT  •'  NEXT 
850  I FR0= 1 0THEN870 

860  FORI=1TÜ10 : PRINT" CH0M] C22SPC] " : F 
ORT=1TO100 : NEXT 


World 
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.  ■ FORT» 1 TO300 : NEXT : NEXT 
):PRINT"CHOM3[22SPC3" :F 


i  ■ FGRT=lTCl300 : NEXT : NEXT 


865  PRINTBí i BL : Fi 
■  GOTO 1Ú00 
870  FGRI  =  1TG10  •' Pl 
ORT=1T0100 : NEXT 
875  PRINTRí ; RO • F 
:GGTG1000 
900  IFG=1THENV=M 
910  IFG=0THENY=K 

9 1 4  F GRU= 1 TO06 : POKEV , 32 : F0RT= 1TO60-N 
EXT : POKEV » 160 : FORT=1TO90 ; NEXT : NEXT 
9 1 3  Q 1 -V-22 ¡ Q2-V-2 1 : Q3-V+ 1 : Q4-V+23 : Q 
5=V+22 '  Cl6"V+2 1 :  Ü7=Y-1  ¡  Cl8=Y-23 
917  FGRE-1T015 

920  P0KEQ1 , 93 : PGKEQ2, 78 ¡ P0KEÜ3, 67 : PO 
KEG4  , 77 : PGKEQ5,  33 : P0KEQ6 , 78 : POKEQ7 , 6 
7 :  P0KECI8,  77 

930  Q 1 =Gl 1 -22 : 02=02-2 1 : 03=03+ 1 : 04=04+ 

23 : 05=05+22 : 06=06+21 : 07=07- 1 : 08=08-2 
3 

940  PQKEGll+66,  32 • PÜKEÜ2+63 , 32  =  PGKEQ3 
-3,32:PGKE04-69,32 

950  PGKEÜ5-66,  32 • PÜKEQ6-63,  32 ¡ P0KEQ7 
+3<  32 : P0KEQ8+69, 32 
960  NEXT : GÚTÜ810 

1000  PRINT" CCLR3 " J : PGKE36879, 1 10 
1010  PR I NT " [ BLU  3 [  RVSON  ]  C  3SPC  3  TRÜN  [  3SPC  ] 
CWHT] " • FORI=38400TÜ38421 : POKEI >  1 : FOR 
T=1  TO90 :  NEXT  '■  NEXT 

1015  PRINT" [CRSRBJ tSPC] <C) CSPCDRLVftR 
O  C  SPC  ]  I  BflN  [  CRSRU  ]  [  CRSRL  ]  CSHIFTR]  [  CRSRIl  3 

1 020  PR  I  NT  "  [  CRSRIl  3 1 8SPC  3  MANDOS  " 

1025  PR I NT " [ 7SPC  3 [ 8SH I FTE  3 " 

1 030  PR I NT " C  2CRSRD  3  C 3SPC 3 I ZQ . - 1 RVSON  3 
Fl  C  RVSOFF 3C2SPC3 ARR I BA- C RVSON  3  O  C RVSOFF 3 

1040  PR I NT " C  CRSRD  3 1 2SPC 3  DCHA . - [ RVSON  3 
D  C  RVSOFF  3 1 2SPC 3  ABA JO  í SPC  3 - C  RVSON  3  L  L RVSOFF  3 

1050  PR I NT " [ 2CRSRD 3 [ 4SPC 3  PARA [ SPC  3  SA 
LTARCSPC3ALCSPC3 " : PRINT" CCRSRD3  C3SPC3 
HIPERESPACIOí  CSPC3USA" 

1055  PR I NT " í CRSRD  3  C 6SPC 3  C  RVSON  3 1 2SPC 3 
SPACEC2SPC3C  RVSOFF  3 " 

1060  PR I NT " C  ¿CRSRD 3 [ 6SPC 3  C  GRN 3 [ SPC  3  P 
ULSACSPC3 [RVS0N3F1 [RVSOFF 3 " 

1 070  GETAÍ  :  I  FADO "  [  F 1 3 "  THEN1 070 
1080  GOTO40 


Magia 


Para  conseguir  un  número  aleatorio  entre  O  y  255: 
x=int(rnd(l)*256) 

Sin  embargo,  si  quieres  un  número  entre  0  y  15,  por  ejem¬ 
plo: 

PRINT  PEEK(162)  AND  15 
Algunas  combinaciones  funcionan  mejor  que  otras 
¡Pruébalo! 

I.A.  RUN  EE.UU. 

Caza  de  errores 

Cuando  el  ordenador  esté  leyendo  datas,  y  de  pronto  te  dé 
un  ILLEGAL  QUANTITY  ERROR,  en  vez  de  buscar  por 
todas  las  líneas  que  contienen  datas,  teclea: 

Print  peek(64)*255+peek(63) 

Esto  dará  el  número  de  línea  en  la  que  está  el  error. 

A.B.  RUN  EE.UU. 


Se  trata  de  elegir  un  ángulo  y  una  velocidad  apropiadas  para 
conseguir  encestar.  Sólo  se  dispone  de  diez  fallos  y  la  canasta 
cambia  de  posición  cada  vez  que  se  encesta. 

Las  teclas  de  función  controlan  la  velocidad  y  el  ángulo  de  la 
pelota,  mientras  la  tecla  “A”  pone  el  balón  en  movimiento. 

10  Poke  teclas  repetitivas. 

20  Define  variables. 

30  Color  pantalla. 

60-110  Define  sprites. 

120-160  Control  velocidad  y  ángulo. 

180  Posición  inicial  sprites.  “A”  para  mover  balón. 
190-210  Lanzamiento  balón. 

220-240  Límites  balón. 

250  Posición  balón. 

260  Comprueba  si  hay  enceste. 

280-310  Imprime  velocidad,  ángulo  y  lanzamientos  fallados. 
320-420  Imprime  puntuación  y  define  nueva  posición  de 
canasta. 

420-260  Caída  balón. 

470-530  Decoración  pantalla. 

540-580  Pregunta  por  nuevo  juego. 

590-640  Datas  sprites. 


0  REM***»*#******#** 

1  RETI#  JjE  SANCHEZ  * 

2  RfcMW  BHSKET  * 

3  REM«*tt****W******* 

10  POKE650J ¿55 

20  X=50  :V*1 70 :  XC*223 :  YO  1 38 :  V0=8  ■'  A=8 

•  F'=0 :  LZ=0 

30  POKE5328 1.0: POKE53280 . 0 
40  PRINT" [CLR3 " 

50  GOSUB470 
60  V=53248 
70  POKEV+21 ..  6 

88  POKE 2042, 1 92 : POKE2041 ,13: POKEV+23 
, 2 : POKEV+23, 2 : PUKEV+4 1 , 1 1 : PüKtV+48, 1 

90  FORN=0TG62 : REflDQl : PÜKE 1 2288+N , Q 1 : 
NEXT 

1 08  FORN=0TO62 : READQ2 
1 1 8  P0K.E832+N ,  «2 :  NEX 1 


120  GETH* 

1 30  I FH** " L  F3 J " T  HENVO*VÜ- 1 
140  IFA**,*CF53"rHENA=A+l 
1 50  I FAÍ* " t F7 ] " THENH-ñ- 1 
1 60  I FAÍ* "CFIJ" THENVÜ-VG+ 1 
170  GOSUJS280 

1 B0  POKEV+2  ,  XC  •'  PÜKEV+3 ,  VC :  POKEV+4 , 50 

■  POKEV+5..  170  ;  I FRÍO "  A " THEN 1 20 
190  TI *-"000ü00“  : L.2=L2+1 

200  V  »INT<-<VÜ*SINíH*ir/180)*<TIX100 
)  -4 .  9*C  T 1 7 1  títí  i1 1 2  >+170) 

210  x  ainmvo*cosíH*n/ie0>*ai/i00.i 

)+30) 

220  IFVC0THEN420 

230  I FX>255CRX<0 I HEN420 

240  I FV>22?THENP0KEV+4 , X ¡ POKEV+5, 227 

■  GOTO! 20 

250  POKEV+4 , X : POKEV+5 , V 

260  IFX>XCHNDX<XC+20HNDV>VC-20ftNDV<V 

C-15THEM320 

270  GQTO200 

280  PR I  NT  "  [  HOM  ]  VELOC 1 DAD*  "  i  VO 

290  PR I NT " [ HOM J [ 2CRSRD 3LRNZAM I EN TO* " 

L2- IFL2=10THEN540 

300  PR I NT " [ HOM 3  [ ÚRSRD J ANGULO* ",A 

310  RETURN 

320  P-P+2 : L2*L 2- 1 : FORD* 1 054 TG 1 062 • PU 
KED, 121 • PÜKED+542  72 , 2 • NEXT 
330  FORD* 11 74  TÜ 11 82 : PQKED ,120' POKEO+ 
54272,2 : NEXT 

340  F ÜRD* 1 093TO 1 253STEP40 : PÜKED , 1 1 8 : 
PÜKED+34272 , 2 : NEXT 
350  FORD* 1 1 03TO 1 302STEP40 ; POKED , 1 1 7 : 
POKED+54272, 2 : NEXT 

360  FORD* 1 294T0 1 302 : POKED , 1 20 : PÜKED+ 
54272,2 ; NEXT 

3  70  XC* I NT ( RND < 1 >*41 >  + 1 50 
380  VC*  I  NT  < RNi'K  1  >  *  1 6 ) + 1 25 
390  PRINTTH«<30)"[RVSONJ ICHNHOTH! " 

4Ü0  PR I NTT HB 30  ) "  1 2CR8RU  J  t RVSi  IN 3  L 9SPC 3 

" ■ FORT-0TO1100 : NEXT 

410  PRINT IABC30> " CRVSON3 L9SPC  J" :PRIN 

TTAB  í  33  )  "  [  C'F'SRD  3  "  P 

420  FÚRV-VTÜ227: IFX>255THENX=255 

430  I FVÍ0THENV=0 

448  POKEV+4 , X : POKEV+5 , V 

450  NEXT 

460  GUI U1 20 

470  F URJ=0 I 039 : POKE 1 984+ J , 121  P0KE56 
256+ J , 7 : NEXT 

480  FORI-0TO159 • P0KE1 144+1,81=  PÚKE55 
416+1 ,  8  : 1FI >28AND I O40T  HENPUKE 1 144+1, 

32 

490  I F 1 >68hND 1 <80 I HENPOKE 1144+1, 32 
500  IFIM08HNDK120THENPQKE1 144+1,32 

510  I F I > 1 48HND 1 < 1 60THENPOKE 1144+1, 32 

520  NEXT 
530  REVORN 

540  PRIN I " t CLP  1 [CPSRD3CRVSUN iHH5tSPC3 
(  uNbEGU  I  DO  L  RVSUF  F  3  L  SPC  3  ”  •  P ,  “  Pl  'H 1 05  " 

550  PR I N T " QU I ERESE ¿PC 3 VOLVER l SPC J H 1 5PC 3 
JUGAR?  <S7N,'“ 

560  GET V* : I FV*= " " T  HEN560 
570  IFV*="S" IHEN20 
560  END 

590  DAT H0 , 254 , tí • H , ¿ 39 , 1 28 ,72 ' 39 ■ 1 92 , 

27 , 239 ,176,5!, 239 ,120,1 25 , 230 , 252 , 1 2 

600  DHTH238 , 252  •  254 . 1 1  ü¡3 ,  254  ■  '55  •  1 09 , 

X54 .¿55,1 09 ,254, 255 , 1 09 , ¿54 , 255 , 1 09 , 

254 

6 1 0  DHTH254 , 1 00 . 254 , 254 • .  '38 , .  :54 , 1 26 • 

238 ■ 252 ,12b,  239 .124, 59 , 2 39 .164. 23 , 23 

r,20  DATAIS-, 239 •  224 •  3 , 239 ,  1 28 , 0 , 254 , 0 
630  DA TA0, 255, 0,3,0, 192, 12,0-63, 8, tí. 


Este  juego  es  realmente  interesante  porque  hace  falta  habilidad 
y  sangre  fría. 

Los  invasores  están  subiendo  por  las  paredes  de  nuestro 
castillo,  y  nosotros  hemos  de  evitarlo  tirándoles  piedras  a  la 
cabeza.  Hemos  de  acercarnos  a  uno  de  los  extremos  de  la 
pantalla  en  el  que  aprece  una  piedra.  La  cogemos,  nos 
situamos  encima  del  hombrecillo  al  que  vamos  a  lanzarle  la 
piedra  y  se  la  tiramos. 

Si  le  damos  en  la  cabeza  lo  derribaremos,  y  caerá  al  suelo.  Si  le 
damos  en  un  brazo  puede  que  se  enfade  y  nos  la  devuelva.  En 
este  caso  hemos  de  evitar  que  nos  dé  a  nosotros,  aunque 
también  podemos  cogerla  al  vuelo. 

Si  el  invasor  en  su  caída  choca  con  alguno  de  sus  compañeros, 
logrará  sujetarse  y  continuar  su  escalada,  pero  el  de  abajo  será 
el  que  sufra  las  consecuencias. 

A  medida  que  vamos  sobreviviendo,  aparecerán  más  y  más 
invasores,  hasta  que  no  podamos  contenerlos,  lleguen  arriba  y 
nos  maten.  Entonces  el  juego  comenzará  de  nuevo. 

Nuestro  hombrecillo  se  controla  con  las  teclas  Z,C  para  los 
lados  y  M  para  coger  las  piedras  y  tirarlas. 

El  inconveniente  de  estas  teclas  es  que  si  las  mantenemos 
pulsadas  puede  suceder  que  al  coger  la  piedra  la  tiremos  acto 
seguido.  Para  evitarlo  hay  que  cambiar  las  siguientes  líneas: 

100  get  a$:  if  a$=“”  then  190 

110  if  asc(a$)=13  then  500 

130  m=m+(a$=“(crsr  1)”) — (a$=“(crsr  r)”) 

De  este  modo  podremos  movernos  con  las  teclas  del  cursor  y 
coger  las  piedras  con  la  tecla  RETURN. 

1  PR=.  95 •' GGT017 :  (C3AIB  ■ 

2  PRINT" CHGH3  C2CRSRD3 "SPCCM) " CSPC3 " 

3  PRINTSPC(M) " C3SPC3  C3CRSRL3  CCRSRD3 [3SPC3 
[ 3CRSRL  3 [ CRSRD 3 [ 3CÜMM8  3 " 


|  Commodore  World 


ESPECIAL  PROGRAMAS 


4  RETURN 

5  PR I NT " [ HOM ] [  2CRSRD 3 " J 

6  IFCTHEN10 

7  PRIHT 

6  PR I NTSPC  < M 3 " [ SPC  3 0 [ SPC 3 [ 3CRSRL  3  [ CRSRD 3 
[SHIFTN3Í COMM+ ] [ SH I FTM 3 [ 3CRSRL 3 [ CRSRD 3 
[  SH I  FT@  ]  C  COMt-ie  3 [ SH I FTL  3 " :  RETURN 

10  PRINTSPC<M3 " [SPC3 [ RVSON 3 [ SPC  3 [ RVSOFF  3 
[SPC]" 

11  PR I NTSPC  <  M  3 " [ COMMM ] O  C  COMMG ] [ 3CRSRL ] 

[ CRSRD ] C  SPC ] [ COMM+ ] [ SPC ] [ 3CRSRL ] [ CRSRD ] 

[ SH I FTG ] [ COMMfl ] CSHIFTL] " : RETURN 

13  Hí=R  I GHTí  <  STRí<  SC  3 ,  LEN  <  STRí  <  SC  3  3 - 
1) 

14  PR I NT " C  HOM ] C  7CRSRR ] " SPC  <  5-LEN <  fií  3 
3fl$  ;  RETURN 

17  DIMX<83,V<83,Bí<33,K<83: CO-30720 : 

L»-l 

18  PRINT"  [CLR3 [4CRSRD3 " :  FORI*0TO8 :  X< 

I 3-0 : Vi  I 3=0 : K< I 3=0 : NEXT : S=0 : M-10 : FOR 
I  =  1 T022 : PR I NT ' "  C COMM0 ] " ;  : NEXT 

30  FOR I =78 1 2T08 1 64STEP22 : POKE I +CO , 6 . 
PÜKEI+CO+21 , 8 : POKEI ,  101  : POKE 1+21 , 103 
:  NEXT 

50  FOR I =8 1 64T08 1 85 : POKE I +CO, £ : POKE I , 

160 'NEXT 

60  Bí  <  0  3 = " [ 3SPC ] C  3CRSRL ] [ CRSRD ] [ COMMM ] 

[ SPC ] C  COMMG ] C  3CRSRL ] [ CRSRD  3 [ SH I FTM ] O 
C SH I FTN ] [ 3CRSRL ] C CRSRD 3 [ SPC  3 [ RVSON ] [CRN] 

C  SPC  3 [ RVSOFF ] C  BLU ] [ SPC  3 " 

65  Bí  O  3  =  " [ SPC ] C COMMG  3 [ SPC  3 [ 3CRSRL 3  [ CRSRD  3 
C  SPC  3  O  C  SH I FTN  3  C  3CRSRL  3 [ CRSRD  3  C  COMMM  3 
C  RVSON  3 [ GRN  3  C  COMMG  3 [ RVSOFF  3 [ BLU  3  C  SPC  3 
[ 3CRSRL 3  C  CRSRD  3 [ SPC  3 [ COMMM  3 [ SPC  3 " 

70  BÍ  <  2  3 = " [ SPC  3 [ COMMM  3 [ SPC  3 [ 3CRSRL  3  C  CRSRD  3 
[ SH I FTM  3  O [ SPC  3  C  3CRSRL  3 [ CRSRD  3 [ SPC  3 [ RVSON  3 
[ GRN  3 [ COMMG  3 [ RVSOFF  3 [ BLU  3  C COMMG  3 [ 3CRSRL 3 
[ CRSRD  3 [ SPC  3 [ COMMG  3 [ SPC  3 " 

75  Bi <  3  3  =  " [  3SPC  3  [  3CRSRL  3  C  CRSRD  3  C  3SPC  3 
[ 3CRSRL 3 [ CRSRD  3 [ 3SPC 3  L 3CRSRL 3 [ CRSRD  3 
C3SPC3" 

77  V$=" CHÜM3  C22CRSRD3 " 

80  Xi=" C23CRSRR3 " 

85  PR I NT " [ HOM  3 [ SPC  3  SCORE  C  SPC  3  00000 " : 

G0SUB5 

95  POKE7790;  100  '■  P0KE781 1  j  100 
97  PL=1 :  IFRND<1».5THENPL-18 
93  I FPL= 1 THENPÜKE7790+CO > 6 ■ POKE7790, 

160 

99  I FPL* 1 8THENP0KE78 1 1 +CO , 6 : P0KE78 1 1 

i  160 

100  P*PEEK( 1973 : IFP-64THEN190 
110  I FP=36THEN500 

120  G0SUB2 

130  M=M+  <  P*33 ) - ( P*34 ) 

140  IFMC1THENM=1 
150  IFMM8THENM-16 
160  G0SUB5 ' GOSUB 1 3 
190  IFS=0THEN300 

200  I FPEEK  <  S  3  * 1 5THEN600 

20 1  I FPEEK  <3-13-1 00ORPEEK <  S+ 1 3 - 1 00TH 
ENPOKES, 100 : GOTO203 

202  P0KES.32 

203  S=S+D : SC*SC+1 ; G0SUB13 : IFPEEKCS3* 
78THEN230 

204  I FPEEK (S3-77THEN250 

205  I FPEEK  <  S  3  =  1 5THEN600 

206  IFS>8163THENS=0 ; G0T095 

207  I FSC7702THENS-S+22 : POKES, 160 : D=2 
2 

210  POKES+30720 ¡  6 ; POKES  <160 
220  GOTO300 

230  I FS*7768+MTHENS*0 ¡ C= 1 ¡ GOSUB5 : GOT 
0300 

240  POKES, 160 : POKES+22, 125 : F0RT-1T02 
00 : NEXT 

245  D=-22 : S-S-22 : POKES ,160: POKES+22 , 

78 : POKES+44, 32 : FORT= 1 T099 ¡ NEXT : G0T03 


250  IFS=7770+MTHENS=0 : C*1 :G0SUB5 : GOT 
0300 

260  POKES ,160: POKES+22 , 1 09 : FORT» 1 T02 
00: NEXT 

265  D=-22  :  S-S-22  •'  POKES,  160 :  POKES+22, 

77 : PÜKES+44 , 32 : FORT= 1 T099 : NEXT : G0TÜ3 
00 

300  L=L+1 : IFL>8THENL-0 

310  IFK(L3THEN350 

320  IFRND< 1 3CPRTHEN100 

330^ V<L3-19:X<L3=INT<RND< 13*18+1 3 :K< 

340  I FPEEK < 8075+X < L 3 3<>32ORPEEK<8076 
+X  (  L  3  3  O320RPEEK  <  8077+X  <  L  3  3  032THENK 
(L3=0:GOTO100 
345  G0T0353 

350  PR I NTLEFTí  <  V*, V  <  L  3  3  i LEFT*  <  X$ , X  <  L 
33;B$(3); "CH0M3" 

352  V(L3*V<L3-1 : IFV<L3=6THEN800 

353  PRINTLEFTí <V$, V<L3 3; 

355  PRINTLEFTí<Xí , X(L3  3  i 

360  IFKÍL3-1THENPRINTBÍ < 1 3 i :K(L3*2:G 
0T0375 

370  I FK < L 3 «2THENPR I NTB$ < 2 3 ;  :K<L3  =  1 
375  PRINT" [HOM 3" 

380  GOTO 100 

500  I FMOPLORC*  1 ÜRSTHEN550 
510  G0SUB2 
520  C=1 : G0SUB5 

525  POKE7790 ,100: PÜKE78 1 1 ,  1 00 

530  GOTO 190 

550  IFC-0ORSTHEN190 

555  PRINT" [HOM] [2CRSRD3"J 

560  PR I NTSPC  <  M 3 " [ 3SPC  3 [ 3CRSRL 3 [ CRSRD  3 

[ SPC  3 [ RVSON  3 [ SPC  3 [ RVSOFF  3 [ SPC  3 [ 3CRSRL 3 

[ CRSRD  3 [ SPC  3 [ COMM+ 3 [ SPC  3 [ 3CRSRL  3 [ CRSRD  3 

[SHIFT03 [COMMÍ3LSHIFTL3 " 

565  FORT =0TO 1 00 : NEXT 
570  PR I NT " [ HOM  3 [ 3CRSRD  3 " ¡ 

575  PR I NTSPC  <  M  3 " [ COMMM  3  O [ COMMG  3 [ 3CRSRL  3 
[ CRSRD  3 [ SPC  3 [ RVSON  3 [ SPC  3 [ RVSOFF  3 [ SPC  3 
[  3CRSRL  3  [  CRSRD  3  [  SH  I FT8  3  [  COMMll  3  [  SH  I  FTL  3 

580  FORT=0TO10Ü  '■  NEXT 

581  PRINT" [H0M3 [3CRSRD3"; 

585  PR I NTSPC  <  M  3 " [ SPC  3  O [ SPC  3 [ 3CRSRL  3 [ CRSRD  3 
[ COMMT 3 [ COMM+ 3 [ CÚMMT 3 [ 3CRSRL 3 [ CRSRD  3 
[SHIFTÜ3 [RVSON 3 [SPC3 [RVSOFF 3 ÍSHIFTL3 

590  FORT-0TO 100: NEXT 

591  PR I NT " [ HOM  3 [ 3CRSRD  3 " , 

595  PR I NTSPC  <  M  3 " [ SPC  3  O [ SPC  3 [ 3CRSRL 3 [ CRSRD  3 
[ SH I FTN  3 [CÜMM+  3 [ SH I FTM  3 [ 3CRSRL  3 [ CRSRD  3 
[SHIFT03  [ COMMIS 3  [ SH I FTL 3  [ 2CRSRL 3  [ CRSRD 3 
[RVSON 3 [SPC 3 [RVSOFF 3" 

597  S=78 1 3+M : C-0 : D»22 

599  GOTO 190 

600  FORI=0TQ8 : IFS=7681+V< I 3*22+X< I 3T 
HEN610 

605  NEXT : GOTOS30 

610  R=I : PRINTLEFT$(V$, VCR3  3  3 LEFTÍ <X$ 

, X<R3  3 ; B$<03 ; "[H0M3 " 

620  I  FPEEK  <  768 1 +66+V  <  R  3  *22+X  <  R  3  3  032 
HNDV  <  R  3  C 1 8THEN670 

630  V  <  R  3  =V  <  R  3  + 1  :  S-S+22 :  SC-SC+ 1 0 :  GOSIJ 
B13: IFV<R3>19THEN700 
640  PRINTLEFTí<V$, VCR3  3  i 
645  PR I NTLEFT $<Xí,X<R33; 

650  PRINTB*<0>j"[HOM3“ 

660  GOTO620 

670  S=S+88: IFPEEK<S3=15THEN690 

675  IFPEEK<S-1 3=15THENS*S-1 : GOTO690 

680  I FPEEK  <  S+ 1 3  » 1 5THENS*S+ 1 

690  POKES-20 ,  32 : POKES-2 1,32: P0KES-22 

, 32 : POKES-23, 32 : POKES-24, 32 

695  PR I NTLEFTí ( Ví , V < R 3  3  J  LEFTÍ  < Xí , X ( R 

3  3 ; "  [  2C0MMM  3  [  SPC  3  [  3CRSRL  3  [  CRSRD  3  [  SPC  3 

O [ SPC  3 [ 3CRSRL 3 [ CRSRD  3 [ SPC  3 [ RVSON  3 [ GRN  3 

[ SPC  3 [ RVSOFF  3 [ BLU  3 [ SPC  3 [ 3CRSRL 3 [ CRSRD  3 

[ 2C0MMM  3 [ SPC  3 [ HOM  3 " 


699  SC=SC+500 : GOSUB 1 3 ; GOTO600 

700  PR INTLEFTÍ < V* - V< R ) - 1 > i LEFTÍ <  Xí ,  X 

l R > > i " C  CRSRD ] [ 3SPC 3 E 3CRSRL ] C  CRSRD 3 E COMMM 3 
E SPC  3 [ COMMG 3 [ 3CRSRL 3  C  CRSRD  3  E  SH I FTM  3  O 
E  SH I FTN  3  " ;  "  E  HOM  3  "  :  FORT- 1 TO70 :  NEXT 

705  PRINTLEFTÍ<YÍ,Y(R>-1);LEFTÍ<XÍ,X 

<  R ) 3 ; " C  CRSRD  3 1 3SPC 3 [ 3CRSRL 3  C  CRSRD  3 [ SH I FTM  3 
ESPC3  ESHIFTN3  E3CRSRL3  ECRSRD3  CSHIFTR3 
ESHIFTW3  CSHIFTR3 " ; " EH0M3 " : FORT=1TO70 
;  NEXT 

706  PRINTLEFTÍC Ví < 13) i LEFTÍCXÍ , X<R> > 
;B$<3);"[HOM3" 

710  K  <  R ) =0 • S=0 : PR=PR- . 0 1 : SC*SC+ 1 00  ¡  G 
0SUB13 : G0TÜ95 

800  PRINT" EHGM3  E5CRSRD3 " i LEFTÍCXÍ, X< 

L  )  ) ;  "  E  COMMG  3  Ü  C  COMMG  3  E  3CRSRL  3  C  CRSRD  3  E  C0MM2  3 
E  RVSGN 3  E  GRN3  E  SPC  3  E RVSGFF 3  C  BLU  3  C  CÜMMX  3 
E 3CRSRL 3  C CRSRD 3 E SH I FTN 3  E SPC  3  E SH I FTM 3 
" : FORT» 1TO300: NEXT 

805  PR  I  NT  "  C  HOM  3  E  4CRSRD  3  " ;  LEFTÍ  (  Xí ,  X  < 

L) > i  " CSPC30CSPC3  C3CRSRL3  ECRSRD3 ESHIFTG3 
E  RVSGN  3  E  GRN  3  C  SPC  3  E  RVSOFF  3  E  BLU  3  C  SH I FTL 3 
E3CRSRL3  E CRSRD  3  E  2C0MMM 3  E  SPC  3  E  3CRSRL  3 
E  CRSRD  3  E  3SPC 3 " : FÜRT=1 TO300 : NEXT 
810  PR I NT " E  HOM  3  E  3CRSRD 3 " ;  LEFTÍ  <  Xí , X  < 

L ) ) ; " E  SPC  3  O  E  SPC  3  E 3CRSRL 3  E  CRSRD  3  E  SH I FTN  3 
E  RVSGN  3  E  GRN  3  E  SPC  3  E  RVSOFF  3  E  BLU  3  E  SH I FTM  3 
E3CRSRL3  ECRSRD3  ESHIFTG3  ECOMMG3  ESHIFTL3 
E3CRSRL3E CRSRD  3  E  3SPC 3" :FGRT=1TÜ300:N 
EXT 

815  K-7769+XCL)  •  D=<X<L)>M)-CXaKM)  : 

K=K+D • POKEK-22, 100 : IFK=7769+MTHEN825 

620  POKEK/  32 :  K=K+D :  IFPEEK<K)O102flND 
DTHENPOKEKj  99 : F0RT=1TG99 : NEXT : GGT082 
0 

825  IFD=-1THEN840 

830  PRINT" EHGM3 E3CRSRD3 "SPC<M> J "ESPC3 
E  SH I FTM  3  O  E  SPC  3  E  4CRSRL  3  E  CRSRD  3  E  SPC  3  E  C0MM8 3 
E  CGMM+ 3  E  SH I FTM  3  E  4CRSRL 3  E  CRSRD  3  E  2C0MM8  3 
E  SH  I  FTN  3  E  CGMMlS  3 "  :  FGRT=1  TG950 :  NEXT 
835  PRINT" EHGM3 E3CRSRD3 "SPCOD J " E4SPC3 
E  4CRSRL 3  E  CRSRD  3  E  2SPC 3  E  COMMG  3  E  SPC  3  E 4CRSRL 3 
E  CRSRD  3  E  COMMG  3  E  SH I FTN  3  E  COMM+ 3  O  E  4CRSRL 3 
E  CRSRD  3  E  SPC  3  E  3C0MMT 3 " : FORT=l TO500 ¡ NE 
XT : GOTO850 

840  PR I NT " E HOM 3  E 3CRSRD3 “ SPC <M ) J " E SPC3 
O  E  SH  I  FTN  3  E  SPC  3  E  4CRSRL  3  E  CRSRD  3  E  SH  I  FTN  3 
E  COMM+ 3  E  COMMG  3  E  SPC  3  E  4CRSRL 3  E  CRSRD  3  E  COMMG  3 
E SH I FTM 3  E 2C0MMG 3  "  :  FORT>=  1 TO950  •  NEXT 
845  PR I NT " E  HOM  3  E  3CRSRD  3 " SPC  <  M ) ; " E 4SPC 3 
E  4CRSRL  3  E  CRSRD  3  E  SPC  3  E  COMMG  3  E  2SPC 3  E4CRSRL3 
E CRSRD  3 O E  COMM+ 3  E SH I FTM 3  E COMMG 3  E 4CRSRL 3 
E  CRSRD  3  E  3CÜMMT 3  E  SPC  3 " : FORT = 1 TO500 : NE 
XT ¡ GOTÜ850 

850  FORT=0TO4000  ¡  NEXT  :  RIJN 


Botón  RESET 

¿No  sabes  cómo  hacerte  un  botón  RESET?  Puedes 
hacerte  uno  desde  el  teclado  escribiendo: 

Poke  792,  peek(65532):poke  793,peek(65533) 

Cada  vez  que  pulsemos  la  tecla  RESTORE,  el  ordenador 
hará  reset.  Cuidado  porque  los  programas  que  tengamos 
almacenados  se  borrarán. 

Funciona  al  igual  en  el  VIC  y  en  el  64. 

B.G.R.  RUN  EE.UU. 


Es  necesario  un  joystick  en  el  port  ne  2  (junto  al  interruptor. 

El  coche  se  puede  mover  hacia  arriba  y  abajo,  izquierda  y 
derecha. 

Si  chocamos  contra  los  lados  u  otro  coche  se  oye  una 
explosión  y  comenzar. 

Podéis  cambiar  los  colores  y  el  tiempo  de  juego  (líneas  21,  22  y 
54).  P  es  la  puntuación. 


2  REM  *»*«  1984  «**« 

3  PRINT" ECLR3" 

4  PR I NTTRB (1 5 ) " E 2CRSRD  3  FORMULA  E  SPC  3 - 
E SPC 3 1 " 

6  PRINT" E2CRSRD 3 NUEST RO E SPC 3 COCHE E SPC 3 
SE  E  SPC  3  DESPLR2FI E  SPC  3  CON  E  SPC  3  JOYST I CK 

7  PR  I  NT  THB  <  7  )  "  E  2CRSRD  3  *-E  SPC  3 1 2QU I ERD 
HESPC3ÍESPC3DERECHHESPC3-ESHIFTZ3" 

8  PR I NTT  HB  < 1 0 ) " E  2CRSRD  3  TE  SPC  3  ARR I BH  E  SPC 3 
* E SPC 3 ABA JO E SPC 3 ! " 

10  V*5S248 : POKEV+21 >  7 
15  FORS1"12288TO123S0 : READQ1 : PÜKES1 > 

Ql : NEXT 

20  P0KE53276 , PEER ( 53276 ) 0R7 

2 1  POKE V+39 >  1 iP0KEV+46/b: P0KEV+4 1 <  7 

22  P0KEV+37  ¿  4 : POKEV+38 ■ 0 

23  REM  **•  COPIA  DE  RUTINA 

24  F0RX*49 1 52T049383 : READAi : GÜSUB500 
: POKEX^  D • NEXT 

30  PÜKE53280/ 13 : P0KE53281 - 13 
32  PRINT" ECLR3 " :p“0 
34  PÜKE2040, 192 : POKE2041 ; 192 ■ POKE204 
2,  192 

36  8VS  49152 
40  F0RX-1T025 

42  PR I N  T " E 1 0COMM+ 3  E  2 1 SPC  3  E  8C0MM+  3 " 

44  NEXTX 
50  TIí«" 000000" 

52  SYS  49240 
54  I FT I > 1 0000THEN250 
56  P-P+100 
60  G0T052 

250  PRINT"ECLR3 " : POKEV+21 /0 


232  PRINTTHBC203 " C2CRSRD3 TIEMPO E2CRSRD3 
234  PRINTTRB(20;>TI 

256  PRINT TRB < 20 ) " £ 2CRSRD 3PUNTOSL 2CRSRD 3 
258  PRINTTAB(20)P 

260  PR I N  T  THB  (  5 ') "  [  2CRSRD  3  QU I  ERES  E  SPC  3 
JUGAR [ SPC  J  DE [ SPC  3 NUE VQ C6PCJS/N" 

262  GETR$: IFA$*" "THEN262 

264  I FHí * " & " THENPÜKE V+2 1,7: G0T032 

263  I Ffl$<> " N " THENPR I  NT  "  [  2CRSRU 1 "  GUT 
0262 

266  PRINT " CCLR] " -END 

298  REM  **  DATAS  DE  SPRITE  ** 

300  DATA0, 40,0, 240, 40, 15,240,40, 15 
302  DRTH242, 170, 143,246, 150, 159,240, 

150, 15 

304  DRTR240, 170, 15,0, 105,0,0, 103,0 
306  DHTR0, 105,0,0, 103,0,0, 105,0 
308  DHTR0,  105,0,0, 105,0,240,85, 15 
310  DRTR240, 190, 15,246, 190, 159,242, 1 
70, 143 

312  BHTR240, 40, 15,240,40, 15,0,40, 15 

350  REM  ********  RUT 1 NR  C/M  ******** 

351  REM  *«  SONIDO  CHOQUE  DE  SPRITES 
** 

352  DRTHR2, 1U,R0,00,84,FB,CA,8E, 18, D 
4 , R9 , 8 1 

354  DAT R8D , 04 , D4 , R9 , 0F , 8D , 05 , D4 , R9 , 2 
4, 8D,  01 ,  D4 

356  DRTRR9, 50, 8D, 00, D4, A0, 00, C3, C0, F 
F,D0,FB 

358  DAT AA4 ,  FB ,  C8 , 84 ,  FB ,  C0 ,  40 ,  D0 ,  D9 ,  E 
0,00 

360  DRTRD0 , D0 , R9 , 00 , 8D , 04 , D4 , 8D ,  05 , D 

4 

361  RER  **  POSICION  INICIRL  DE  SPRIT 
ES  * 

362  DRTRR2, D2, 8E, 00, D0, R0, C8, 6C, 01 , D 
0,H2,9B 

364  DRTR8E, 02, D0, R0, 28, 8C, 03, D0, R2, F 
1 , 8E, Ü4, D0 

366  DRTRRÜ, 91 , 8C, 05, D0 

367  REM  **  CHOQUE  DE  SPRITE  1  ** 

368  DRTRRD, 1E, D0, 29, 01 , 09, 01 , F0, 9F, R 
D, 1F,D0 

370  DRTR29, 01 , C9, 01 ,  F0,  96 

371  RER  *  CONTROL  DE  JOYSTICK  V  SPRI 
TE  1  * 

372  DRTRRE , 00, D0, RD, 00, DC, C9, 7B,D0,0 
3,  Cfl,  Cfl,  Cfl 

374  DRTHC9, 77, D0, 03, E8, E8, E8, 8E, 00, D 
0, RC, 01 , D0, C9 

376  DRTR7D, D0, 02, C8, C8, C9, 7E, D0, 02, 8 
8, 88, 8C, 01 , D0 

377  RER  *  MOVIMIENTO  SPRITES  2  V  3  * 

378  DRTRRE, 02, D0, 8E, 02, D0, RC, 03, D0 
380  DRTRC8 , C8 , C8 , C8 , C8 , 8C , 03 , D0 , C0 , F 
0, F0, 16 

382  DRTRRE, 04, D0, 8E, 04, D0, RC, 05, D0, C 
8,C8,C8 

384  BRTRC8,C8,8C,05,B0,C0,F0,F0, 16,6 
0 

386  DRTRR0,0fl,8C,03,D0,E0,9B,D0,06,R 
2,  C6 

388  DRTR8E , 02 , D0 , 60 , R2 , 9B , 8E , 02 , D0 , 6 

390  DRTRR0, 28, 0C, 03, D0, E0, F1 ,  D0,  06,  R 
2,70 

392  DRTR8E , 04,  D8, 60, R2, F1 , 8E, 04, D0, 6 

500  D=0  :  F0RJ=1T02 :  D^*ASCCflí)  :  BüaD?i-4 
8+  <  I11064 )  *7 :  A  í =M  I Dt  <  A* ,  2  >  ■  D»  1 6*D+D* : 

NEXT 

502  RETURN 

3000  ,40,0,240,40,15,240,40,15 

I _ _ _ 


El  objetivo  de  este  juego  es  rescatar  a  6  astronautas  que  se 
encuentran  atrapados  en  la  Luna.  Para  ello  hemos  de  bajar  con 
nuestro  módulo  desde  la  nave  nodriza  y  aterrizar  en  una  de  las 
tres  plataformas  que  hay  en  el  suelo. 

Entonces  hemos  de  volver  a  la  nave  nodriza,  pero  hemos  de 
tener  cuidado  porque  unos  ovnis  que  recorren  la  pantalla 
intentarán  impedírnoslo  disparando  rayos  destructores. 

Nuestra  nave  se  controla  con:  Z=izquierda,  C=derecha  y  M 
para  disparar  a  los  ovnis  o  para  activar  los  propulsores 
mientras  bajamos,  para  evitar  los  asteroides. 

Cuando  teclee'is  el  programa  debéis  tener  en  cuenta  que 
algunas  líneas  ocupan  más  de  los  88  caracteres  permitidos,  por 
lo  que  tendréis  que  utilizar  algunas  de  las  abreviaturas  de  las 
palabras  clave. 


1  DIMP(5),J<5>,3<2>,K(2>,R|:(6),L:Í(6) 

: PÜKE36879 ,110: PQKE650 ,  255 

2  PR I  NT  “  [  CLR  ]  C  BLU  ]  [  RVSON  ]  í  4SPC  3  RESCR 
TE CSPCI LUNAR [ 5SPC ] " : FGRI=7680TÜ7?ül : 

POKE 1+30720, 1 :FORT=lTO90:NEXT:NEXT:ij 
0TÜ32 

7  REMÍOfl. IBRNEZ 

8  PR I NT " C HÜM 3 [ 1 7CRSRD3 CVEL3TCWHT3t 20SPC 3 
C  VEL  3  T  C  WHT  3  C  RVSON  3  C  RED  3 [ SPC  3 [RVSOFF 3 

C VEL 3 T [ WHT 3 C 1 8SPC 3 1 YEL 3 T C UHT 3 [ RVSON 3 
C RED 3  C SPC 3 [RVSOFF 3 " , 

10  PRINT  " C RVSON 3 [RED 3 C2SPC 3 [RVSOFF 3 

[ YEL  3  T [ WHT  3  C  7SPC  3 [ RVSON  3 1 00  í RVSOFF  3  C 6SPC 3 
[ VEL  3  T [ RVSON  3  C  RED  3 [ 2SPC  3  C  RVSOFF  3 " , 

11  PRINT  " [RVSON3C3SPC3  CRVS0FF3  C2SPC3 
[ RVSON  3  í WHT  3 1 50 [ RVSOFF  3  L 2SPC  3  C RVSON  3 

1 50  C  RVSOFF  3  C  6SPC  3  C  RVSON  3  [  RED  3  C  3SPC  3  [  RVSOFF  3 
C  RVSON  3  C  RED  3  C  3SPC 3 [ RVSOFF  3  C2SPC3 [ RVSON  3 
C  WHT  3  250 [ RVSOFF  3C2SPC3C RVSON  3  250  C  RVSOFF  3 
[ 2SPC 3  C  RVSON  3  250  C  RVSOFF  3  C  SPC  3  C  RVSON  3 
[ RED  3  C  3SPC  3 1  RVSOFF  3 " ; 

12  PRINT  “ C RVSON 3 [ RED 3 C 21 SPC 3 [RVSOFF 3 

“i :OOTO60 

32  Ní="[YEL3CSPC3[ COMML 3 E COMM V 3 C COMM J 3 
C  SPC  3 [ 5CRSRL 3  C CRSRD  3 [ SPC  3  C RVSON  3 [ COMML  3 
C  RVSOFF  3  C  WHT  3  C  SPC  3 [ VEL  3  C  RVSON  3  C  COMM J  3 
C  RVSOFF  3 [ SPC  3  í 5CRSRL 3 [ CRSRD  3  L SPC  3  C 3CÜMMT 3 
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ESPECIAL  PROGRAMAS 


Commodore  World 


[ SPC  3 " ¡ Si* " [ HOM  3 [ VEL  3 [ SPC  3  SCÜRE  í WHT  3 
"  ■  Vi- "  C  HÜt'1 3  [  PUR  3  [  1 4CRSRR  3  " 

38  Hi= " [ HOM  3 [ WHT  3 [ CRSRD 3  í 6CRSRR  3 " : Ft 
-  "  í  HQfl  3  C  VEL  3  C  CRSRD  3  [  14CRSRR3  FUEL  C  WHT  3 
" : Li=" CHOM 3 [5CRSRD3 " : GOTÜ2000 
43  Fi=" í HOM 3 [ VEL 3 C CRSRD 3 [ 1 4CRSRR3FUE 
L[WHT3":NV-3:SC»0:SC0)»l:SCl)— l:SC2 
)=0 : TT-200 : SP=50 

50  N=0 ¡ FU-800 : HH=0 : TT-TT-50 : SP-SP+50 
• PR I HT " C  CLR  3  C  7CR8RD  3 [ WHT  3 [ 6SPC 3  T [ SPC  3 
-"SP : FORT-1TO2000 : NEXT ¡ 00TÜ8 
60  W-0 : M-7749 : K  Í1 >* I NT  < RHD <1 ) *9+ 1 >  :  X 
-1 : K<2)*INT<RND< 0*9+1 10) :BS=22:F»1 : 
FORI*1TO100:NEXT 

65  PR I HT " [ HOM 3 [ CRSRD  3 " ¿  : FÜRI-1T016 •’ P 

R I  NT "  C 22SPC  3 " ;  NEXT :  FOR I -0TO5 

67  JC I >=0 ¡ PC  I >*7815+INTCRNBC 1 >*200)  = 

NEXT : E-l : N-N+l : IFN>6THENSC»SC+CSP#NH 
> • GOTO50 

70  PR I NTSi ; SC : PR I NTFt ; FU ¡ I FNH>0THENP 
RINTHi; : F0RI-1TQNH ¡ PRINT" CVEL3T" ; : NE 
XT 

72  POKE38305 - 2 : P0KE8 1 85 - 1 60 : PR I NT V* i 
"  [  SPC  3  [  CRSRL  3 " ;  :  I  FNV/0THENFOR  I  =  1 TONV 
; PRINT" CSHIFTQ3 " ; • NEXT ■ PRINT" CSPC3 " 

80  PRINT" CHOM 3  C2CRSRD3 " ; SPC CE) ; Ni  :  PO 
KEM, 1 : GETfli : IFñÍ="M"0RW>52ñNDRNDC 1 » 

.  34THEN30 

86  E=E+X : M-M+X ¡ W=W+ 1 : IFE> 1 70RE< 1 THEN 
X*X#-1 

87  F0RT*1TÜTT : NEXT • GÜTÜ500 

90  FOR I »M+2 1 TOM+23  =  POKE 1 , 32 • FORT- 1 TO 
100: NEXT: NEXT: GOTO 100 

95  POKEMj 1 : POKEM-BS-Di 32 : IFPEEKCM-1 ) 
-246THENSC-SC+SP :  NH-NH+1  •'  GOTÜ60 

96  FOR I =M+44TO8076STEP22 : POKE 1-22,32 
: POKE I +30720 , 1 : POKE 1,20: FORT- 1T093 : N 
EXT : NEXT : POKE 1-22, 32 : GOTO60 

100  GETfli : D-Cfli*"2" )-CfiÍ-"C" > : IFfli-" 
M"ftNDFU>0THEH200 
140  M-M+BS+D: IFMC7768THEN95 
145  I FPEEK  C  M  >  > 1 60THEN900 
150  I  FPEEK  C  M  '> 032ANDPEEK  C  M  )  0 1 THEN80 
0 

160  POKEM+30720, 7 : POKEM, 1 : POKEM-BS-D 
,  32 : GOTO500 

200  I FF-2THEN I -M-22 : G0T02 1 0 

205  E-E+ 1 : 1 FE>2THENE-0 : FU-FU- 1 NT C RND 

C 1 > *80+50  > : PR I NTF$ ; FU  J " [ CRSRL  3  C  SPC  3  C  WHT  3 

", :D=0: GOTO 140 

207  GÜTG145 

210  1  =  1-22 : 1 FPEEK  C I 3 -60ORPEEK  C I > -62T 
HEN220 

215  POKE 1 , 46 : POKE I +22 , 32 : 1 F I <78 1 3THE 
NPOKE 1,32: GOTO 140 
217  GOTQ210 

220  FORE-0TO5 : IFPCE3-I THENP C E ) -0 : POK 

El ,  160 : POKEI , 42 : POKEI , 32 : POKEI+22, 32 

■SC-SC+ 100: PRINT 

230  I F J  C  E  >  O0THENPOKE J  C  E  ) ,  32 

240  NEXT 

500  IFF-2THEN510 

502  KCD-KC13+1  :PRINTLi;SPCCKCl))LiC 
N> :KC2)=KC2)-1 : PRINTLi, SPCCKC2) )R$CN 

) 

503  I FMC7768THEN80 

504  FORT- 1 TOTT: NEXT : I FPEEK CM K>1 flNDP 
EEK  C  M  3O32THEN800 

506  GOTO100 

510  FORI-0TO5:  IFPCD-0THEN540 
515  PCI>-PCI)+SCINTCIX3>) :P0KEPCI),6 
1+SC INTC 1/3) ) : POKEPC I)-SCINTCI/3)),3 
2  : 1 F  J  C  I )  O0THEN530 

525  IFRNDC 1 )>. 9THENJC I )=PC I )+22 : POKE 
JC I  ) , 66 : GOTO540 

530  IFJC  I  )O0THENJC  I  )=JC  I  )+22 :  POKEJC 
I )  ,  66 : POKE J  C I ) -22 , 32 : I F J  C I ) >8053THEN 
POKEJC I), 32: JCI)=0 
540  I FPEEK  C M )  =  1 ORPEEK C M ) -32THENNEXT : 

GOTO 100 


800  POKEM-BS-D, 32 :FORI-1TO10: POKEM, 1 
60 :F0RT=1T09: NEXT: POKEM, 1 :F0RT-1T09: 

NEXT ¡NEXT : NV-NV-1 = IFF-1THENN-N-1 

820  IFNV>»0THEN60 

821  PR  I  NTS$ ;  SC  :  FORT- 1 TO5000 :  NEXT  :  RUN 

900  SC-SC+100: IFM>8120THENSC-SC+50: I 
FM>8 1 42THENSC-SC+ 1 00 
9 1 0  P0KEM-22-D ,  32 ¡ PR I NTSi i SC : POKEM-2 
, 32 : POKEM- 1 , 32 : POKEM, 1 : POKEM+1 , 32 ¡ PO 
KEM+2,32 

930  PR I NT " [ HOM 3 C 4CRSRD 3 " i  :F0RI  =  1T013 

: PR I NT " C  22SPC 3 " i  ■ NEXT : FORT- 1 TO 1 000 • N 

EXT :PRI NTSi ISC 

950  BS--22 : F-2 ¡ GOTO 100 

2000  LiC 1 )  =  " CSPC3 CSHIFTW3 C2CRSRD3 [2CRSRR3 

[ SPC  3 [ SH I FTW  3 [ 4CRSRR 3 [ 3CRSRD 3 [ SPC  3 [ SH I FTW 3 

[ 3CRSRR 3 [ 2CRSRU 3 [ SPC  3  C  SH I FTW  3 " : R$  C 1 ) 

»" [CRSRR3 [3CRSRD3 [SHIFTW3 CSPC3 [2CRSRR3 
C3CRSRD3 [SHIFTW3 [SPC3  C3CRSRR3  C2CRSRU3 
CSHIFTW3  CSPC3  C3CRSRR3  CCRSRU3  CSHIFTW3 
[SPC 3" 

2004  Li  C  2  )  -L1 C  1 )  +  "  [  6CRSRR  3  C  SPC  3  [  SH  I  FTW  3 
" :LÍC3)=LÍC2)+"[3CRSRR)[SPC3[SHIFTW3 
" :L$C4)»LÍC3)+"[CRSRR3[3CRSRU3[SPC3[SHIFTW3 


2010  LiC5)=LiC4)+" [CRSRR3CCRSRD3 CSPC3 
[SHIFTW3 " : LÍC6)-LÍC5)+“ [3CRSRR3 [2CRSRD3 
[ SPC  3 [ SH I FTW  3 " : Ri C  2 ) =Ri C 1 ) + " [ 2CRSRR  3 
[ 2CRSRD3 [ SH I FTW  3 [ SPC  3 [ CRSRL  3 " 

2016  RiC3)=RÍC2)+" [2CRSRR3  C2CRSRU3 [SHIFTW3 
[ SPC  3 [ CRSRL  3 " : Ri C  4 ) =R1 C  3 )  +  " C  2CRSRR  3 [ CRSRD  3 
[SHIFTW3 [SPC3 [ CRSRL  3":RÍC5)=RÍC4)  +  "[3CRSRR3 
[ 4CRSRU  3 [ SH I FTW  3 [ SPC  3 [ CRSRL  3 " 

2022  Ri<6)=RÍC5)  +  " [6CRSRR3 C5CRSRD3 [SHIFTW3 
[SPC3 [CRSRL3 " :G0T049 


Siete  y  media 


Este  programa  es  cortísimo  pero  muy  divertido.  Todo  consiste 
en  tener  un  poco  de  suerte  y  saber  plantarse  a  su  debido 
tiempo.  Tienes  un  30%  de  que  te  salga  la  media  y  un  10%  en 
los  demás  núm.  El  programa  está  basado  en  el  popular  juego 
de  cartas  llamado  de  igual  nombre. 

El  ordenador  hace  de  banca  y  te  da  cartas  hasta  que  te  plantes. 


Más  tarde  él  descubre  su  carta  y  entonces  pueden  pasar  dos 
casos: 

Si  la  puntuación  de  su  carta  es  mayor  o  igual  a  la  tuya  gana 
la  banca  (el  ordenador). 

— Si  la  puntuación  de  su  carta  es  menor  que  la  tuya  entonces 
ganas  tú. 

Pero  ojo,  ya  que  si  te  pasas  de  7,5  pierdes. 

Es  muy  interesante  el  programa  ya  que  lo  he  programado 
(válgame  la  redundancia)  con  el  objetivo  de  que  el  ordenador 
no  se  dé  por  aludido  hasta  que  la  puntuación  de  sus  cartas  sea 
mayor  o  igual  a  la  del  jugador,  pero  claro:  hay  veces  en  las  que 
también  se  pasa  por  avaricioso. 

Cuidado  con  el  refrán:  LA  AVARICIA  ROMPE  EL  SACO. 
¡¡¡Suerte  y  a  jugar  contra  la  máquina!!! 


4  F"0 ; S*0 

3  PRINT" ICLR3 " :  POKE53280<  4  '  P0KE5328 1 
<0 

20  A“INT(RND( 1 )É 103+1 
23  IFA>7THENA“0. 5 

30  F-F+ A : PR I NT " í PUR  3  C  6SPC  31 6CRSRD 3 TU 

¡F 

40  I FF>7 .  5THENPR I NT " C  PUR  3  C  6SPC 3  TE  í SPC  3 
H AS  C  SPC  3  PASADO  C  SPC  3  POR .  .  .  "F-7.5"PUNT 
OS" :GOTO120 

50  PR I NT " C  6SPC  3  QU I ERES  C  SPC  3  MAS  C SPC  3  C 
ARTAS7CSPC3 (SXN)  " 

60  GETA* ¡ IFAf="S"THEN3 
70  IFAÍO"N"THEN60 
75  V-INTCRNDO 3*103+1 
85  IFV>7THENV»0.5 
90  S-S+V 

93  IFS<FTHEN75: IFS>FTHEN95 

95  PR I NT " C  PUR  3  C  6SPC  3  C 3CRSRD3 LH l SPC 3 B 

ANCA : " 1 S 

98  IFS>7. 3THEN  PRINT» [CVN3C6SPC3TUCSPC3 
GANAS. LA í SPC  3 BANCA  C  SPC  3  SE  C  SPC  3  HA  C  SPC  3 
PASADO ! I ! " 

100  IFF>SANDA-<7.5  THENPRINT"CCYN3[63PC3 
TU C SPC 3 GANAS! ! ! " 

105  IFF-STHENPRINT" CPUR3 C6SPC3EMPATE 
: OANRCSPC3LACSPC3BANCA ! ! !" 

110  1 FF<SANDS*<7 . 5THENPR I  NT  "  C  6SPC3GA 
NA C SPC 3 LA C SPC 3 BANCA! I I" 

120  PRINT" C2CRSRD3  CPUR3  C6SPC3GUIERES 
[ SPC  3  JUGAR  [ SPC  3  OTRA [  SPC  3  VEZ?  C  SPC  3  <  S/ 

N>" 

130  GETB*:iFB*-"S"THEN4 
140  I FBÍ O " N "  THEN 1 30 


Othello 


Alvaro  lbáñez 

VIC-20 

Cardenal  Silíceo,  20 

28002  Madrid 

+3K 

superexpander 

El  Othello  es  un  juego  de  inteligencia,  del  estilo  del  “Go”  o  de 
las  damas. 

Cómo  se  juega  al  Othello 

Para  los  que  no  sepáis  cómo  se  juega,  explicaré  las  reglas. 

El  tablero  consta  de  8X8=64  casillas,  todas  del  mismo  color. 
Hay  dos  jugadores,  y  cada  uno  tiene  las  fichas  de  un  color; 
blancas  o  negras.  Comienzan  siempre  las  negras. 

Al  principio  del  juego  hay  colocadas  cuatro  fichas  (dos  de  cada 
color)  en  el  centro  del  tablero. 

Se  juega  por  turnos,  colocando  una  ficha  del  color  propio. 
Cada  ficha  que  se  coloca  ha  de  capturar  al  menos  a  una  ficha 
contraria. 

La  captura  se  realiza  cuando  dos  fichas  propias  encierran  a 
una  o  más  fichas  contrarias  en  cualquier  dirección,  también  en 
diagonal.  Si  no  se  puede  capturar  ninguna  ficha,  se  cede  el 
turno  al  contrario. 

Las  fichas  que  se  capturan  no  se  retiran  del  tablero,  sino  que 
cambian  de  color,  de  modo  que  las  fichas  contrarias  que  se 
capturan  pasan  a  ser  fichas  propias. 

Se  sigue  jugando  hasta  que  se  ocupan  todas  las  casillas  del 
tablero  o  hasta  que  ninguno  de  los  jugadores  pueda  hacer  un 
movimiento  legal. 

El  ganador  es  el  que  más  fichas  tiene  cuando  se  acaba  la 
partida. 

El  programa 

El  programa  ofrece  varias  opciones: 

1.— Un  jugador:  Jugamos  nosotros  contra  el  ordenador. 
otraD°S  ^Ugadores:  Para  que  jueSuen  dos  personas  una  contra 

3. — Programación:  Para  programar  posiciones  y  comenzar  a 
jugar  a  partir  de  ahí. 

4. — Demostración:  El  ordenador  juega  contra  sí  mismo  para 
enseñarnos  cómo  se  hace. 

Si  elegimos  la  opción  1  (la  más  interesante)  podremos  juegar 
contra  el  ordenador.  El  ordenador  no  juega  simplemente  a 
comer  la  mayor  cantidad  de  fichas  posibles,  sino  que  tiene  en 
cuenta  la  altura  del  juego  a  la  que  estamos,  y  hace  una 
valoración  del  tablero  dependiendo  de  cómo  vaya  la  partida. 
veceUCde  dCCÍr  qUe  3  Un  ■’Ugador  medio  le  Sana  la  mitad  de  las 

En  las  otras  opciones  el  ordenador  nos  hará  preguntas  como 
¿tu  color?,  ¿quién  juega  primero?,  ¿dónde  colocas  la  ficha?,  etc. 


Magia 


Detección  de  errores  en  disco 

Cuando  el  LED  de  la  unidad  de  discos  se  encuentra  deste¬ 
llando  es  señal  de  que  algún  error  se  ha  dado  mientras  esta¬ 
bas  usando  el  disco.  Para  averiguar  cuál  es,  añade  la 
siguiente  línea  a  tu  programa: 

0  OPEN15,8,15:INPUT@15,A,B$:PRINT  A,B$:CLOSE15: 
END 

Ahora  haz  RUN.  El  LED  dejará  de  parpadear  y  en  la  panta¬ 
lla  aparecerá  el  tipo  de  error  que  has  cometido  y  una  breve 
descripción. 

En  las  páginas  69-74  del  manual  del  usuario  se  encuentra 
esta  lista  de  errores. 

R.A.A.  RUN  EE.UU. 


Para  decirle  dónde  vamos  a  mover,  basta  con  indicarle  la  fila  y 
la  columna  (a-h  y  1-8).  No  hace  falta  que  pulsemos  RETURN. 
Cuando  no  podemos  mover,  tenemos  que  decirle  que  movemos 
a  0,0. 


7  READA*:iFRÍO"E"THEN7 

8  P0KE56  -  28  ¡  P0KE52 , 28  ■  P0KE5 1,0:  P0KE5 
5,0 

9  READC : IFCTHENFÜRJ=0TO7 : READK : P0KE7 
1 68+C#8+J ,  K :  NEXT :  G0T09 

10  DIMCí63),M<63),X<7),V<7),fl$<2) :PR 
INT" [CLR] " : P0KE36869, 240 : RESTORE 

12  FORI=0TO7  :  READXC I ) ,  Vil  >  :  NEXT :  GOSU 
B650 :  Ai  C.  0  > = "  tüñ  [  2CRSRL  ]  C  CRSRD  ]  BC  "  :  Ai  < 

1  )  =  " DE C 2CRSRL ]  C CRSRD 3FG"  :  ñ$<2)»"Hl  [2CRSRL] 
[CRSRD] JK 

23  V=0 : EN*0 : MIN®27 : MAX-36 : TU*1 

24  Yi= "  [  HOM  ]  [  22CRSRD  ]  "  :  Si- 11  [  RVSON  ]  C  6SPC  ] 

[ SPC ] C  5SPC ] [ SPC ] C  8SPC ] C  HOM ] " : GOTO400 

25  PÜKE36879 , 25 : PÚKE36869 , 255 : PR I NT " 

C  CLR ] [ BLU ] [ CRSRR ] " , 

30  F0RI=1T09 :  PRINTRt<2)  "  [CRSRU]  "  ;  :  NE 
XT : PRINT : PRINT 

40  FOR 1 - 1  TOS : PR I NT " [ CRSRR ] " Ai  < 2 ) " [ CRSRU ] 

"j  :FÜRJ»lT08:PRINTñ$<2)"CCRSRU3";  : NE 
XT 

45  PR I NT " [  CRSRD ] C  RVSON ] [ CRSRR ] " M I Di  < 
STR$<9-I ) , 2> : NEXT 

50  PR I NT " [ CRSRD  D  C 4CRSRR ] [ RVSON ] fi  C  CRSRR  3 
B [ CRSRR ] C  C  CRSRR ] D  C CRSRR ] E [ CRSRR ] F [ CRSRR ] 
GCCRSRR1H 

51  IFS-3THENRETURN 

55  C= 1 : X=3 : Y®3 : GOSUB800 : X=4 : Y=4 : GOSU 
B800 : C=2 : X®4  =  V®3 : ÜOSUB8O0 ¡ X=3 ¡ Y®4  =  GO 
SUB800 
57  RETURN 

60  IFNJ=60THENEN=1 : RETURN 

61  GÜSUB660 : SW=0 ; GOSUB700 

65  IFTi*"00" THEN I FPS* 1 THENEN* 1 : GOSUB 
670 : FORT® 1 TO200 : NEXT  =  RETURN 

66  I FTi® " 00 " THENPS® 1 : GOSUB670 : FORT- 1 
TO200 : NEXT : RETURN 

70  PS®0 : NJ=NJ+1 : X1=RSC(LEFTÍ(TÍ, 1 )  )- 
65 : Y1=8-VAL<RIGHT$(T$, 1)) :C=PP:X-X1 : 

Y»  VI 

71  IFC<X+Y*8)-0THEN73 

72  PR I NTY$ " [RVSON ] [ 3SPC ] MO V I M I ENTO [ SPC ] 

I  LEGAL [ HOM ] " : FORT- 1 TÜ 1 500 : NEXT : PR I NT 
YiSt : NJ»N J- 1 : TU-3-TU : GOTO60 

73  GOSUB670 : GOSUB750 : IFX+VÉ8CMIN  THE 
NM I  N»X+V#8 : 1 FM I NOTHENM I  N®9 

74  IFX+Y*8>MAXTHENMRX=X+Y*&: IFMAX>54 
THENMHX=54 

75  FÜRJ-0TÜ7 : X®X1 : Y® VI : R=X+X< J) ¡ B»Y+ 

YCJ> 

80  IFñ<0ORÑ>7ORB<0ÜRB>7THEN97 
85  I FC  ( R+B*8  >  OCPTHEN97 

90  F0RK=lT07:fl=R+X<J) :B=B+Y<J) 

91  IFHC0ORR>7ORB<0ÜRB>7THEN97 

92  I  FC  ( R+B#8 )  OCPTHEN94 

93  NEXTK 

94  I  FC  <  A+B*8  >  OPPTHEN97 

95  A=X : B»V : FÜRK=1T07 ¡ R®A+X< J) : B=B+Y< 

J>  :  I FC  <  A+B*8 )  =PPTHEN97 

96  X=A : Y=E : C=PP : FORT® 1 TO200 : NEXT  =  SW* 

1  : GOSUB800 : NEXTK 

97  NEXTJ : IFSW=1THENRETURN 

98  PRINTYí" [ RVSON ] [ 3SPC ] MOV I M I ENTO [ SPC ] 
ILEGAL [HOM]" : FORT® 1TÜ 1500 : NEXT : PRINT 
YiS$ : NJ-NJ-1 : TU®3-TU 

99  C=3 : X®X 1 : Y® V 1 : GOSUBS00 ¡ GOTO60 

100  IFNJ=60THENEN=1 : RETURN 

1 0 1  GOSUB 660 : PR I NT " [ HOM ] [ 2CRSRD  3 [ CRSRR ] 
[SPC]" 

1 02  I FN J>20ftND J2-0THENGOSUB650 : J2» 1 

1 03  I FNJ>40RNDJ3=0THENGÜSUB650 : J3= 1 : 

110  BEST =0 : FOR I =M I N-9T0MRX+9 
115  IFCCI  >O0THEN200 


120  Y-INT < 1X8) 

125  X=I-Y*8 

130  TP=0 : FOR J=0TO7  ¡  R*X : B=Y 

135  A=ñ+X(J) :B=B+Y(J) : IFRC0ORR>7ÜRB< 

0ÜRB>7THEN195 

140  IFC(R+B*S)OPPTHEN195 

145  FQRK=1T07 : A=h+X( J> : B=B+Y< J) : IFfi< 

0ORR>7ORBC0ORB>7THEN195 

150  I  FC  ( ft+B*8  )  OPPTHEN 1 60 

155  NEXTK 

160  I  FC  <  R+E*8  )  OCPTHEN 1 95 

165  TP*TP+M< I >-K*<V-l >-< V®0> 

170  I F ( TP>BEST > OR  < < TP=BEST ) RNDRND < 1 ) 

> . 5 ) THENBEST =TP : BESTÍ=STR1 ( X  >  +STR$  <  V 

> 

195  NEXTJ 

200  NEXT I : PR I NT " [ HOM ] [ 2CRSRD ] [ CRSRR  ] 

[ RVSON] [SPC ] [RVSOFF]" 

201  IFBEST=0THENI FPS* 1 THENEN® 1 : GOSUB 
670 : FORT® 1 TO200 : NEXT : RETURN 

202  I FBEST =0THENPS® 1 : GOSUB670 : FORT® 1 
TO300 : NEXT : RETURN 

205  NJ=NJ+ 1 : PS=0 : X 1 =VHL  C  LEFTt  < BEST* , 
2)>:Y1=VAL<RIGHTÍ<S£STÍ,2)) ¡X-Xl : Y«V 
1 ¡ C=CP : GOSUB670 

206  GOSUB750: IFX+Y*8<MIN  THENMIN=X+Y 
*8:  IFMI  NOTHENM  IN®9 

207  IFX+Y¡K8>MfiXTHENMRX«X+Y*8: IFMRX>5 
4THENMRX®54 

210  FORJ=0TO7 : X=X1 ; Y=Y1 : A=X+X< J) : B®Y 
+Y(J) 

2151 FR<0ÜRR>7ORB<0ÜRB>7THEN260 
220  I  FC<  A+B*8 ')  OPPTHEN260 
225  F0RK=1T07 : A=A+X< J> ; B=B+V( J) 

230  IFRC0ORfi>7ÜRBC0ORB>7THEN260 
235  I  FC  ( A+B*8  i  OPPTHEN245 
240  NEXTK 

245  I FC  <  R+B*8  > OCPTHEN260 

250  fi=X ¡ B=Y : F0RK= 1 T07 : fi=R+X (  J)  : B=B+V 

<  J>  :  IFC<A+B*8)=CPTHEN260 

255  X=R • Y=B : C»CP : FORT* 1 TÜ200 : NEXT : GO 

SUB800 : NEXTK 

260  NEXTJ  RETURN 

300  PRINTYÍ" [ RVSON ] BLRNCRS [ SPC ] 00 [ 2SPC ] 
NEGRAS [SPC] 00 [HOM]" 

310  FORI=0TO63 : 0=0-(C( I )®1 ) : P®P-CCC I 
>=2) 

330  R$=MID$<STRÍ<0),2> : PRINT YÍSPCC 10 
-LEN  <  R* ) ) " [ RVSON ] " A$ " [ HOM ] " 

335  Rí =MI Di < STRÍ  < P ) , 2 ) : PR I NTVSSPC  <  2 1 
-LEN ( R$  >>"[ RVSON ]" Ri “ [ HOM ] " 

340  NEXT : PR I NT " [ HOM] [ RVSON ] [ 5SPC ] PUL 
Sfi[SPC]3HIFT[5SPC] " :WRIT653, 1 :RUN10 
400  P0KE36879 , 8  =  PR I NT " [ HOM ] [ RVSON ] [ BLK ] 

[ 8SPC ] OTHELLO [ 7SPC ] [ WHT ] 

405  FOR I =38400TO3842 1 : POKEI , 1 : FORT-1 
TO90 : NEXT : NEXT 

410  PR I NT " [ CRSRD ] [ SPC ] <  C ) RLVRROI SPC ] 
IBRNEZ 

4 1 5  PR I  NT " [ 2CRSRD ] [ 5SPC ] EL I  JE : [ RVSOFF ] 

420  PR I NT " [ 2CRSRD ] [ 2SPC ] [ RVSON ] 1 [ RVSOFF ] 
[SPC] UN [SPC] JUGADOR 

425  PR I NT " [ 2CRSRD ] [ 2SPC ] [ RVSON ] 2 [ RVSOFF ] 
[ SPC ] DOS [ SPC ] JUGADORES 
430  PR I NT " [ 2CRSRD ] [ 2SPC ] [ RVSON ] 3 [ RVSOFF ] 
[SPC] PROGRAMAR 

435  PR I NT " [ 2CRSRD ] [ 2SPC ] [ RVSON ] 4 [ RVSOFF ] 
[SPC] DEMOSTRACION 

440  GETAi : I F VAL < R$ ) < 1 ORV AL < Ai ) >4THEN 

440 

44 1  S=VAL < A$ ) : FOR I  =  1  TOS : P0KE78 14+3*6 
6,32: FORT® 1 TO 1 50 : NEXT : P0KE78 1 4+S*66 , 
176+S 

442  FORT® 1 TÜ200 : NEXT : NEXT : G0SUB25 

443  ONSGÜTO450, 460,470, 500 

450  PR I NT' Vi " [ RVSON ] TU [ SPC ] COLOR [ SPC ] 

( BXN ) 7 [ SPC ][ RVSOFF ] [SPC ][ CRSRL ]";: CH 
=0 : H=15 
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45 1  GGSUB690  : 1 FRÍO "B" ANBAtO " N " THEN 
H=  1 5 : CH=0 : GGTG45 1 

452  PR I NT " E  R VSGN  3 " Ai " [ RVSOFF ] E HGM 3 " ; 

CP=2 : PP=1 : IFA$="N"THENPP=2 : CP=1 

453  F0RT-1T0999  •'  HEXT :  PRINTViSt 

455  IFCP=2THEH457 

456  GGSÜB60 : I FEN= 1 THEN300 

457  GOSUB100' IFEN-1THEN300 
456  G0T0456 

460  PP=2 : CP= 1 : GGSUB60 : I FEN= 1 THEN300 
465  PP=1 : CP=2 : GOSUB60 : IFEN-1THEN300 

469  GOTO460 

470  PR I NTVtSIVt1 "  [ RVSON 3 LUGAR? [ SPC 3 £ RVSGFF ] 
C  SPC 3 [ RVSON 3 E CRSRL 3 " i : GGSUB70 1 : I FTi- 
"00"THEN490 

475  NJ-NJ+1 : PRINTVi" ERVS0N3  E 1 1CRSRR] 

COLOR? E  SPC  3  E RVSGFF ] E SPC ] C CRSRL 3 " ,  : GO 
SUE690 

480  X-MSC< LEFT i  E  Ti ,  1 >3-65  :  V=8-VAL<RI 
GHTiCTi, 1 ) > : C=1 : IFAí="N"THENC-2 
485  GOSUB800 : PRINTViSi : FORT-1TO300 ¡ N 
EXT ; GOT 0470 

490  PR I NTViSiVi " E  RVSON 3 TU  C  SPC 3 COLOR ( 

B/N> ?E SPC 3 C RVSGFF] [ SPC] C CRSRL]"; :Q0S 
UB690 :  PP-  1  :  :  CP-2  ■'  I  FAS- "  N "  THENPP=2 :  CP 

495  PR I  NT ViSi Vi " E RVSON ] QU I EN  E  SPC 3 MUE 
VE  £ SPC ] < B/N  >  ?  £  SPC ] £  RVSOFF ] £  SPC ] £  CRSRL 1 
", : GGSUB690 • PRINTViSi 

496  MIN=9 : MñX=54 : TU=1 : IFñÍ="B"THENTU 
=2 

497  IF  (  fií ■  "  B  "  RNDPP»  1  >  GR  <  fti»  "  N  "  FINBPPa 
2)THEN456 

498  G0T0457 

500  CP«2 : PP=1 : GOSUB100 : I FEN= 1 THEN300 
505  CP= 1 : PP=2 : GGSUB 1 00 • I FEN= 1 THEN300 
510  GGTO500 

650  FGRI-0TG7  •'  REfillñi  :  FORJ-0TO7 :  M<  1*8 
+J)»ñSC<MIDÍ<fiÍ,  J+l,  1))-64:NEXT:NEXT 
•'  RETURN 

660  TU*3-TU  '•  I  FTU=  1 THENPR I  NT  "  £  H0M3  £  4CRSRR  ] 

£  RVSON  3  MUEVE  £  SPC ] EL  £  SPC ] BLANCO  £  RVSOFF  3 
" : RETURN 

665  PR I NT " £  HGM  3  £ 4CRSRR 3  £  RVSON  3  MUEVE  £  SPC  3 
EL  £  SPC  3  NEGRO  £  RVSOFF  3 " : RETURN 
670  PRINT" EH0M3 "Si : RETURN 

690  GETñi : IFRi="B"ÜRFlÍ="N"THENRETURN 

691  H=H+1 : IFHC15THEN690 

692  H=0 : 1 FCH«1 THENPR I NT "£ RVSON 3  £SPC3 
£  RVSGFF  3  E  CRSRL  3 " i  ■ CH»0 : G0T069G 

693  CH= 1 : PR I NT " E  RVSOFF  3  £  SPC  3  £  CRSRL  3 " 

; : GOTG690 

7Ü0  PR I NT ViSi Vi " £  RVSON 3  E  SPC  3 MOV I M I EN 
T O?  £  SPC  3  £  RVSOFF  3  E  SPC  3  £  CRSRL  3 " i 
701  PGKE198, 0 : CH=1 : Ti=" " 

705  GETFli  :  IFfl$="  "THEN740 

707  I  FFlSC  C  ftt ')  “20RNBLEN  <  Ai  > = 1  THENTt= " 

" : PR I NT " C  RVSGFF  3  £  CRSRL  3  £  SPC  3  E RVSON  3  £  SPC  3 
£  2CRSRL 3 " J  : CH=0 : H=0 : GOTO705 
710  I FTi- " " THEN I F < Ai< " A “ GRAt> "H") AND 
AtO"0"  THEN705 

715  I FLEN < Ti ) ■  1 THENI F < VAL <fl$ ) >80RVAL 

<  Ai  > =0 )  HNDAiO "  O  "  THEN705 

720  I FLEN  <  Ti  ) = 1  THEN  I F  <  Ai  -  "  0  "  ANDTiO  " 

0  "  )  OR  <  AiO  "  0  V  ANDT  i=  "  0  "  3  THEN705 
725  PRINT" £ RVSON 3 "Ai" E RVSOFF 3 " ; : TÍ=T 
i+Ai  •'  IFLEN<TÍ)=2THENRETURN 
730  CH=0:H=15 

740  H=H+1 : IFHC15THEN705 

741  H=0: IFCH=0THENCH=1 : PRINT" ERVSON3 
E SPC 3 E RVSGFF 3  £ CRSRL 3 " i  :GGTG705 

742  CH=0  :  PR  I  NT 11  £  SPC  3  £  CRSRL  3  " ;  :  GGTO70 
5 

750  S-C  ■’  FÜRJ=1T04  :  C»S  :  GOSUB800 :  FORT- 
1TO200 : NEXT : C-3 : GOSUB800 : FORT- 1T0 150 
: NEXT : NEXT 


776  C=S : GOSUB800 : RETURN 

800  PR I NTLEFT i < Vi , VÍ2+3  >  SPC  <  X#2+3 ) Ai 

(C-l ) : C<X+V*8)=C+C*<C=3> : RETURN 

849  BATA-1 , -1 , 0, -1 , 1,-1, -1,0,1, 0,-1. 

1,0, 1, 1, 1 

850  BATA  TAEBBERT 

851  BATA  AtíCBBCiíA 

852  BATA  ECFBBFCE 

853  BATA  BBBSlsBBB 
654  BATA  BBB60BBB 

855  BATA  ECFBBFCE 

856  BATA  AaCBECSA 

857  BATA  TAEBBEAT 

860  BATA  TAGFFGAT 

861  BATA  A0BEEB0A 

862  BATA  GBGCCGBG 

863  BATA  FECSSCEF 

864  BATA  FEC0@CEF 

865  BATA  GBGCCGBG 

866  BATA  A0BEEB0A 
667  BATA  TAGFFGAT 

870  BATA  TACAACAT 

871  BATA  AÉCBBCSA 

872  BATA  CCBAABCC 

873  BATA  ABASTABA 

874  BATA  AEAfieAEA 

875  BATA  CCBAABCC 

876  BATA  AQCBBC8A 

877  BATA  TACAACAT, E 

900  BATA. 1,0,3,12,16,32,32,64,64 

901  BATA1, 0,192,48,8,4,4,2,2 

902  BATA2,64,64,32,32, 16, 12,3,0 

903  BATA3, 2, 2, 4, 4, 8, 48, 192, 1 

904  BATA4, 0,3, 15,31,63,63, 127, 127 

905  BATAS, 0, 192,240,248,252,252,254, 


908  BATAS, 0,0, 0,0, 0,0, 0,0 

909  BATA9, 0, 0,0, 0,0, 0,0,0 

910  BATA10,0,0,0,0,0,0,0,0 

911  BATA1 1,0, 0,0, 0,0, 0,0,1 

932  BATA32 , 255 , 255 , 255 , 255 , 255 ,255,2 
55,255,0 


Magia 


Pokes  simplificados 


En  vez  de  hacer  lo  siguiente: 

Poke  1024,8  l:poke5 5296,1  (para  colocar  un  círculo  en  la 
esquina  superior  de  la  pantalla).  Es  más  fácil  y  útil  hacer 
co=54272 

Poke  1 024,8 1 :  poke  1 024+co,  1 

En  el  VIC,  el  1024  es  7680  y  la  variable  CO  ha  de  ser 


Hueco  entre  programas 

Un  buen  truco  es  dejar  10  pasos  de  contador  entre  pro¬ 
grama  y  programa  cuando  los  grabes  en  una  cinta.  De  este 
modo  podrás  ampliarlos  y  guardarlos  en  el  mismo  sitio  sin 
tener  que  mover  los  demás  programas. 

A.L.  RUN  EE.UU. 


En  este  programa  lo  esencial  es  la  buena  suerte.  Está  basado 
en  las  máquinas  de  las  frutas  (máquinas  que  se  encuentran  en 
los  bares  y  en  los  casinos),  pero  mucho  más  simple 
lógicamente. 

El  ordenador  comienza  haciéndote  una  pregunta  a  la  cual  le 
tienes  que  responder  con  el  número  al  que  pretendes  llegar  con 
las  menores  tiradas  posibles. 

Me  explico: 

Salen  cuatro  figuras  moviéndose  aleatoriamente  en  la  pantalla 
y  se  paran  pulsando  una  tecla.  Si  las  figuras  que  has  parado 
coinciden  con  las  figuras  de  los  premios,  el  ordenador  te  regala 
tantos  puntos  como  se  indique  en  el  premio. 

Se  gana  cuando  se  supera  la  puntuación  fijada  por  el  jugador 
en  menos  tiradas  que  las  también  fijadas  por  el  mismo. 

Se  pierde  cuando  el  número  de  tiradas  sea  mayor  que  las 
fijadas  por  el  jugador  al  comienzo  del  juego. 

Espero  que  todo  esté  claro.  En  la  práctica  el  juego  es  fácil  de 
aprender. 

Que  os  divirtáis  mucho  y  suerte,  camaradas. 


2  POKE53280 , 0  :  P0KE5328 1  -  0 

3  I NPUT " [ CLR 3 C C0MM6 3 í 3CRSRD 3 HASTA C  SPC  3 
CUANTOS [SPC 3 PUNTOS CSPC3 JUGAMOS" J I 

4  I F IC 1 00THENPR I NT " C RVSON 3 [ SPC 3 SON [ SPC 3 
MUY C  SPC  3  POCOS  [ SPC  3  PUNTOS " : FORY- 1 TO 1 3 

00 ; NEXT : Q0T03 

3  I NPUT " Y  C  SPC  3  EN  C  SPC  3  CUANTAS  í SPC  3  T I R 
ADAS" i  0 

7  PR I NT " C  CLR  3  [ PUR  3  PULSA  í SPC  3  UNA  [ SPC  3 
TECLA C SPC 3 CUANDO C SPC 3 QU I ERAS C SPC 3 PAR 
AR" '• F-F+W 

8  GOTO  300 

9  E-E+l 

10  PR I NT " [  BLU  3  C RVSON  3  C  SPC  3  T I RADA  C  SPC  3 
"  J  E  : PRINT" [GRN3 " 

11  A-INT<RND<1>*4>+1 
20  POKE55790+A, 1 

30  P0KE1518+A.33 
40  B»INT<RND<1)#4>+1 
50  POKE55790+B.5 
60  P0KE1318+B/ 90 


80  C-INT<RNDC1>*4>+1 

90  POKES5790+C*  2 

100  P0KE1518+C/ 83 

110  D*INT<RND< 1 )Í4)+1 

120  PGKE55790+D..  6 

130  P0KE1318+D; 36 

140  GETA$ : IFAÍ-" "THEN1 1 

1 30  I  FD-  1  ANDC-2ANDB-3ANDA-4THENPR  I  NT 

" 1000 [SPC 3 PUNTOS CSPC 3  MI": U-1000 : GOT 

0170 

160  I FA-  1  ANDB-2THENPR  I  NT  "  300  i  SPC  3  PIJN 
TOS" :W-500: GOTO 170 

163  I FB- 1 ANDC=2THENPR I NT " 500  C SPC  3  PUN 
TOS" : W-500 : GOTO170 

164  I FD-4THENPR I NT " 20  C  SPC  3  PUNTOS " : W- 
20: GOTO 170 

1 65  I FC- 1 0RC=4THENPR I  NT " 1 0  C  SPC  3  PUNTO 
S" :W»10:QOTO170 

170  PRINT" C3CRSRD 3 JUEGAS CSPC 3 OTRA CSPC 3 
PART I  DA?  [  SPC  3  (.  S/N  )  " 

180  GETB*  :  IFBÍ*="S"THEN7 
190  IFBíO"N" THEN 180 
199  END 

300  PR  I  NT  "  C  2CRSRD  3  [  GRN  3  C  2SPC  3  *  C  SPC  3P 
REM I OS  C  SPC  3  * [ 6CRSRR 3 [ RVSON  3  C  BLU  3  PUNT 
OS CSPC 3  TOTALES: ";F’W-0 

310  PRINT" CGRN3CSHIFTS3 - [SPC3-CSPC3 

10CSPC3PUNTOS" 

320  PRINT" - [SHIFTS3 CSPC3»CSPC3 10CSPC3 

PUNTOS" 

325  PRINT" - *CSPC3«[SPC320CSPC3PUNT 


OS" 

330  PRINT" I CSHIFT23— [ SPC 3 -300 CSPC 3 P 
UNTOS" 

340  PR  I  NT  "  [  SH I FTZ  3  C  SH I FT8  3 — C  SPC  3  -50 
0 CSPC 3 PUNTOS" 

350  PRINT"<CSHIFTS3 CSHIFTZ3 I CSPC3-10 
00CSPC3PUNTOS" 

353  PRINT: PRINT 

360  I FF-> I THENPR I NT " C  RVSON  3  C  RED  3  C  SPC  3 
LO  C  SPC  3  HAS  C  SPC  3  CONSEGU I  DO  C  SPC  3  EN  [  RVSOFF  3 
"E" C RVSON  3  T I RADAS  C SPC  3 " : FORY- 1 TO4000 


: NEXT : RUN 

363  I FE-OTHENPR I  NT  "  [  RVSON  3  C  SPC  3  NO  C  SPC  3 
LO [ SPC  3  HAS [ SPC  3  CONSEGU I DOC  SPC  3  EN " E " [ RVSON  3 
T I RADAS  C  SPC  3 " : FORY- 1 TO4000 : NEXT ¡ RUN 


370  G0T09 


Cuando  tres  niños  se  están  peleando  por  ver  quién  juega 
con  el  ordenador,  es  mejor  que  él  mismo  decida: 

10  print  “esperad  mientras  elijo” 

20  fort=lto  2000:  next 
30  a=int(rn=(l)*3)+l 
40  if  a=l  then  print“ Jaime  es  el  primero” 

50  if  a=2  then  print“Pedro  es  el  primero” 

60  if  a=3  then  print“Ana  es  la  primera” 

N.L.  RUN  EE.UU. 

Módulo 

Para  hallar  el  módulo  de  una  función: 

10  input“dividendo”;a 
20  input“divisor”;b 

30  def  fn  mod(d)=int((a/b)— int(a/b))*b+.5) 

40  Print  a  “módulo  “b”=”fn  mod  (d) 

P.L.V.  RUN  EE.UU. 
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Vic  cale 


Alvaro  Ibáñez 
Cardenal  Silíceo,  20 
28002  Madrid 


-r*  Pues  y?  cuto  ave 

VNA  HOJA  €i6C  T/ÍO/WC4 
"C-v.  Al vy  *4*4 


litó® 


^  > *  * 

^  — W\rV 

PMé 


Este  programa  simula  el  funcionamiento  de  una  calculadora, 
con  la  mayoría  de  sus  características. 

Para  pulsar  las  teclas  hay  que  moverse  con  el  cursor  hasta  la 
tecla  en  cuestión  y  pulsar  RETURN. 

El  funcionamiento  es  similar  al  de  cualquier  calculadora 
normal: 

Tecla  Cómo  opera 

sin  número  (sin)  .Da  el  valor  del  seno  (en  grados)  del 

número. 

eos  número  (eos)  .Igual  que  la  anterior, 

tan  número  (tan)  .Igual  que  la  anterior, 

are  número  (are)  .Usado  antes  de  una  de  las  teclas  de 

funciones  trigonométricas  da  el  valor 
arco  seno,  coseno... 

sto  número  (Sto)  .Almacena  el  número  en  la  memoria, 

rcl  (rcl)  .Muestra  el  contenido  de  la  memoria, 

sum  número  (sum)  .Suma  el  número  a  la  memoria, 

log  número  (log)  .Halla  el  logaritmo  decimal  del 

número. 

%  número  (x)  %  (%).  Halla  el  %  del  número 

indicado. 

sqr  número  (sqr)  .Halla  la  raíz  cuadrada  del  número, 

el  (c0  .Borra  el  último  número  (para  los 

errores). 

ac  (ac)  Pone  a  cero  todo  (menos  la 

memoria). 

Las  palabras  entre  paréntesis  son  teclas  que  hay  que  pulsar. 

Las  demás  teclas  son  conocidas  de  todos. 

El  programa  detecta  cualquier  tipo  de  fallos,  como  raíces 
negativas,  divisiones  por  cero,  etc. 

Sólo  puede  pararse  por  error  en  el  caso  de  que  alguna 
operación  se  salga  de  los  límites  de  10f  37  ó  10Í-38. 

En  principio  está  diseñado  para  funcionar  en  un  VIC  20,  pero 
puede  adaptarse  fácilmente  a  un  64  cambiando  las  líneas  que 
aparecen  a  continuación  del  listado. 


0  REM  VIC  CALC  POR ; ALVARO  IBANEZ 

1  GOTO40 

2  RE11  SUB  BISPLAV 

3  PR I NTSí " í 2CRSRR 3 " SP$ ; : I FERTHENER=0 
^W=l  :PRINT,,C5CRSRL3[SHIFTE]"  :RETURN 


4  PR I NT ; S=SGN  <  A ) : A= ABS  <  A ) 

5  PÍ=MIBÍ (STRÍ (Ai , 2) 

6  I FS=- 1 THENP$= "~"+Pt 

7  LP=LENCP í> 

8  I F A>L0R  <  ACLFANBAO0  )  THENPÍ =LEFTí  C  P 
$ ,  LP-4)+"CSPC3  "+RIGHTÍ (P$,  2)  ■  LP=LEN< 
P*)+3*(A<LFANDAO0) 

3  PR  I NTSí SPC  <  1 7-3É  ( R>L  )  -LP  )  Pí  i  :  IFACL 
FANDAO0THENPR I  NT  "  [  3CRSRL I  -  " 

10  GÜSUB29 ■ A= A*S : B I =A : RETURN 

11  1  =  1  +  1  :  IFK10THENRETURN 

12  I=0:pL=SC+V*22+X 

13  IFPEEK<PL»128THEN16 

14  POKEFL, Cl+128  :  IFC2O32THENP0KEPL+ 
1 j C2+128 : IFV<1 2THENPÜKEPL+2 , C3+ 1 28 

15  RETURN 

16  POKEPLi  C1  :  I FC2O32THENP0KEPL+ 1 ,  C2 
: I FV< 1 2THENP0KEPL+2 , C3 

17  I FAi= " [ CRSRU  3 " THEN I FY=9THENX=X+2* 
1 4 > " >  +  <X= 1 8 3  :  í  FX=  1 OTIHENX- i 2  :  R 

18  IFAí=" [ CRSRB 3 " THENIFV* 1 2THENX=X+  < 
X=7>-2*<X=12>-(X*17> 

19  RETURN 

20  I FOP=0THENF 1 =B I : G0T027 

21  0N0PGÜT022, 23 <  24 <  25 

22  F1=F1+BI  G0T027 

23  F1-F1-BI :G0T027 

24  F1=F1#BI ¡ G0T027 

25  IFBI=0THENER=1  RETURN 

26  F1=F1XBI 

27  A=F  1 

28  RETURN 

29  I FZE=0THENRETURN 

30  PR I NTSí SPC (1 7-LP-ZE+ ( SN=0 ) ) Pí ; 

31  IFSN=0THENPRINT" . " I 

32  IFZE>8THENZE=8 

33  PRINTLEFTí (Zí , ZE) 

34  RETURN 

40  REM  BIM  ARRAVS 

41  BIMAí<6,5) 

50  REM  STRINGS 

51  B 1  í  ■  “  [ 5CRSRL ] C  CRSRB  3 

52  U 1  í = "  [ 4CRSRL  3 [ CRSRU  3 

53  B2í = " [ 4CRSRL  3 [ CRSRB  3 

54  U2Í = " [ 3CRSRL 3 1 CRSRU  3 

55  Sí=" CH0M3  C3CRSRB3 

56  SPí = " 1 3CRSRR  3  C 1 5SPC  3 “ 

57  Zí = "000000000  M 

59  GOSUB5000 

60  REM  VARIABLES  NUMERICAS 

61  L-1E9-1 

62  SC>7680 

63  X=2 : Y=21 

64  Cl=l : C2=3 

65  X1=1:V1=6 

66  G=irX180 

67  BEFFNS<X)=SIN<X*G> 

68  BEFFNC <  X  )  =C0S ( Xí  G  ) 

69  BEFFNT <X)=TAN<X*G) 

70  BEFFNAS < X >  =  ( ATN ( X/SÚR < 1 -X  t2  > )/G ) 

71  BEFFNAC<X>=<  'i-ATN<XXSQR(  1-XT2)  )  +  ( 
ir/ 2)VG> 

72  BEFFNAT (X)=ATN<X)XG 

73  LF-0.Ú1 

80  REM  COMIENZO 

81  PÜKE36869/ 242 

82  P0KE36879.25 

83  PRINT" CCLR3 

84  GOSUB6010 

85  REM  ZONA  ALTA  BEL  TECLABO 

89  I=-l 

90  REABRÍ 

91  I FHÍ = " BOWN " THEN99 

92  1=1+1 

93  IFINT(I/4)=I/4THENPRINT: PRINT :PRI 
NT: PRINT" CCRSRR3", 

95  GOSUB6000 

96  PRINTAí J " ICRSRR3 CCRSRU3 " ; 

97  GOTO90 
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98  REM  ZONA  BAJA  DEL  TECLADO 
SS  I  —  1 

100  READR* 

101  IFAí="END"THEN109 

102  1=1+1 

103  I F I NT  <1/5  ) = I /5THENPR INT : PR I NT ¡ PR 
I NT : PR I  NT " C  CRSRR ] " J 

104  GQSUB6005 

105  PRIHTRÍ ; " C CRSRR 3 C CRSRU  3 " i 

106  GOTO 100 

109  R=0 : G0SUB3 

110  GETR* : IFA$=" " THENGOSUB 1 1 : GOTO 1 1 0 

111  IN=-4ÜKV>11)+5*<VCU) 

112  IFA*=CHRS( 133THEN150 

113  I  FAi= 11 C  CRSRR  3  "  ORA* = "  í  CRSRL  3  "  ORA* 

=  "  [CRSRD3  "ÜRA$="  C  CRSRU  3 11 THEN 1 1 5 

114  GOSUB1 1 : GOTO110 

115  POKEPLj  C1 ¡ POKEPL+ 1 ,  C2 ¡ 1 F V< 1 2THEN 
PQKEPL+2*  C3 

1 1 6  X=X+  C  A*= " C  CRSRL  3 " ) * I N- < A*= " C CRSRR  3 
")#IN 

117  Y*Y+ ( A*- " C  CRSRU  3 " 3  *3- < A*= " C  CRSRD  3 
" >*3 : G0SUB17 

118  IFX<0THENX»18+(V<12) 

119  IFX>18THENX=2 

120  IFV>21THENV"21 

121  IFY<6THENV=6 

122  PL=SC+Y*22+X 

123  C1=PEEK(PL) 

124  C2=PEEK(PL+1 ) 

125  I F Y< 1 2THENC3=PEEK  (  PL+2 ) 

126  1=10 : GOSUB1 1 

127  X 1 “ I NT ( < X-2 3X43  +  1 

128  Y1  =  INT<  < Y-6)/3)+l 

129  GOTO110 

150  R*=A*(Y1,X1) • I FW®  1 ANDAÍO " AC " THE 
NI  10 

151  I FR$® " AC " THEN400 

152  I F A* = " CL " THEN4 l 0 

153  IFA*®"0"ORVRL(A*)THEN200 

154  I F A*» " ARC " THEN2 1 0 

155  IFA*»"STG"THEN220 

156  I FR*® " RCL " THEN230 

157  I F A*= " SUM " THEN240 

158  I FR* = " LOO " THEN250 

159  I F  A$® " TPC " THEN260 

160  I FA*» “ SQR " THEN270 

161  IFA*®" . "THEN280 

162  IFR*®"®"THEN290 

163  I F A*« " S I N " THEN350 

164  IFA*»"COS"THEN360 

165  I  FR*= 11  TAN  "  THEN370 

166  I F A*= " AD " THEN300 

167  I FR*= " SU " THEN3 1 0 

168  I FA*= " MU " THEN320 

169  IFA*="DI "THEN330 

198  W=0 : G0SUB3 

199  GOTO110 

200  REM  NUMERO 

201  IFNT-1THEN203 

202  NT®1 • DI*0 ; PÜ=0 1 IFQP*0THENF1®0 

203  I FPOTHENPÜ-PO# 1 0 : A=D I + VAL ( A* ) /PO 
••  GOTO205 

204  A=D I # 1 0+ VAL ( A* ) 

205  I FPGO0RNDA*® " 0 " THEN208 

206  ZE=0 • IFPÜTHENSN®1 

207  GOTO 198 

208  ZE=ZE+1 

209  GOTO 198 

210  REM  TECLA  ARC 

211  AR=1 

219  GOTO 198 

220  REM  TECLA  STO 

221  M=DI'NT=0 

222  I FM=0THEHPR I NT " L HOM  3 [3CRSRD3  C 3CRSRR 3 
CSPC3 " : G0T0229 

223  PR I NT " C HOM  3 [ 3CRSRD 3  í 3CRSRR 3  C  SH I FTM  3 


230  REM  TECLA  RCL 

231  R=M • NT=0 

239  G0T0198 

240  REM  TECLA  SUM 

241  M=M+DI 

242  NT=0 

249  G0T0198 

250  REM  TECLA  LOG 

251  I FD I <=0THENER= 1 : GOTO  1 98 

252  H=LOG(DI)/LOG(10) 

259  NT®0 : GOTO 198 

260  REM  TECLA 

263  IF0PO3THEN198 

264  TP-F1/100:R=TP*DI 

265  OP®0  ;  NT=0  ¡  GOTO  198 

270  REM  TECLA  SQR 

271  IFDIC0THENER=1: GOTO 198 

272  A=SÜR(DI ) : NT«0 

279  G0T0198 

280  REM  TECLA  . 

281  IFP0THEN198 

282  PO=l 

289  GOTO 198 

290  REM  TECLA  ■ 

291  GGSUB20 

292  NT*0 : OP=0 

299  G0T0198 

300  REM  TECLA  + 

301  IFGP=1THENGP®0 

302  G0SUB20 

308  NT=0 : OP=l 

309  G0T0198 

310  REM  TECLA  - 

311  IFGP=2THENÜP=0 

312  GOSUB20 

318  NT®0 • QP=2 

319  GOTO 198 

320  REM  TECLA  X  (POR) 

321  IFGP=3THENOP®0 

322  GOSUB20 

328  NT®0 :  0P=3  :  DI=0 

329  G0T0198 

330  REM  TECLA  /  (DIV) 

331  GOSUB20 

332  IFOP=4THENOP=0 

338  NT=0 • 0P®4 : DI=0 

339  GOTO 198 

350  REM  TECLA  SIN 

351  NT=0 ; IFARTHEN354 

352  R=FNS(DI ) 

353  GOTO 198 

354  RR=0: IFSTR*(ABS<DI))>»"CSPC]rlTH 
ENER-l: GOTO 198 

355  A=FNAS(DI ) 

359  GOTO 198 

360  REM  TECLA  COS 

361  NT=0 : IFARTHEN364 

362  A=FNC(DI ) 

363  GOTO 198 

364  AR=0 :  IFSTR$(ABS(DI  ))!>="  CSPC]  1  "TH 
ENER*1 '• GOTO 198 

365  A*FNAC(DI) 

369  GOTO 198 

370  REM  TECLA  TAN 

371  NT®0 : IFARTHEN376 

372  B=DI-INT(DI/360)*360 

373  IFB=90ORB=270THENER®1 -G0T0198 

374  A=FNT (DI ) 

375  GOTO 198 

376  RR=0 : A=FNAT(DI ) 

379  GOTO 198 

400  REM  TECLA  AC  (BORRAR) 

401  F1=0  :  OP=0  :  ER==0 

402  ZE®0 ; SN=0 : AR=0 

403  A=0 : PO=0 : GOTO  1 98 

410  REM  TECLA  CL  (ERROR) 

411  A=0 : PQ=0 : GOTO 1 98 

998  PR I NT " C  HOM ] " ;  : END 

999  REM  DATA  ARRAYS 

1000  DATAARC  <  S I N ; COS  <  TAN  > 


GOTO  198 


1001  DRTRSTO  .>  RCL  <  SUM  > LOG  > 

1002  DflTftTPCi 7 j  8<  9<  DI 

1003  DRTASÜR  >  4  i  5  j  6  j  MU 

1004  DAT ACL, 1,2, 3, SU 

1005  BATAAC,0, . ,=,AB 

1006  REM  DATA  TECLADO 

1007  DATARRC  ,  S I N ,  COS , TAN 

1008  DATASTO,RCL,SUM,LOG 

1009  BATA  BONN 

1010  BATA" XI SPC 3 "  ,  "7CSPC3  "  ,  "8CSPC3 "  , 
"9CSPC3 " , " : CSPC3" 

1011  DAT  A " [ SH I FTÜ  3 1 COMMT 3  " , " 4  C  SPC  3 " , 
"5CSPC3 " ,  "6CSPC3 11  ,  "X" 

1012  DATACL, "1ISPC3", "2CSPC3", "3CSPC3 
", "-CSPC]" 

1013iDPlTñflC<"0[SPC]"<".CSPC3","-[SPC] 

1014  DATA  END 

5000  REM  LEER  ARRAYS 

5001  F0RI=1T06 

5002  F0RJ=1T05 

5003  REABRÍ ( I ,  J) 

5004  NEXT : NEXT 

5996  RETURN 

5997  STOP 

5998  REM  SUBRUTINAS 

5999  REM  BIBUJR  ZONA  RLTft  DEL  TECLRD 
O 

6000  PR I NT " C COMMR 3 [ 3SH I FT*  3  C  COMMF 3 “ ; 

Di*; 

6001  PRINT" CSHIFT-3  C 3SPC 3  C  COMMK 3 " i B 1 

6002  PR I NT " C  COMMC 3 [ RVSON 3  C  3COMM 1 3  C RVSOFF 3 
[COMMV3" ;ui$; 

6003  RETURN 

6004  REM  BIBUJR  ZONA  BAJA  BEL  TECLRD 
O 

6005  PR I NT 1 "  [ COMMA  3 [ 2SH I FT*  3  L COMMF  3 " i 
B2*J 

6006  PR I NT " [ SH I FT- 3 [ 2SPC  3  L COMMK  3 " J  D2 

*; 

6007  PR I NT " [ COMMC  3  C  RVSON  3  C  2C0MM 1 3  C  RVSOFF  3 
CCOMMV3 " >  U2$< 

6008  RETURN 

6009  REM  DIBUJA  DISPLAV 

6010  PR  I  NT  "  C  HOM  3  L  2SF'C  3  [  COMMN  3  C  RVSON  3 

C  SH I FTV  3 1 C  C  SPC  3  C  SH IFTC  3  ALC  í RVSOFF  3 1 COMMH 3 
C2SPC3  CSPC3  <  CSHIFTC3  3AIB" 

6011  PR I NT " [ SPC  3 [ COMMA  3 [ 1 8SH I FT*  3 [ COMMS 3 

6012  PRINT" [SPC3[SHIFT-3tl8SPC3 CSHIFT-3 

6013  PRINT" CSPC3 CSHIFT-3 C18SPC3 CSHIFT-3 

6014  PR I NT " C  SPC  3  C COMMZ  3  C 1 8SH I FT*  3  C  COMMX  3 


Líneas  a  cambiar  para  adaptar  el  programa 
al  C-64 

12  I 30 ■ PL=SC+V*40+X 
62  SC=1024 
31  PRINTCHR*< 14) 

82  POKE53230, 1 : P0KE53281 , 1 

122  PL=SC+V*40+X  < 


Este  programa  está  diseñado  para  funcionar  en  un  Vic-20  con 
superexpander,  aunque  también  puede  funcionar  con  un 
cartucho  de  ampliación  de  3K  o  con  uno  de  8K-16K  si  se  hacen 
las  oportunas  modificaciones. 

El  programa 

Consta  de  dos  partes.  La  primera  se  encarga  de  generar  los 
gráficos  y  la  segunda  es  el  juego  propiamente  dicho. 

Lo  que  hay  que  hacer  es  copiar  la  primera  parte,  guardarla  en  el 
cassette  y  comprobar  que  los  gráficos  son  correctos. 

Hecho  esto  hay  que  copiar  la  segunda  parte,  GUARDARLA 
antes  de  hacer  RUN  (por  si  los  pokes)  y  repasarla  hasta  que 
funcione  correctamente. 

El  juego 

El  juego  en  sí  es  sencillo,  porque  casi  todo  el  mundo  sabe  jugar  al 
ajedrez.  Si  no  sabes,  este  programa  puede  serte  muy  útil  para 
aprender  las  reglas. 

Nosotros  jugamos  con  las  fichas  blancas  (en  la  parte  inferior  de  la 
pantalla)  y  el  ordenador  con  las  negras. 

Para  realizar  un  movimiento  (nosotros  somos  los  primeros  en 
jugar)  hay  que  indicar  la  casilla  desde  la  que  movemos  y  la  casilla 
a  la  que  vamos.  Esto  se  hace  mediante  un  sistema  de  coordenadas 
que  aparece  en  todo  momento  en  la  pantalla. 

Hay  que  introducir  primero  la  fila  (A-H)  y  después  la  columna 
(1-8).  No  hace  falta  dejar  separación  ni  pulsar  return  cuando  se 
acabe. 

Una  vez  hecho  esto,  nuestra  pieza  cambiará  de  lugar,  y  será  el 
turno  del  ordenador. 

Si  se  enciende  un  cuadradito  en  la  parte  superior  izquierda  de  la 
pantalla,  quiere  decir  que  el  ordenador  está  “pensando”.  Cuando 
acabe,  hará  su  jugada  y  volverá  a  ser  nuestro  turno. 

Fin  del  juego 

El  juego  acaba  cuando  te  comes  al  rey  negro  (el  Vic  no  sabe 
cuándo  le  estás  dando  jaque,  es  un  fallo  del  programa)  o  cuando 
el  Vic  se  come  tu  rey;  lo  cual  es  también  bastante  improbable. 
El  programa  en  sí  no  juega  nada  bien.  Sólo  conoce  las  reglas  y 
por  eso  mueve  sus  piezas  al  azar.  Sabe  cuándo  puede  comer,  pero 
no  se  da  cuenta  de  que  le  pueden  estar  amenazandoo  que  podría 
ganar  a  la  siguiente  jugada. 
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Si  intentas  hacer  alguna  jugada  ilegal,  el  ordenador  lo  advertirá, 
aunque  no  siempre. 

Como  podéis  ver,  este  programa  no  es  ninguna  maravilla,  pero  la 
intención  es  haceros  ver  cómo  programar  un  juego  en  el  que  el 
ordenador  juegue  contra  nosotros  usando  su  inteligencia  y 
ateniéndose  a  unas  reglas. 

Este  programa  puede  serviros  de  ejemplo  para  el  CONCURSO 
DE  AJEDREZ  COMMODORE  WORLD. 

Mandadnos  programas  que  jueguen  al  ajedrez  tal  y  como  hace 
éste,  ¡pero  mejor!  (que  para  malo  ya  está  éste).  Pueden  ser  para  el 
VIC-20  o  para  el  C-64  y  pueden  estar  escritos  tanto  en  Basic 
como  en  Código  máquina. 

Eso  sí,  los  programas  han  de  ser  vuestros  y  no  copiados  de  otras 
revistas  o  de  programas  comerciales. 

Tenéis  que  enviarlos  antes  del  31  de  marzo,  a: 

COMMODORE  WORLD 
C/  Barquillo,  21.  3a  izq. 

28004  Madrid 

Habrá  premio  especial  para  el  mejor  programa,  y  saldrá 
publicado  en  nuestra  revista  al  mes  siguiente. 


Listado  1 

0  REM  GENERADOR  DE  GRAFICOS  DEL  VIC 
CHESS 
1  X=-2 

5001  C=0  '•  GOTÜ9003 

9002  RERDC:  IFC=0THEN9004 

9003  FOR J-0TO7 : READK ¡ P0KE6 1 44+C«8+ J - 
K : NEXT : GOTO9002 

9004  RESTORE 

9006  C=0 : GGTO9008 

9007  RERDC ■ IFC=0THEN9009 

9008  FORJ=0TO7 : READK : P0KE6144+CC+49) 
*8+ J , 255-K : NEXT : GOTO9007 

5009  PÜKE56 -  23 • P0KE52 , 23 

90 1 0  FOR I =7 1 68T07679 : POKE I- PEEK < I +25 
600) : NEXT 

9011  FOR I -7424T0743 1 : POKE I , 255 : NEXT 
5012  RERDC : R0M-32768+C#8 ¡ X-X+2 : IFC-0 
THEN9015 

90 13  FOR  I  »6928+X*8T06943+Xi((8STEP2  :  PO 
KEI , PEEK (ROM) 

9014  POKE 1+1, PEEK < ROM) :RÜM-RGM+1 ¡NEX 
T • GÜTO9012 

9015  P0KE631 i  76 : P0KE632, 79 : PÜKE633, 6 
5 • P0KE634,  68 : P0KE635, 13 

90 1 6  P0KE636 , 82 : P0KE637 , 85 : PÜKE638 - 7 
8:PGKE639, 13 : POKE 198, 9 

9017  END 

10000  DATA0, 1,2,4,4,30, 16,30 
18001  DfiTAl , 0, 128,64,32,32, 120,8, 120 

10082  DRTA2,2,2,2,2,6, 12,56,32 

1 0003  DRTR3 ,  64 , 64 , 64 , 64 , 96 , 48 , 28 , 4 

10004  DRTR4 , 255 , 255 , 254 , 252 , 252 , 254 , 
240,254 

10005  DRTR5, 255, 255, 127, 63, 63, 127, 15 
,  127 

10006  DRTfió,  254 , 254 , 254 , 254 , 254 , 252 , 
248,224 

10007  DRTR7, 127, 127, 127, 127, 127, 63,3 
1,7 

10008  DRTR8, 0,0, 115,76,76,64,64,64 

10009  DRTR9, 0, 0,206, 50,50,2,2,2 

10010  DRTR10, 112,24,8,8,56,96,64,64 

10011  DRTR11, 14,24, 16, 16, 28, 6,' 2, 2 

10012  DRTfl 1 2 , 255 , 255 , 255 , 204 , 204 , 192 
, 192, 192 

10013  DRTA 1 3 , 255 , 255 , 255 ,51,51,3,3,3 

10014  DRTA14, 240, 248,248, 248,248, 240 
, 192, 192 

10015  DRTR15, 15,31,31,31,31,7,3,3 

10016  DRTA16, 14,24, 16, 16, 16, 16,24, 12 


10017  DRTR17, 192,96,48, 156,4,4,4,60 

10018  DATAIS, 4, 4, 6, 2, 6, 12,56,32 

10019  DATA 19, 48, 24, 8, 56, 48, 24, 14,2 

1 0820  DRTR20 , 254 , 248 , 240 , 240 , 240 , 240 
,248,252 

10021  DATR21 , 255, 127,63, 159,7,7,7,63 

1 0022  DRTR22 , 252 , 252 , 254 ,254,254, 252 
,248,224 

10023  DRTR23, 63, 31, 15,63,63,31, 15,3 

10024  DRTR24, 3, 6, 12,8,8,8, 12,6 

10025  DRTR25, 192,96,48,80, 144, 16,48, 
96 

10026  DRTR26, 4, 8, 8, 4, 6, 28,48, 32 

10027  DRTR27,32, 16, 16,32,96,56, 12,4 

1 0028  DATR28 , 255 , 254 , 252 , 248 , 248 , 248 
,252,254 

10029  DATR29, 255, 127, 63, 95, 159, 31 , 63 
,127 

10030  DRTR30, 252,248,248,252, 254,252 
,240,224 

10031  DRTA3 1,63,31,31,63, 127,63, 15,7 

10032  DRTR32, 0, 0, 0, 0, 0, 0, 0, 0 

10033  DRTR33, 1,62,42,32, 16,8,4,8 

10034  DRTR34, 128, 124,84,4,8, 16,32, 16 

10035  DRTR35,8,4,4,4,4, 12,56,32 

10036  DRTR36, 16,32,32,32,32,48,28,4 

1 0037  DRTR37 , 255 , 254 , 234 , 224 , 240 , 248 
,252,248 

10038  DATR38, 255, 127, 87,7, 15, 31 , 63, 3 
1 

10039  DATA39, 248, 252, 252,252, 252,252 
,248,224 

10040  DRTR40, 31 , 63, 63, 63, 63, 63, 31 , 7 

10041  DRTR41, 2, 14,8,8, 14, 12,8,8 

10042  DRTR42, 64, 1 12, 16, 16,112,48, 16, 
16 

10043  DRTA43,4,4,4,4, 12,56,32,32 

1 0044  DRTR44 , 32 , 32 , 32 , 32 , 48 , 28 , 4 , 4 

1 0045  DRTR45 , 254 ,254,248, 248 , 254 , 252 
,248,248 

1 0046  DATR46 , 1 27 , 1 27 , 3 1 , 3 1 , 1 27 , 63 , 3 1 
,31 

1 0047  DRTR47, 252 , 252 , 252 , 252 , 252 , 248 
,224,224 

1 0048  DATR48 , 63 , 63 , 63 , 63 , 63 , 3 1 , 7 , 7 

10049  DRTR1 10, 28, 34, 93, 81, 81, 93, 34, 2 
8 

10050  DRTR0 

10051  DRTR22, 9, 3,8,5, 19 
10999  DRTR0 


Listado  2 

0  REM  VIC  CHESS. POR: ALVARO  IBANEZ 

1  GOTO100 

2  REM  MOVIMIENTO 

3  Y=INT<FX8)+1  ;  X*F-(  Y-l  >¡*8+1 : 

4  C=( INT<Y/2)=YX2)-< INT (X/2)BX/2) : PO 
■SC+X*2+Y*44 : PI«PEEK(PÜ) : IFPL-1ANDCP 
I «320RP I >48 ) THEN35 

5  P=1 : GÜSUB13 

6  P>PI-C<CO0>*4>*<PL-l)-<<C-0>*4)* 
(PL*2> 

7  Y»INT (TX8)  +  1  :  X“T-<Y-1  >#8+1 

8  C=< INT< Y/2)“Y/2)-( INT (XX2)"XX2) : PO 
=SC+X*2+Y*44  :  IFPL-1 ANDPEEKCP0K49AND 
PEEK  (  PO  ) 032THEN36 

9  I FPEEK  <  PO  > 032ANDPEEK  <  PO  >  08 1 THEN2 
3 

10  PI=PI  +  <  <CO0>K4)4KPL“1  >+<  (C®0)i*4) 
*<PL=2> 

11  P*2 : G0SUB13 : RETURN 

12  REM  INTERMITENTE 

13  F0RI  =  1T04  :  A*32-49*(CO0> 
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14  IFP=2THEN16 

1 5  PÜKEPO , P I : PÜKEPO+ 1 , P I +1 : P0KEP0+22 
-  PI+2  ¡  POKEPG+23,  PI+3 :  GÜT017 

1 6  PÜKEPO ,  A :  POKEPG+1 ,  A :  PQKEPO+22 ,  A  :  P 
ÜKEP0+23; A 

17  FÜRJ«1 TO150 : NEXT 

18  IFP=2THEN20 

1 9  PÜKEPO ,  A : PGKEPO+ 1 , A ¡ P0KEP0+22 , fi : P 
0KEP0+23 j  A : GGTG21 

20  PÜKEPO ,  P I  :  PÜKEPQ+ 1 ,  P I  + 1 :  PGKEPO+22 
/ PI +2 • P0KEP0+23 >  P I +3 

21  F0RJ-1T0 150 ¡NEXT 

22  NEXT : RETURN 


24  IFQ=TTHENQ*-1 

2NEXTR  11=0107  1  P<  1  1  >+PÍ  1  )i<PC  1  >*T) 

2b  IFB<03»TTHENB<03— 1 

27  IFB< 1 3*TTHENB< 1 3*»-l 

28  IFN<03-TTHENN<03— 1 

29  IFN< 1 3<*TTHENN( 1 3»-l 

30  IFR<03»TTHENR<03»-1 

31  IFR<1)-TTHENR<1>— 1 

J  fK»TTHENP-2  : GOSUB 1 3 : PR I NT Vi " [  RV30FF  ] 

C  5SPU  ]  [  RVSÜN  ]  GANASTE  "  WAIT653,  1  :RUN 

33  IFPL=2THENP-2 : GÜSUB13 : PRINTVi" [RVSOFF] 
C78PC3 C RVSÜN] GANE  I I I " :UAIT653, 1 :RUN 

34  GÚTÜ10 

35  E*1 : G0T037 

36  T“F : E=2 

37  PR I NT Ví " C  RVSOFF ]  £ 2SPC 3  C  RVSÜN ] MOV I 
MIENTÜÍCRSRR] ILEGAL" : FORJ-1TO1500 : NE 
XT : PR I NTVÍ " [RVSOFF  3 C 2CRSRR 3  £  1 7SPC  3 " 

38  ONEGOTO130>  6 

39  REM  HOVEMENT  COMP. 

40  A t=LEFTt  (  Di ,  1 3  :  Bi*R  I  GHTí  <  Ilí ,  1 ) 

tz  ^“(ñSC<:B*::'-67;’*z  :  DX*< ASC<AÍ3-673 
^|n I pX+DX< 1 0RX+DX>80R V+DV< 1 ORV+D V08T 

43  PI*PEEK<P0+DX*2+DV*443 : IFPI-320RP 
I-81THENRETURN 

44  N=1-<PI<493  :  RETURN 
100  GOSUB7000 

105  P0KE36869,254 

110  P0KE36S79.25 

111  P0KE36864*  14 
115  GOSUB8000 

125  REM  MOV. JUGADOR 

130  PR I NTVí " [ RVSÜN  3  ? [ CRSRR  3  £ SPC  3  £ CRSRL  3 
"1 ■ CH=0 : U=0 

131  Mía"" IFORI-0TO3 

132  GET Aí : I FAi* " " THEN 1 40 

133  IFI AUDI THEN 136 

134  I F Ai< " A " ÜR Ai> " H " THEN 1 32 

135  Mi»Mi+Ai : PRINT" [RVS0N3 "Ai; :GÜT01 
33 

136  IFAi<" 1 "0RA1>"8"THEN132 

137  Mí=MÍ+Aí : PRINT" CRVSON3 "Ai j 

138  I F I - 1 THENPR I NT " C RVSON  3 - " ; 

139  W=13 : NEXT ; GOTO 147 

140  W*W+1 : IFWC14THEN132 

141  W*0:IFCH=1 THEN 143 

142  PR I NT " [ RVSOFF  3 [ SPC  3  C  CRSRL  3 “ \  ■  CH» 

1 : GOTO 132 

143  PR I NT " [ RVSÜN 3 [ SPC 3 C CRSRL 3 " i  :CH-0 
: GOTO 132 

147  At=LEFT í  <  Mi , 2  3 

148  B$=»R  I  GHTi  <  Mi  /  2  3 

1 50  F=ASC ( LEFTí  < Ai , 1 3 3 -65+  < 8-VAL  <  R I G 
HTKRÍj  1333*8 

160  T=ASC<LEFTt<BÍ, 1 3 3-65+<8-VAL<RIG 

HTiCBi. 1)3 3*8 

165  IFF=TTHENE=1 :G0T037 

170  E=0 : PL®1 : G0SUB2 : IFETHEN130 

200  REM  EL  VI C  MUEVE 

205  PR I NT Vi i " C  RVSOFF  3  C  8SPC 3 " 

210  PR  I  NT  "  [  HOM  3  C  2CRSRD  3  C  1 9CRSRR  3  [  RVSON  3 
[SPC 3". : PL»2 


220  E=0 :  S=RND<  1  3*6+1 :  ONSGOSUB300J  400 
> 500, 600. 700. 800 
225  IFETHEN220 

230  I  FS>2THENPR  I  NT  "  [  CRSRL  3  [  RVSOFF  3  [  SPC  3 
" : G0SUB2 
290  GOTO 130 
300  REM  PEON 

310  FORI*0TO7 :  IFP(  I  3*0THENNEXT  •'  E=1 :  R 
ETURN 

320  A=»RND< 1 3*8 : IFPC A)*0THEN320 
330  V=INT<p<A3/83+l : X=P<A3-<V-1 3*8+1 
: P0=SC+X*2+V*44 

340  I FPEEK  <  PÜ+42  3  <49 ANDPEEK  <  PO+42  3  O 

32ANDRNDÍ  1  3>. 2THEND=7 :  GOTO380 

345  I FPEEK  < PO+46 3 <49ANDPEEK (PO+46  3  O 

32ANDRND  < 1 3>. 2THEND*9 : GOTO380 

347  I FPEEK ( PO+44  3 032ANDPEEK <  PO+44  K 

>8 1THENE-1: RETURN 

350  IFV«2ANDPEEK <  PO+88 3 032ANDPEEK ( P 
0+88  3  08 1 THEN370 

360  IFV=2ANDRND( 1 3>. 4THEND-16 : G0T038 
370  D“8 

380  F=X+(V-1 3*8-1 : T*F+D : PC A3"T ; PRINT 

"[CRSRL 3 [RVSOFF 3 [SPC 3" : GÜSUB2 : IFV-8T 

HEN385 

384  RETURN 

400  REM  REV 

405  V=INT (K/83+1 ¡ X=K-(V-1 3*8+1 : PO*SC 
+X*2+V*44 : 2*1 

410  FORI=0TO7 : Di=DKÍ( I 3 1 GOSUB40 : IFN" 

1THENNEXT :  E»1  : RETURN 

415  A=RND< 1 3*8 : Di=DKÍ( A3 : GOSUB40 : IFN 

■1THEN415 

420  F=K ¡ T=K+DX+DV*8 : K»T : RETURN 
500  REM  DAMA 

510  IFQ=-1 THENEa 1 : RETURN 

520  V=INT (Gl/83  +  1 :  X»Q-<V-1 3*8+1 :  PO=SC 

+X*2+V*44 : 2a 1 

525  FOR I =0TG7 : Di=DKÍ <13: GOSUB40 : I FN* 
1THENNEXT:E-1: RETURN 


540  FGRZ*1TQ7 : GOSUB40 : IFN»0THENNEXT 
550  Z=Z+(N=1 3 : Z=INT (RND< 13*23+1 
560  GOSUB40 : F=Q : T=Q+DX+DV*8 ; Q=T : RETU 


615  J=RND(13*2: IFB( J3®-1THEN615 

620  V=INT<B( J3/83+1 ¡ X»B<J3-<V-1 3*8+1 

: P0*SC+X*2+V*44 : Z= 1 

625  FOR I =0TO3 : D$=DBÍ < I 3 : GOSUB40 :IFN» 

1THENNEXT : E«1 : RETURN 

630  A=RND <1 3  *4 : Di»DB$  <  A  3 : GOSUB40 : 1 FN 

=1THEN630 

640  FORZ= 1 T07 : GOSUB40 : I FN=0THENNEXT 
650  Z»Z+(N»1 3 : 2*INT<RND<1 3*Z3+1 
660  GOSUB40  ■'  F*B<  J3 :  T“B<  J3+DX+DV*8  :  B< 
J3*T : RETURN 
700  REM  CABALLO 

710  IFNÍ03=-1ANDN< 1 3«-lTHENE=l : RETUR 

715  J=RND< 13*2: IFNC J3=-1THEN715 

720  V=INT<N<J 3/83+1 : X"N<J3-<V-1 3*8+1 

: P0»SC+X*2+V*44 : Zal 

725  FORI=0TO7 : Di=DNí< I 3 : GOSUB40 : IFN= 

1 THENNEXT : E= 1 : RETURN 

730  A=RND <13*8: Di*DNÍ <  A  3 : GOSUB40 : 1 FN 

■ 1 THEN730 

735  F=N< J3 : T=N< J3+DX+DV*8 : N< J3«T : RET 
URN 

800  REM  TORRE 

810  IFR<03=-1ANDR< 1 3— 1THENE-1 : RETUR 

815  J=RND< 1 3*2 : IFR< J3“-1THEN815 
820  V=INT<R<J3/83+l : X*R< J3-<V-1 3*8+1 
:P0=SC+X*2+V*44:Z=1 
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825  FQRI=0TO3 : D$=DRÍ< I ) ¡ GOSUB40 : IFN» 

1 THENNEXT • E“ 1 : RETURN 

830  A=RND<  1  )*4  :  Dí*DR$< A)  :  GOSUB40  :  IFN 

-1THEN830 

840  F0RZ=1T07 : GOSUB40 : IFN=0THENNEXT 
850  Z=Z+(N=1 ) :  Z=INT<RND<  1  )NiZ)  +  l 
860  GOSIJB40  :  F=R<  J)  ■  T=R< J)+DX+DV*8 :  R< 

J)=T: RETURN 

7000  REM  VARIABLES 

7001  SC=7702 : CO=30720 

7002  DIMP<7)íBíl)<N<l>,Ra),BK*(7)<D 
B*C3),DN$<7)(DRÍ<3) 

7003  FÜRI=0TO? • P< I )“I+8 ■ NEXT 

7004  K*4 : Q*=3 

7005  B<0)»=2  :  Bí  1  )=5 

7006  N<0>«1¡N<1)»6 

7007  R(0>«0:Ríl)a7 

7010  FORI*0TO7 : READDK$( I ) • NEXT 

7011  FGRI=0T03 : READDBÍC I > : NEXT 

7012  FORI*0TO7 : READDNíí I ) • NEXT 

7013  FGRI-0TO3:REflIiDR*<I>:NEXT 

7014  Ví b " [ HÜM ] C  2 1 CRSRD ] " 

7015  RETURN 

7800  DATA  BB,CB,DB,BCLDC*BL,CD,DD 
7301  DATA  BB,DB,BD,DD 

7902  DATABA j  DA>  AB*  EB<  AD, EDj  BE- DE 

7903  DATACB  >  BC  <  DC  <  CD 

7999  DIBUJA  TABLERO 

8000  PR I NT "  [ CLR ]  [ 3SPC 3 ! COMM I 3 ! COÍ1M0 ] 

C  COMM+  3 ! SPC  3 !  CÜÍ-1M+  3  C  CQMM£  3  C  COMMN  3  !  2CQMMD  3 
C 1 3SPC 3  C COMMT 3 t COMMG 3  C COMMN 3  C SPC  3  ! COMMN 3 
í SH I FT£  3 [ COMMQ  3  I  2C0MMZ 3 [ SPC  3  ! COMMS  3 ! RVSON 3 
AIBICRSRD3 " 

8001  PR I NT " C  2CRSRR 3  »>  C  SH I FTP  3  C  SH I FTB  3 
ISHIFTM3ISHIFTN3ISHIFTR3 ISHIFT33ir!COMM*3 
CSHIFTI 3 [SHIFTJ3 [SHIFTE3  CSHIFTF39 : 

8002  PR I NT " ! 2CRSRR  3  ?  !  SH I FT#  3  C  SH I FTC  3 
ISHIFTD3 ISHIFTÜ3 ISHIFTP3 ISHIFTT3 ISHIFTÜ3 
C  SPC  3 [ COMMK 3  CSHIFTK3  CSHIFTL3  CSHIFTG3 
CSHIFTH3;< 

8003  PR I NT "C2CRSRR 3 1256 1256 1256 1256 

8004  PR I NT " C  2CRSRR  3  3478347834783478 

8006  FÜR I  =  1 T02 : PR I NT " [ 2CRSRR  3  C 2SPC  3  C 2SH I FTQ  3 
C2SPC3  C2SHIFTQ3  C2SPC3  C2SHIFTQ3  C2SPC3 
C2SHIFTQ3 

8007  PRINT" C2CRSRR3 C2SPC3 C2SHIFTQ3 C2SPC3 
C2SHIFTQ3 [2SPC3  C2SHIFTQ3  C2SPC3  C2SHIFTQ3 

8008  PRINT" C2CRSRR3C2SHIFTQ3C2SPC3C2SHIFTQ3 
C  2SPC 3  C  2SH I FTQ  3  C  2SPC 3  í 2SH I FTQ  3 1 2SPC 3 

8009  PR I NT " 1 2CRSRR 3  C 2SH I FTQ  3  C  2SPC  3  C  2SH I FTQ  3 
[2SPC3 [2SHIFTQ3 C2SPC3  C2SHIFTQ3  C2SPC3 

" : NEXT 

8010  PRINT"  C 2CRSRR 3 QADEfiADEliADEiJlADE 

8011  PR I NT " C 2CRSRR  3 BCFGBCFGBCFGBCFG 

8012  PRINT" C2CRSRR3LMPu£3 ! "CHR*<34)" 

XVTUHI 

8013  PRINT"! 2CRSRR 3  NÜRS  MIÍ/0Z [ VU JK 

8014  PRINT"! HOM  3  C  2CRSRD  3 " 

^?íf^ffil§Ml4cRSRR3 ÍRVSÜN3 "RI 
GHT$ÍSTRiCI)¿  1>  ’•  NEXT 

8017  PRINT"! 3CRSRR 3 1 RVSON  3  A I CRSRR  3  B I CRSRR 3 

C!CRSRR3D!CRSRR3E!CRSRR3FICRSRR3G!CRSRR3 

H" 


8018  FOR I “7698TO8072STEP22 : POKE I +CO , 
6 : POKEI  +  1+COí  6 : POKE I +2+C0 , 6 : POKE 1+3+ 
COj  6 : NEXT 


f  Magia 

Búsqueda  de  errores 

Para  conocer  el  contenido  de  una  variable  mientras  se  está 
ejecutando  un  programa,  basta  con  pulsar  STOP  (¡no  STOP/ 
RESTORE!),  escribir  PRINT  y  el  nombre  de  la  variable  y  a 
continuación  CONT. 

M.B.  RUN  EE.UU. 

Magia  con  el  WEDGE 

Usando  el  programa  WEDGE  con  la  unidad  de  discos,  si 
pulsas  la  barra  de  espacios  mientras  estas  listando  el  directo¬ 
rio,  el  listado  se  para.  Para  continuar,  basta  con  pulsar  de 
nuevo  ESPACIO. 

RUN  EE.UU. 

Lenguaje  máquina 

Si  quieres  cargar  y  ejecutar  fácilmente  un  programa  en 
lenguaje  máquina  desde  la  unidad  de  discos,  un  buen  truco 
es  crear  antes  un  pequeño  programa  en  basic  de  la  siguiente 
manera: 

10  LOAD“PROG  C/M”,8,l 

20  SYS  49152:REM  inicio  del  programa 

La  línea  20  del  programa  nunca  se  ejecuta,  porque  al 
acabar  de  cargar  el  programa,  hará  un  RUN,  y  se  volverá  a 
ejecutar  la  línea  10  y  así  ad  infinitum.  Para  que  el  programa 
funcione  correctamente  hay  que  hacer: 

10  IF  TEST=0  THEN  TEST=l:LOAD“PROG  C/M”,8,l 
20  SYS  49152 

Como  las  variables  se  conservan,  la  línea  10  sólo  se  ejecu¬ 
tará  la  primera  vez  que  se  haga  funcionar  el  programa. 

E.L.  RUN  EE.UU. 

Rutina  SAVE 

Cuando  estas  modificando  un  programa  y  a  la  vez  estás 
guardando  varias  versiones  del  mismo,  puedes  automática¬ 
mente  salvar  y  borrar  la  copia  anterior  de  la  siguiente  manera: 

59999  end 

60000  p$=“Programa”:openl5,8,15 
60010  print#15,“s0:”+pn$+“.bkup” 

60020  print#15,“r0:”+pn$+“.bkup=”+pn$ 

60030  cióse  15 

60040  save  pn$,8 

Cuando  quieras  salvar  la  última  versión,  teclea:  RUN 
60000.  De  este  modo  siempre  existe  la  última  copia  y  la 
anterior.  El  nombre  del  programa  no  puede  superar  los  1 1 
caracteres. 

J.L.  RUN  EE.UU. 

Errores  en  los  listados 

Si  alguna  vez  te  ha  ocurrido  que  al  listar  un  programa  éste 
termina  repentinamente  con  un  REM  seguido  de  SYNTAX 
ERROR,  puede  ser  debido  a  que  tras  el  REM  hubiera  un 
SHIFT  L  oculto.  Para  solucionarlo  sólo  tienes  que  colocarle 
en  la  línea  del  REM  y  pulsar  return. 

P.J.  RUN  EE.UU. 

Copiar  un  programa 

Cuando  vayas  a  sacar  una  copia  impresa  de  un  programa, 
usa  los  códigos  ASCII  para  las  funciones  del  cursor  o  de 
borrado  de  pantalla.  Por  ejemplo  [CLR]  es  igual  que 
chr$(147).  Te  costará  un  bit  más,  pero  ganarás  en  claridad  a 
la  hora  de  depurar  tus  problemas. 


D.M.  RUN  EE.UU. 
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°CIA.  ESPECIALIZADA  EN  EQUIPOS.  SOFTWARE  Y  SERVICIOS  PARA  LA 
ENSEÑANZA  TANTO  DE  INFORMATICA  COMO  DE  OTRAS  MATERIAS. 

"DISTRIBUYE  CON  CONTRATO  EN  EXCLUSIVA  PARA  TODA  ESPAÑA: 


□  Red  local  ED  NET desarrollada  por  BSP.capazlde  conectar  hasta  250 
puestos  al  ordenador  central,  siendo  éste  un  C-64.  También  permite 
que  estos  puedan  utilizar  dispositivos  de  disco  duro  o  flexible,  etc.  y 
que  desde  un  punto  master  se  controlen  todos  y  cada  uno  de  los 
puestos-alumno. 

□  Control  de  automatismos.  Permite,  desde  el  C-64,  controlar 
32  parámetros  de  entrada  y  otros  tantos  de  salida  de  la  máquina 
o  máquinas  que  se  quieran  automatizar. 

□  Control  de  robots.  Permite  desde  el  C-64  controlar  robots. 

□  Pantalla  digital.  Maneja  el  ordenador  al  tarto  de  la  pantalla. 

□  Paquete  Mágico.  El  profesor  puede  preparar  cualquier  asignatura 
para  ser  enseñada  y  controlada  a  través  del  ordenador. 
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